DLookUp with multiple criteria VBA

Hello,

I'm trying to if a user name exists in a table over the past 4 weeks...
I'm creating this database to update our contact information and in order to make more engaging we are developing a point system which can be used to trade for other things.
The first step of the code is to check the user name if the user name has a manager name then the code stops
Then the code checks if today is Monday, Tuesday or Wednesday if it is not then the code stops
Then it checks if the current date is checked against the tblWinners_ResOps table to make sure that there is no winner this week
Then it checks whether the user has won over past 4 weeks (this is not working), but if it is true then the code stops
Finally if all the above come back false then a random number is generated and compared against 17 (lucky number) if they both equal each other then the user wins.

Can you tell me if my DLookUP is wrong and what am I doing wrong...

Thank you,
Private Sub cmdUpdateContact_Click()
Dim strDayName As String
Dim strUserName As String
Dim intRandomNumber As String
Dim strFName As String
Dim strsql As String
Dim dateExists As Integer
Dim dateExists4wks As Integer
Dim dtStart As Date
Dim dtEnd As Date
Dim dt4Weeks As Date
 
 
'Here we'll set up some task for the contact update
 
 
'Next we'll process the check winning process
strDayName = Format(Date, "dddd")
strUserName = fOSUserName()
strFName = DLookup("UserFirstName", "tblHSGUsers_ResOps", " [UserNetworkName] =  '" & fOSUserName() & "'")
intRandomNumber = Int((Round(((1 * Nz(DCount("User_ID", "tblHSGUsers_ResOps"))) * 5) * 2.5, 0) - 1 + 1) * Rnd() + 1)
dtStart = Format(Date, "mm/dd/yyyy")
 
Select Case Weekday(dtStart)
    Case "2"
        dtEnd = Format(Date, "mm/dd/yyyy")
    Case "3"
        dtEnd = Format(DateDiff("d", 1, Date), "mm/dd/yyyy")
    Case "4"
        dtEnd = Format(DateDiff("d", 2, Date), "mm/dd/yyyy")
    Case "5"
        dtEnd = Format(DateDiff("d", 3, Date), "mm/dd/yyyy")
    Case "6"
        dtEnd = Format(DateDiff("d", 4, Date), "mm/dd/yyyy")
End Select
 
dt4Weeks = Format(DateDiff("d", 28, Date), "mm/dd/yyyy")
 
dateExists = DCount("Winner_Date", "tblWinners_ResOps", "[Winner_Date] BETWEEN #" & dtStart & "#  AND  #" & dtEnd & "#")
dateExists4wks = DCount("Winner_Name", "tblWinners_ResOps", "Winner_Name = " & strUserName & "" And "[Winner_Date] BETWEEN #" & dtStart & "#  AND  #" & dt4Weeks & "#")
 
'check if it is ResOps Managers
If LCase(strUserName) <> "Manager1" Or LCase(strUserName) <> "Manager2" Then
    'Check if it is the first 3 days of the week
    If strDayName = "Monday" Or strDayName = "Tuesday" Or strDayName = "Wednesday" Then
        'Check if there is a winner this date
        If dateExists = 0 Then
 
	   '     THIS SECTION IS NOT WORKING CORRECTLY AND NEED TO FIGURE OUT WHY
           'Check if date exists 4 weeks ago
            If dateExists4wks = 0 Then
                'Check if random # generated is equal to 17
                If intRandomNumber = 17 Then
                    
                    MsgBox strFName & " You WON!!!"
                    strsql = "INSERT INTO tblWinners_ResOps ( Winner_Name, Winner_Date ) " & _
                                "SELECT fOSUserName() AS Winner_Name, Date() AS Winner_Date;"
                            Debug.Print
                            DoCmd.SetWarnings False
                            DoCmd.RunSQL strsql
                            DoCmd.SetWarnings True
                    
                End If
            End If
        End If
    End If
End If
 
 
 
End Sub
 
 
'Using this function to get the UserName
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
 
'-----------------------------------------------------------------------------------------
' This code is used to retrieve the network user name by accessing the API apiGetUserName.
' Created by: Unknown (Found on Dev Ashish web site http://home.att.net/~dashish/api)
'-----------------------------------------------------------------------------------------
 
Public Function fOSUserName() As String
On Error GoTo fOSUserName_Err
 
    Dim lngLen As Long, lngX As Long
    Dim strUserName As String
    
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
 
 
fOSUserName_Exit:
    Exit Function
 
fOSUserName_Err:
    MsgBox Error$
    Resume fOSUserName_Exit
End Function

Open in new window

AIdoHSGAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Rey Obrero (Capricorn1)Connect With a Mentor Commented:
what is  the format of  [Winner_Date] ? is this a DateTime datatype?

change this

dtStart = Format(Date, "mm/dd/yyyy")
to

dtStart = cdate(Format(Date, "mm/dd/yyyy"))

and this
dt4Weeks = Format(DateDiff("d", 28, Date), "mm/dd/yyyy")

to

dt4Weeks = cdate(Format(DateDiff("d", 28, Date), "mm/dd/yyyy"))



0
 
Rey Obrero (Capricorn1)Commented:
it looks good..

strFName = DLookup("UserFirstName", "tblHSGUsers_ResOps", " [UserNetworkName] =  '" & fOSUserName() & "'")

'ADD this line to verify you got the correct name, remove later

msgbox strFName
0
 
AIdoHSGAuthor Commented:
Hello Capricorn1,

I noticed it and tried it out, it is capturing the correct username, but everytime i run the code i get a Run-time error '13' type mismatch and it highlightes the

dateExists4wks = DCount("Winner_Name", "tblWinners_ResOps", "Winner_Name = '" & strUserName & "'" And "[Winner_Date] BETWEEN #" & dtStart & "#  AND  #" & dt4Weeks & "#")

When I hover over it I get a value of 0... I know there is data in the table because I put it myself and I should be getting 2 instead.

Any suggestions???
0
Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

 
Rey Obrero (Capricorn1)Commented:
change this

dateExists4wks = DCount("Winner_Name", "tblWinners_ResOps", "Winner_Name = '" & strUserName & "'" And "[Winner_Date] BETWEEN #" & dtStart & "#  AND  #" & dt4Weeks & "#")

to

dateExists4wks = DCount("Winner_Name", "tblWinners_ResOps", "Winner_Name = '" & strUserName & "' And [Winner_Date] BETWEEN #" & dtStart & "#  AND  #" & dt4Weeks & "#")
0
 
AIdoHSGAuthor Commented:
Hello capricorn1,

I don't get the error anymore, but i still get 0 for the Dcount... there are two records that are dated within the last 4 weeks.

Any suggestions

Thank you for your help
0
 
Rey Obrero (Capricorn1)Commented:
<there are two records that are dated within the last 4 weeks.>

does the "Winner_name" from table tblwinners the same as the name represented by the variable  strUserName ?
0
 
AIdoHSGAuthor Commented:
Yes the name matches what i have in the table...
I ran the DCount expression in a query and it gave me 2, but in VBA it is 0
0
 
AIdoHSGAuthor Commented:
Sorry for the delay... I forgot about this question.

Thank you, I managed to figure out the issue. Your suggestions also helped the process go much smoother.

Thank you again,
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.