No Data on Form Open

[m stroup]

I have the following code on a cmdButton

Dim strwhere As String
strwhere = "[tbl_Reports].[FltPhase] = '" & Me![cboPhase] & "'"
DoCmd.OpenForm "frm_MainView", acNormal, , strwhere
DoCmd.Close acForm, "frm_SearchPhase"

I would like to display a message "No data qualifies" and not open the form.
Not sure what the If statement should read.

 

[Alex Dybenko]

Hi,
you can check recordset count on form's open event, and cancel it:


if Me.Recordset.RecordCount =0 then
Cancel=true
end if

DoCmd.OpenForm in that case will produce runtime error which you have to
handle

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[Daryl S]

M -

You can check to see if any records match before opening the form. Try
something like this:

If DCount("FltPhase","tbl_Reports","[FltPhase] = '" & Me![cboPhase] & "'") <
1 Then
msgbox "No records found"
Else
DoCmd.OpenForm "frm_MainView", acNormal, , strwhere
DoCmd.Close acForm, "frm_SearchPhase"
End If

 

[m stroup]

Thanks Daryl,

I should have been able to figure a DCount out. Thanks for the help!

--
Teach me to fish! Thanks for the help.
Pax, M

M -

You can check to see if any records match before opening the form. Try
something like this:

If DCount("FltPhase","tbl_Reports","[FltPhase] = '" & Me![cboPhase] & "'") <
1 Then
msgbox "No records found"
Else
DoCmd.OpenForm "frm_MainView", acNormal, , strwhere
DoCmd.Close acForm, "frm_SearchPhase"
End If

--
Daryl S

I have the following code on a cmdButton

Dim strwhere As String
strwhere = "[tbl_Reports].[FltPhase] = '" & Me![cboPhase] & "'"
DoCmd.OpenForm "frm_MainView", acNormal, , strwhere
DoCmd.Close acForm, "frm_SearchPhase"

I would like to display a message "No data qualifies" and not open the form.
Not sure what the If statement should read.