DLookUp Function Issues

Birky

Can someone please help me with my syntax below? I am trying to enable an object on a form for specific users only and in doing so I am trying to use the DLookUp function to try and keep it sweet and simple. I have created a table named “Employees” where I plan to add the people that will have access to the particular object (named CmdProjReport). The table is very basic just housing the below info:

Employees Table:

[HTML]
KeyID EmployeeID Name Phone
1 mibi Mike 7140
2 kluck Kath 3165
3 bobt Bob 5424
[/HTML]

Now I plane to execute the logic upon the loading of the form and I have come up with the below which as you can guess is not working. Can you help construct the below code to use the environments username and check to see if it exists in the Employees table and if so then enable the object? Any help would be greatly appreciated. (Not sure why I am having soooo much difficulty with the DLookUp syntax but I have tried everything I can think of and I can get it to work)

Expand|Select|Wrap|Line Numbers

 
Private Sub Form_Load()

    Dim PrimId As Variant
 
    PrimId = DLookup("[KeyId]","Employees","[EmployeeID]=Environ("username"")
 
    If PrimId = Null Then

        CmdProjReport.Visible = True

    End If

End Sub

Thanks for the help
Birky

dima69

Quote:

Originally Posted by Birky

Can someone please help me with my syntax below? I am trying to enable an object on a form for specific users only and in doing so I am trying to use the DLookUp function to try and keep it sweet and simple. I have created a table named “Employees” where I plan to add the people that will have access to the particular object (named CmdProjReport). The table is very basic just housing the below info:

Employees Table:

[HTML]
KeyID EmployeeID Name Phone
1 mibi Mike 7140
2 kluck Kath 3165
3 bobt Bob 5424
[/HTML]

Now I plane to execute the logic upon the loading of the form and I have come up with the below which as you can guess is not working. Can you help construct the below code to use the environments username and check to see if it exists in the Employees table and if so then enable the object? Any help would be greatly appreciated. (Not sure why I am having soooo much difficulty with the DLookUp syntax but I have tried everything I can think of and I can get it to work)

Expand|Select|Wrap|Line Numbers

 
Private Sub Form_Load()

    Dim PrimId As Variant
 
    PrimId = DLookup("[KeyId]","Employees","[EmployeeID]=Environ("username"")
 
    If PrimId = Null Then

        CmdProjReport.Visible = True

    End If

End Sub

Thanks for the help
Birky

If PrimId = Null expression will never act as TRUE, because (Null = Null) = Null.
To execute the command when PrimeId is Null, use this syntax:

Expand|Select|Wrap|Line Numbers

 If IsNull(PrimId) Then

    CmdProjReport.Visible = True

End If

Jim Doherty

Quote:

Originally Posted by Birky

Can someone please help me with my syntax below? I am trying to enable an object on a form for specific users only and in doing so I am trying to use the DLookUp function to try and keep it sweet and simple. I have created a table named “Employees” where I plan to add the people that will have access to the particular object (named CmdProjReport). The table is very basic just housing the below info:

Employees Table:

[HTML]
KeyID EmployeeID Name Phone
1 mibi Mike 7140
2 kluck Kath 3165
3 bobt Bob 5424
[/HTML]

Now I plane to execute the logic upon the loading of the form and I have come up with the below which as you can guess is not working. Can you help construct the below code to use the environments username and check to see if it exists in the Employees table and if so then enable the object? Any help would be greatly appreciated. (Not sure why I am having soooo much difficulty with the DLookUp syntax but I have tried everything I can think of and I can get it to work)

Expand|Select|Wrap|Line Numbers

 
Private Sub Form_Load()

    Dim PrimId As Variant
 
    PrimId = DLookup("[KeyId]","Employees","[EmployeeID]=Environ("username"")
 
    If PrimId = Null Then

        CmdProjReport.Visible = True

    End If

End Sub

Thanks for the help
Birky

Altered to suit it will work now

Jim

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Load()

    Dim PrimId As Variant

    Dim strusername As String

    strusername = Environ("USERNAME")
 
    PrimId = DLookup("[KeyId]", "Employees", "[EmployeeID]='" & strusername & "'")
 
    If IsNull(PrimId) Then

        cmdProjReport.Visible = True

    End If
 
End Sub

Birky

You all are life savers, and thanks for helping me out with this one. As you can see I have a lot to learn and I’m thankful you all are willing to teach.

Have a great weekend..
Birky

DLookUp Function Issues

re: DLookUp Function Issues

re: DLookUp Function Issues

re: DLookUp Function Issues

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about