Bonjour,
comme dans l'appercu suivant :

Nom : ex1.jpg
Affichages : 150
Taille : 52,6 Ko

Un (formulaire1) contenant une liste déroulante (CbmA) et un contrôle onglet (CtlTab4)
La page 2 de contrôle onglet contient un formulaire (formulaire2)
Le (formulaire2) contient un champ texte (Num) un sous formulaire(Sformulaire3)
Le sous formulaire(Sformulaire3) contient un champ (Session)(Table A)

Alors mon problème est que je veux attribuer à ce champ (Num) une numérotation personnalisée selon la valeur de (CbmA) et le champ (Session) et la stocké dans la Table A
Pour cela j'ai mis le code suivant dans le formulaire2 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
 
Dim Pspec As String
Dim Fcode As String
 
Pspec = Me![CbmA].Value
Fcode = Forms![Formulaire1]![Formulaire1].Form![SFormulaire3].Form![Session].Value
 
Me.NumValid = Nz(DCount("[Num]", "Table A", "[CbmA] = '" & Pspec & "'" & " And [Session] = '" & Fcode & "'"), 0) + 1
 
End Sub
Mais l'erreur se trouve dans cette ligne :
Pspec = Me![CbmA].Value
J’ai pas pu faire référence à cette liste déroulante (CbmA)
Merci beaucoup à toute réponse