Private Sub Form_Unload(Cancel As Integer)
Dim Rs As Recordset

Set Rs = Me.RecordsetClone
If Rs.RecordCount > 0 Then
    Set Rs = [ImeSubforme].Form.RecordsetClone
    If Rs.RecordCount > 0 Then
    Cancel = 0
    Else
    Cancel = 1
    End If
End If
End Sub