Help with findfirst command 1

[snipesnab]

I need some help with the code below: If no corresponding value is found between refvalue and the order
number - how can I make an if statement to say if no value can be found then print a message box.

Set myrs = CurrentDb.OpenRecordset("tbl facilities log", dbopendynaset)
myrs.findfirst "[order number] = 'refvalue'"

 

[GHolden]

You can use NoMatch

eg.

myrs.findfirst "[order number] = '" & refvalue & "'"

If myrs.NoMatch Then
'Not found message
Else
'Found Code
End If

There are two ways to write error-free programs; only the third one works.

 

[nat1967]

Hi,

I believe this will help you out. I am currently running something similar in the Before_Update event on a textbox.

If rs.NoMatch Then
' there was no match, warn the user
MsgBox "Warning! No match", vbOKOnly
cancel = True
Me!Acceptance.Undo

End If

HTH

Have A Great Day!!!,

Nathan
Senior Test Lead