Check Table

[jtmott]

Hello I'm new to VBA programming. I have a table that i use a an append query to update. I would want to have some code that will check the table to see if the is an entry. I am using IsNull & IsEmpty but it's not working. the code I'm using is below. Any help would be appreciated.

DoCmd.OpenQuery "Qry Append Temp Supervisor", acViewNormal, acEdit
If IsNull("Temp_Supervisor.INCODE") Or "Temp_Supervisor.INCODE" = "" Then
MsgBox "Invalid Supervisor", vbRetryCancel Or vbCritical


SupHandler1
Else
DoCmd.OpenQuery "Qry Update Part Match Sup", acViewNormal, acEdit
DoCmd.OpenQuery "Qry Delete Temp Supervisor", acViewNormal, acEdit

End If

[ranman256]

1 you would not put the warning in the query,
it would go on the form before the user saves it.

2. if you want to check in the query, you would bring up the list of invalid entries:

if dCount("*", "qsBadData")> 0 then
  docmd.openquery "qsBadData"         'where qsBadData = "select * from table where IsNull(INCODE) or Incode = "")
else
       DoCmd.OpenQuery "Qry Update Part Match Sup", acViewNormal, acEdit
        DoCmd.OpenQuery "Qry Delete Temp Supervisor", acViewNormal, acEdit
endif