Hi

You will be able to see if a subform has no records so I don't understand
why you would need a message popup also ???

But if you really want a popup then you'll need to count the records that
should go into the subform and if the answer is 0 then you have the massage
popup.

Something like this will do

Dim rsClone as Recordset
set rsClone =
Forms![YourMainFormName..]![YourSubformName..].Form.RecordsetClone
if rsClone.recordcount = 0 then
MsgBox "Hi, I don't have any records", vbInformation, "Subform has a problem"
end if
set rsClone = Nothing

Of course change
YourMainFormName and YourSubformName
to what they really are.

Hope this helps


--
Wayne
Manchester, England.



"Achit via AccessMonster.com" wrote:

I create a program Audit Tools...and I want Make MassageBox if my subform
empty...I want make massagebox "No Data Found"...What Should I do????

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...arted/201005/1

.