Data Type MisMatch While Checking IsNUll

[Eranka]

Hi

Dim rec As StringDim but As String
Dim Lid2 As String
Dim sqlid As String
Dim rst As Recordset
Dim cdb As Database


Lid2 = Me.Text0 'Job_No


sqlid = "SELECT IsNull([Sale_Ended_Date]) FROM Repair WHERE Job_No = " & Lid2


If IsNull(Text0) Then
MsgBox "Job No Cannot Be Empty !!!", vbInformation, "Job No required"
Me.Text0.SetFocus
ElseIf (sqlid) Then
CurrentDb.Execute "Update Repair SET [Sale_Ended_Date] = '" & Format(Now()) & "' WHERE [Job_No]= " & Lid2 & " "

When i run the above code i get Datatype mismatch error in second IF, Hope you could help me out to sort this problem?

[Micron]

The only time you can write If (or any variation thereof) followed by a reference only is if the reference evaluates to True or False (or perhaps the equivalents of Yes/No, -1, 0). Your reference is to a variable that is declared as a string.

[June7]

sqlid is a String variable. The SQL statement is just a string of characters. Would have to use the string to open a recordset. Use DLookup instead to return a value from table that can be tested in If condition.

ElseIf IsNull(DLookup("[Sale_Ended_Date]", "Repair", "Job_No = " & Lid2)) Then