Discussion :

[vavavoum74]

Bonjour
Je débute encore
J'ai dans un sous formulaire ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub NumeroOR_DblClick(Cancel As Integer)
strFrmName = "FormSuiviRelance"
         DoCmd.OpenForm strFrmName
        DoCmd.GoToControl "[NumeroOR]"
        DoCmd.FindRecord Nz([NumeroOR], 0)
End Sub

quand le double clique sur une case contenant un numero d'enregistrement "NumeroOR" (qui est la clé de ma sable principale "SuiviSAV" ), s'ouvre un formulaire "FormSuiviRelance" sur la valeur courante de ce numero.

Plutôt que de faire un copier coller de ce code dans les 4 ss formulaire j'essaie de créer une fonction publique qui fait la même chose.

j'ai donc créé un module simple avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function OuvSuiviRelance()
strFrmName = "FormSuiviRelance"
         DoCmd.OpenForm strFrmName
        DoCmd.GoToControl "[NumeroOR]"
        DoCmd.FindRecord Nz([NumeroOR], 0)
End Function

J'ai une erreur sur [NumeroOR] à la ligne 5 : "Nom externe non défini"

je cale.

Merci d'avance pour votre aide.

[vavavoum74]

à force de fouiller et de me faire une fracture de mon unique neurone (j'ai dû plâtrer!!), j'ai trouvé: il faut remplacer NumeroOR par une variable, et l'ajouter dans la déclaration de fonction
le code dans le module simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function OuvSuiviRelance(VarNumEnregistrement As String)
strFrmName = "FormSuiviRelance"
         DoCmd.OpenForm strFrmName
        DoCmd.GoToControl "[NumeroOR]"
        DoCmd.FindRecord Nz([VarNumEnregistrement], 0)
End Function

et pour utiliser la fonction dans les formulaires:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub NomClient_DblClick(Cancel As Integer)
OuvSuiviRelance (NumeroOR)
End Sub

voilà , je me suis auto - solutionné, et maintenant avec mon plâtre neural, je commence à attraper un torticolis