Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Display a form or dialogue box when the result is 0 or a minus
- Thread starter Mcnultyj
- Start date
Hi James,
This is how I do it. If i open a form based on (for example) a query, before displaying the form i will run the sql in code using DAO and if the recodset returns 0 rows then cancel opening the form.
Eg.
dim db as database
dim sSelect as string
dim rs as recordset
set db = currentdb
sSelect = "Select fields from table where etc etc"
' where sSelect is the exact SQL that your form is based.
set rs = db.openrecordset(sselect,dbopendynaset)
if rs.recordcount<1 then
' No records returned
docmd.openform "form"
else
docmd.openform "other form"
end if
I think this is the code. You may have to tweak it and correct any syntax problems.
Nick
This is how I do it. If i open a form based on (for example) a query, before displaying the form i will run the sql in code using DAO and if the recodset returns 0 rows then cancel opening the form.
Eg.
dim db as database
dim sSelect as string
dim rs as recordset
set db = currentdb
sSelect = "Select fields from table where etc etc"
' where sSelect is the exact SQL that your form is based.
set rs = db.openrecordset(sselect,dbopendynaset)
if rs.recordcount<1 then
' No records returned
docmd.openform "form"
else
docmd.openform "other form"
end if
I think this is the code. You may have to tweak it and correct any syntax problems.
Nick
- Status
Similar threads
- Question
- Locked
- Question
