ACCESS VBA qu'est qui ne vat pas dans ce code.

Bonjour,

J'ai créé ce code, pour qu'à la fermeture du formulaire les sous formulaires soit controlé.
En effet des chekboxes les rendent visibles ou non;

Si à la fermeture les sous formulaires ne sont pas visibles, l'enregistrement dans les ssforms ne doit pas se faire.

Function valider_F(Frm As Form, Id As TextBox)

 
Dim Ctl As Controls     ' def l'ensemble des controls

Set Ctl = Frm.Controls  ' dit que cet ensemble appartient au form actuel

 
Dim sbfrm As SubForm    ' def les ss-form

 
Dim SSFrm As String

Set SSFrm = sbfrm.SourceObject ' appel le form source du ssform

Dim Rsbfrm As String

Set Rsbfrm = SSFrm.RecordSource    ' appel le recordset de la source du ssform

 
Dim Sql As String

 
 
For Each sbfrm In Ctl

    If sbfrm.Visible = False Then

        Sql = " DELETE FROM " & Rsbfrm & " WHERE N°Identifiant='" & Id.Value & "'"

    End If

End

 
End Function

une erreur se produit au niveau du SSForm (source du sous formulaire) ... objet requis

.....
( et là , c'est le drame.....!)
.....
C'est vrai tout est déclaré...
alors ????
J'évite de mettre des noms pour que cette fonction soit réutilisable...
Je ne sais pas ,


C'est pour quoi je vous demande de l'aide,

Merci par avance,

Oriane_34