How to check of a SubForm is empty

[Simon]

Dear reader,

I have a SubForm in witch appear some records as datasheet layout.

I need to check of the SubForm is empty or not. I have tried the following
code but it does not work.

If IsNull(Forms![MasterFormName..]![SubFormName..]) Then
MsgBox "Form is empty select some records and try again.",
vbOkOnly ,"Warning"
End if

Is there any other code to check the SubForm on records.

Thanks for any help.
Kind regards,
Simon

[jbguernsey]

One way: (air code, untested)

Dim rsClone as Recordset
set rsClone =
Forms![MasterFormName..]![SubFormName..].Form.RecordsetClone
if rsClone.recordcount = 0 then
msgbox etc
end if
set rsClone = Nothing

I have used rsClone for clarity here. Could do the samething all in
one, as it were, but it's somewhat clumsy-looking then ...

HTH

Jeff

Simon wrote:

Dear reader,

I have a SubForm in witch appear some records as datasheet layout.

I need to check of the SubForm is empty or not. I have tried the following
code but it does not work.

If IsNull(Forms![MasterFormName..]![SubFormName..]) Then
MsgBox "Form is empty select some records and try again.",
vbOkOnly ,"Warning"
End if

Is there any other code to check the SubForm on records.

Thanks for any help.
Kind regards,
Simon

[John Mishefske]

Simon wrote:

Dear reader,

I have a SubForm in witch appear some records as datasheet layout.

I need to check of the SubForm is empty or not. I have tried the following
code but it does not work.

If IsNull(Forms![MasterFormName..]![SubFormName..]) Then
MsgBox "Form is empty select some records and try again.",
vbOkOnly ,"Warning"
End if

Is there any other code to check the SubForm on records.

You would create a RecordSetClone and then query its .RecordCount property for a value
greater than 0. If you need a more accurate count then you would force a total read
(perhaps by doing a .MoveLsat followed by a .MoveFirst to force the data to be read
from the server).

--
'---------------
'John Mishefske
'---------------