Simple message box

[joeythelips]

Hi,

I import a file every day.
When the file is exported, a table is created that has 3 fields:
Filename
Date Received
Successful.
Sucessful will be equal to 1 if the file has imported properly and 0 if it hasn't.
What i want to do is, after import, see a message box appear saying "File import successful" if the field successful equals one or "Unsuccessful" if it equals 0.

Can someone please help me out?

Joe

 

[JoeMiller]

If DLookup("[SuccessFul]","MyTableName&quot = 1 Then
MsgBox "Successful!"
Else
MsgBox "Unsuccessful!"
End If

HTH Joe Miller
joe.miller@flotech.net

 

[JamesMeadlock]

Well, I'd use DLookup and a msgbox... You may need to tinker with the date criteria


Sub Import_OnClick()

If Dlookup("yourtable","Successful","Date Received" = Date()) = 1 Then
Msgbox ("Import Successful&quot
Else
Msgbox ("Import unsuccessful&quot
End Sub