Check if form is empty when loaded

[tburrows]

I have a form that uses a query for its data. The query uses a parameter input of a single letter to select records that begin with that letter. If the user selects a letter that is not in the database it returns with nothing. When the form starts the parameter reqeust opens up and when a correct letter is selected all those records show in the form. If a letter not in the database is selected the form is empty. What I want to do is if the query has no records in it the form to do a requery so that the user can try again.

Thanks
Tom

 

[luceze]

Hey Tom.

Place this code in your form's On Current event:

Dim rs As Recordset
Set rs = Me.RecordsetClone
    If rs.RecordCount = 0 Then
        MsgBox "Please choose another value.", vbOKOnly, "No Records"
        Me.Form.Requery
    End If
Set rs = Nothing

HTH,
Eric

 

[tburrows]

Solved -
I created a recordset clone and if BOF and EOF are true then I close the form and then use DoCmd to open the form again.

Thanks
Tom