I'm having problem trying to find out what is wrong with a code.
Here's what it is supposed to do.
1. The messagebox should only appear if a record already exist in the database
2. If there is no record of the same information, then it would save the new record
Here's the code that creates the error (Logic ?):
DBConnection "Database.mdb"
With RecSet
.Open "Select * from TimeLog where EM_Name = '" & _
LblEmployeeName.Caption & "'", DBLink, adOpenDynamic, adLockOptimistic
If .EOF = False Then
MsgBox "Record already exist.", vbExclamation, "Prompt"
DBLink.Close
Exit Sub
End If
.Close
End With
And the rest:
With RecSet
.Open "Select * From TimeLog where ID = " & FrmMainDTR.txtEIDN.Text & " and Date_LOG = '" & Format(Date, "YYYY-MM-DD") & "'", DBLink, adOpenDynamic, adLockOptimistic
If .EOF = True Then
.AddNew
.Fields(10) = FrmMainDTR.txtEIDN.Text
.Fields(1) = LblEmployeeName.Caption
.Fields(2) = Format(Date, "YYYY-MM-DD")
End If
'THE FOLLOWING CODE IS IGNORED AND A USER CAN LOG IN/OUT MULTIPLE TIMES
'(Turned it to Text) and it now works well
If LblLogType.Caption = "In [AM]" And IsNull(.Fields(3)) = True Then
.Fields(3) = sts2.Panels(2).Text
MsgBox "The fingerprint was verified and user was logged in at " & sts2.Panels(2).Text & ".", vbInformation, "FingerPrint Verification Successful"
ElseIf LblLogType.Caption = "In [AM]" And IsNull(.Fields(3)) = False Then
MsgBox "The user has already Logged In for the Morning"
End If
If LblLogType.Caption = "Out [AM]" And IsNull(.Fields(4)) = True Then
.Fields(4) = sts2.Panels(2).Text
MsgBox "The fingerprint was verified and user was logged out at " & sts2.Panels(2).Text & ".", vbInformation, "FingerPrint Verification Successful"
ElseIf LblLogType.Caption = "Out [AM]" And IsNull(.Fields(4)) = False Then
MsgBox "The user has already Logged Out for the Morning"
End If
If LblLogType.Caption = "In [PM]" And IsNull(.Fields(6)) = True Then
.Fields(6) = sts2.Panels(2).Text
MsgBox "The fingerprint was verified and user was logged in at " & sts2.Panels(2).Text & ".", vbInformation, "FingerPrint Verification Successful"
ElseIf LblLogType.Caption = "In [PM]" And IsNull(.Fields(6)) = False Then
MsgBox "The user has already Logged In for the Afternoon"
End If
If LblLogType.Caption = "Out [PM]" And IsNull(.Fields(7)) = True Then
.Fields(7) = sts2.Panels(2).Text
MsgBox "The fingerprint was verified and user was logged out at " & sts2.Panels(2).Text & ".", vbInformation, "FingerPrint Verification Successful"
ElseIf LblLogType.Caption = "Out [PM]" And IsNull(.Fields(7)) = False Then
MsgBox "The user has already Logged Out for the Afternoon"
End If
.Update
.Close
End With
DBLink.Close
This gets me stucked in my project.
Thanks in advance