Hi All
I am having an issue with DLookup, which, for some reason which I do not understand appears to missing the first record in the table.
What I am trying to do is to extract the e-mail address of all users who have 'Admin' status to the database. In the table ('LogIn') there are 3 users who have 'Admin' status and this is confirmed by the DCount function in the following code. There respective ID values in the table are 1, 49 and 51.
Yet when I run the Loop to get all e-mail addresses it misses ID 1 and just returns records for ID 49 and 51.
I have tried changing other users status to 'Admin' and it finds them but always misses the first record.
Here is the code I am using:-
Any help and advice gratefully recieved
Thanks
Dave:banghead:
I am having an issue with DLookup, which, for some reason which I do not understand appears to missing the first record in the table.
What I am trying to do is to extract the e-mail address of all users who have 'Admin' status to the database. In the table ('LogIn') there are 3 users who have 'Admin' status and this is confirmed by the DCount function in the following code. There respective ID values in the table are 1, 49 and 51.
Yet when I run the Loop to get all e-mail addresses it misses ID 1 and just returns records for ID 49 and 51.
I have tried changing other users status to 'Admin' and it finds them but always misses the first record.
Here is the code I am using:-
Code:
LastIDRef = 0
strToEmail = Null
strMailToAddress = Null
AdminCount = DCount("[ID]", "[LogIn]", "[LogIn].[Security Level] = 'Admin'")
Do
strLinkCriteria = "[LogIn].[Security Level] = 'Admin' And [LogIn].[ID] > " & LastIDRef
strToEmail = DLookup("[e-mail address]", "LogIn", strLinkCriteria)
If IsNull(strToEmail) Then Exit Do
If IsNull(strMailToAddress) Then
strMailToAddress = strToEmail
Else
strMailToAddress = strMailToAddress & ";" & strToEmail
End If
LastIDRef = DLookup("ID", "LogIn", strLinkCriteria)
Loop
Any help and advice gratefully recieved
Thanks
Dave:banghead: