Displaying a Mssg when no records in a Table 1

[Gazer44]

I have 2 forms :- form1 to SUBMIT records onto a table & form2 to VIEW/EDIT these records.

When clicking form2 to VIEW records, if no records submitted yet I want to display a mssg saying "Please input a record".

After submiting a record, clicking form2 will then open OK and display the record.

I have tried different ways but having probs. Any Ideas ??

 

[scottsanpedro]

First of all you will need to write some VBA code on the ON OPEN event for Form2

Dim Db as Database, rst as Recordset, strMsg as String

Set Db = CurrentDB
Set rst = DB.OpenRecordSet("[TableName Where Records Exist]",dbOpenSnapShot)

IF rst.Recordcount = 0 then
msgbox "No Records Found to View" & vbcrlf & "Please Add a New Record Before Continuing"
Docmd.Close
EXIT SUB
END IF


Try That

Scott

 

[Gazer44]

Thanks very much Scottsanpedro, that works great,
much appreciated.