Environ("USERNAME") first record

[boyaqoub]

HI
IM making project by simple "open the form base on your computer name"
I'm recovering the user name of the computer but my problem is it only work if the user in the first record

 Private Sub Command2_Click()
 
Dim CHECKINGMEEE As String
Dim ashift As String
 
CHECKINGMEEE = Environ("USERNAME")
 
ashift = DLookup("[User Name]", "a shift NAME")
 
bshift = DLookup("[User Name]", "b shift NAME")
 
cshift = DLookup("[User Name]", "c shift NAME")
 
dshift = DLookup("[User Name]", "d shift NAME")
 
If CHECKINGMEEE = ashift Then
 
DoCmd.OpenForm "A shift HISTRY"
 
ElseIf bshift = CHECKINGMEEE Then
 
DoCmd.OpenForm "B shift HISTRY"
 
ElseIf cshift = CHECKINGMEEE Then
 
DoCmd.OpenForm "C shift HISTRY"
 
ElseIf dshift = CHECKINGMEEE Then
 
DoCmd.OpenForm "D shift HISTRY"
 
Else
 
DoCmd.OpenForm "ANYTHING"
 
End If
 
DoCmd.Close acForm, "ENTER FACE"
 
End Sub

[twinnyfo]

boyaqoub,

Welcome to Bytes!

First, we would love to help, but you have not provided a lot of information for us. I can make some assumptions about your database and its table structures, but those would only be guesses (even though, based upon my experience with folks who are newer to Access, many of my guesses would be correct). Based upon how I think you have your tables set up, I may have some structural changes to recommend and a very simple solution. However, if my presumptions are incorrect, those recommendations would be meaningless and unhelpful to you.

Please review this article on Asking Good Questions, and if you have additional clarification, we would be glad to chime in.

Also, there is a rather lengthy article on How to Create User Permissions in a Database. This may be above your skill level at this time, but it may help you see some very viable opportunities for your current database.

Please know that we are not "blowing you off". We want to help--but we need additional information from you in order to provide a viable solution without wasting our time by guessing what you need.

Hope this hepps!