How Do I use something like Environ(username) in VBA ?

[WANNABE]

I am trying to test a condition of a table value on form open, and the value
I need to test is the USERNAME. I used Environ(username) on the fields
Default property to set the value. But I'm not smart enough to figure out
all the intricate differences between what is needed in VBA and what is
needed in forms, YET!! Now the following is the code that I have started
with and there are 2 errors.

Private Sub Form_Open(Cancel As Integer)
Dim stDocName, stLinkCriteria, stUserId As String
Dim Test As Boolean
' stUserId = Environ(UserName)
' This is for testing because the previous line caused errors
stUserId = "myname"
' This line is now erroring out, something about cancelled previous
operation.
DLookup("UserID", "Emp", "UserID= stUserID ") = Test
If Test Then
stDocName = "frm_UserEntry"
Me.Visible = False
DoCmd.OpenForm stDocName, , acEdit, stLinkCriteria
Else
'do that
End If
End Sub
Any Help would be greatly appreciated! thank you!

 

[Graham Mandeno]

The only thing missing is a couple of quotes:

stUserId = Environ("UserName")

In fact, I think you will find that you also have those quotes where you
have used it for a DefaultValue property, otherwise it won't work.

 

[WANNABE]

Thank you, I just found this to work
stUserId = Environ$("Username")
But I don't fully understand the meaning of the $
Thanks again..

The only thing missing is a couple of quotes:

stUserId = Environ("UserName")

In fact, I think you will find that you also have those quotes where you
have used it for a DefaultValue property, otherwise it won't work.
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

I am trying to test a condition of a table value on form open, and the
value I need to test is the USERNAME. I used Environ(username) on the
fields Default property to set the value. But I'm not smart enough to
figure out all the intricate differences between what is needed in VBA and
what is needed in forms, YET!! Now the following is the code that I have
started with and there are 2 errors.

Private Sub Form_Open(Cancel As Integer)
Dim stDocName, stLinkCriteria, stUserId As String
Dim Test As Boolean
' stUserId = Environ(UserName)
' This is for testing because the previous line caused errors
stUserId = "myname"
' This line is now erroring out, something about cancelled previous
operation.
DLookup("UserID", "Emp", "UserID= stUserID ") = Test
If Test Then
stDocName = "frm_UserEntry"
Me.Visible = False
DoCmd.OpenForm stDocName, , acEdit, stLinkCriteria
Else
'do that
End If
End Sub
Any Help would be greatly appreciated! thank you!

 

[Graham Mandeno]

The $ is only to provide compatibility with earlier versions of Basic. It's
the old type-cast character to force the function to return a string.

I suggest you use the one without the $.
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

Thank you, I just found this to work
stUserId = Environ$("Username")
But I don't fully understand the meaning of the $
Thanks again..

The only thing missing is a couple of quotes:

stUserId = Environ("UserName")

In fact, I think you will find that you also have those quotes where you
have used it for a DefaultValue property, otherwise it won't work.
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

I am trying to test a condition of a table value on form open, and the
value I need to test is the USERNAME. I used Environ(username) on the
fields Default property to set the value. But I'm not smart enough to
figure out all the intricate differences between what is needed in VBA
and what is needed in forms, YET!! Now the following is the code that I
have started with and there are 2 errors.

Private Sub Form_Open(Cancel As Integer)
Dim stDocName, stLinkCriteria, stUserId As String
Dim Test As Boolean
' stUserId = Environ(UserName)
' This is for testing because the previous line caused errors
stUserId = "myname"
' This line is now erroring out, something about cancelled previous
operation.
DLookup("UserID", "Emp", "UserID= stUserID ") = Test
If Test Then
stDocName = "frm_UserEntry"
Me.Visible = False
DoCmd.OpenForm stDocName, , acEdit, stLinkCriteria
Else
'do that
End If
End Sub
Any Help would be greatly appreciated! thank you!

 

[WANNABE]

Thank you.

The $ is only to provide compatibility with earlier versions of Basic.
It's the old type-cast character to force the function to return a string.

I suggest you use the one without the $.
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand

Thank you, I just found this to work
stUserId = Environ$("Username")
But I don't fully understand the meaning of the $
Thanks again..

The only thing missing is a couple of quotes:

stUserId = Environ("UserName")

In fact, I think you will find that you also have those quotes where you
have used it for a DefaultValue property, otherwise it won't work.
--
Good Luck!

Graham Mandeno [Access MVP]
Auckland, New Zealand


"WANNABE" <breichenbach AT istate DOT com> wrote in message
I am trying to test a condition of a table value on form open, and the
value I need to test is the USERNAME. I used Environ(username) on the
fields Default property to set the value. But I'm not smart enough to
figure out all the intricate differences between what is needed in VBA
and what is needed in forms, YET!! Now the following is the code that I
have started with and there are 2 errors.

Private Sub Form_Open(Cancel As Integer)
Dim stDocName, stLinkCriteria, stUserId As String
Dim Test As Boolean
' stUserId = Environ(UserName)
' This is for testing because the previous line caused errors
stUserId = "myname"
' This line is now erroring out, something about cancelled previous
operation.
DLookup("UserID", "Emp", "UserID= stUserID ") = Test
If Test Then
stDocName = "frm_UserEntry"
Me.Visible = False
DoCmd.OpenForm stDocName, , acEdit, stLinkCriteria
Else
'do that
End If
End Sub
Any Help would be greatly appreciated! thank you!