Bonjour,
comme dans l'appercu suivant :
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 :
Mais l'erreur se trouve dans cette ligne :
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
J’ai pas pu faire référence à cette liste déroulante (CbmA)Pspec = Me![CbmA].Value
Merci beaucoup à toute réponse
Partager