Forms: Hide a subform if no records present

(Q)    How can I hide a subform if it doesn't contain any records?

(A)    Modify and place the following code in the OnCurrent Event of the main form.

'*********** Code Start **********
Private Sub Form_Current()
    With Me![SubformName].Form
        .Visible = (.RecordsetClone.RecordCount > 0)
    End With
End Sub
'*********** Code End **********