i want do not let input id twice in the same Date
the problem is red color i don't know how to solve this issue
Private Sub employee_ID_AfterUpdate()
Dim NewId As String
Dim strLink As String
NewId = Me.employee_ID.Value
strLink = "[employee ID]=" & NewId
If Me.employee_ID = DLookup("[employee ID]", "hatn w roshtn", strLink And "[barwar]=#" & Date&) Then
MsgBox "ffffff"
End If
End Sub
the problem is red color i don't know how to solve this issue
Private Sub employee_ID_AfterUpdate()
Dim NewId As String
Dim strLink As String
NewId = Me.employee_ID.Value
strLink = "[employee ID]=" & NewId
If Me.employee_ID = DLookup("[employee ID]", "hatn w roshtn", strLink And "[barwar]=#" & Date&) Then
MsgBox "ffffff"
End If
End Sub