query with no results

[Jen0dorf]

Hi



created a soundex query as below

SELECT tbl_Baptism.BaptismID, tbl_Place.Place, tbl_Baptism.FicheNo, tbl_Baptism.BirthDate, tbl_Baptism.DateOfBaptism, tbl_Baptism.YearOfBaptism, tbl_Baptism.ChildsName, tbl_Baptism.Surname, tbl_Baptism.Sex, tbl_Baptism.Parents, tbl_Baptism.Abode, tbl_Baptism.Occupation, tbl_Baptism.Church, tbl_Baptism.RefNo, tbl_Baptism.PageNo, tbl_Baptism.EntryNo, tbl_Baptism.Minister, Soundex([ChildsName]) AS Expr1, tbl_Baptism.FullDateOfBaptism
FROM tbl_Place INNER JOIN tbl_Baptism ON tbl_Place.ID = tbl_Baptism.[fk_PlaceId]
WHERE (((Soundex([ChildsName]))=Soundex([Enter a Name])))
ORDER BY tbl_Baptism.FullDateOfBaptism;

Using the soundex code from http://allenbrowne.com/vba-Soundex.html

It works well except that when I run a form based on the above query if the Soundex does not find any match the results form is not displayed in a nice way. Is there a way to add a criteria so that if no matches are found another form opens ?

thanks]

Ian

[ranman256]

If dcount("*","qsQuery") =0 then
    MsgBox "No results"
else
    Docmd.openquery "qsQuery"
end if

[Jen0dorf]

Hi

thanks for the code and I sort of understand it ;-)

But how would i use it?

At the moment I have a button calling a form based on the query above.

My forays into the VB side of access are few

thanks

Ian

If dcount("*","qsQuery") =0 then
    MsgBox "No results"
else
    Docmd.openquery "qsQuery"
end if