Subform visible based content

[greenter]

every record in the main form will have linking data in the subform. What is an easy way to set the subform to not be visible if there is no data to display? Thanks!

 

[jgoodman00]

In the on_current event of your main form, you could use somthing like the following:

'Being Sub
Dim cnn as ADODB.Connection, rst as ADODB.Recordset

Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset

rst.Open("SELECT * FROM [SubformRecordSource]&quot,cnn, adOpenStatic

If rst.RecordCount > 0 Then
Me.SubformName.Visible = True
Else
Me.SubformName.Visible = False
End If

set rst = nothing
set cnn = nothing

'End Sub

You should note that any processing for the subform will still occur, even if it is not visible... James Goodman