Sinon on revient au test dans l'ouverture du 2ème formulaire
1) en mettant les lignes avec 'rt' en commentaires (pour les essais) dans le code du bouton
2) en mettant ce code au chargement du 2ème formulaire (mettre le bon nom pour le 1er)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub PB_AFFECTER_Click() 'Dim rt As String 'rt = Me.QUANTITE_TYPE 'ouverture conditionnelle du formulaire DoCmd.OpenForm ("F_affecterEquipement"), acNormal, , "[ID_ARTICLE]=" & [REF_ARTICLE] 'récupération de la variable nombre d'équipements 'Forms!F_AffecterEquipement.Form!nbart = rt End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Form_Load() 'MsgBox DCount("ID_stock", "R_affect") If DCount("ID_stock", "R_affect")=0 Then MsgBox "Aucun enregistrement" DoCmd.Close acForm, "F_AffecterEquipement" Exit Sub End If Forms!F_AffecterEquipement.Form!nbart = Forms!NomDuFormulaireDuBouton!QUANTITE_TYPE '... End Sub
Partager