How to check if a subform is empty?

[adamtate94]

Hi guys,
been playing around with VBA on how to check if a subform has records displaying in it or now,
i've tried things like if Me!subfrmHazardRAMS.Form!RecordSource = "" Then.


Just getting error..

Thanks in advance

 

[CJ_London]

try

Me.subfrmHazardRAMS.Form.count

use dots(.) rather than bangs (!)

 

[adamtate94]

Thanks for the reply, getting this error..
Image Attached

 

[CJ_London]

see my updated post

 

[adamtate94]

still the same error

 

[TJPoorman]

You can load a copy of the subform's recordset into memory then check if it's empty.

Dim rs as RecordSet

Set rs = me.subfrmHazardRAMS.Form.RecordsetClone
If rs.BOF and rs.EOF Then
    MsgBox "No Records"
End If

 

[CJ_London]

which line is causing the error? click on debug to see which one is highlighted

for the code to work, subfrmHazardRAMS has to be a subform on the form from where it is run

as you type me. you will be prompted for all the available objects, subfrmHazardRAMS should be one of them, as is (presumably) combo183

 

[adamtate94]

The If line with the code you gave me have the error

 

[adamtate94]

The Recordset code has also given me an error on this line :


(Attached)

 

[CJ_London]

please don't just read the first line of the post. read it all and respond to each part. I don't have time to keep reminding you.

Answer these

for the code to work, subfrmHazardRAMS has to be a subform on the form from where it is run

is it?

as you type me. you will be prompted for all the available objects, subfrmHazardRAMS should be one of them, as is (presumably) combo183

does it (and combo183) appear?

 

[adamtate94]

The subreport is part of the form i am adding the code to, still getting an error. Please see attached

 

[CJ_London]

and what is the error now?

 

[adamtate94]

The expression you entered refers to an object that is closed or doesn't exist. On the line with the Me.subfrmHazardRAMS.Form.count on.

Thanks

 

[CJ_London]

it works for me. Alternative try

Me.subfrmHazardRAMS.Form.recordset.recordcount

 

[CJ_London]

one other thought - I presume your subform does have a sourceobject

 

[TJPoorman]

The subreport is part of the form i am adding the code to, still getting an error. Please see attached

You said subREPORT... is it a subreport or a subform? Big difference.