Bonjour,
J'ai un soucis lors de la mise à jour d'une table (T1) à l'un d'un bouton click situé sur un formulaire (f1)
J'ai des champs 1,2,3 que je remplis sur mon formulaire, le champs 1 peut être égal à A,B... et si il vaut A un seconde formulaire (f2) qui souvre où je remplis les champs4 et 5.
Lorsque je clique sur le bouton je veux donc crééer une ligne dans ma table T1 qui comprenne les champs 1,2,3 contenu dans mon formulaire ainsi que les champs 4 et 5 que jai renvoyé, à partir du formulaire f2 (qui se ferme ensuite) dans une table t2 lorsque champ 1 = A.
Les champs 4 et 5 s'enregistrent sans soucis dans t2 et mon code ci-dessous fonctionne pour les champs 1,2,3 mais lorsque les champs 4 et 5 existe au lieu de les prendres dans t2 j'ai un msgbox qui apparait pour me faire saisir ces deux paramètres (qu'ils entre dans ma table T1 au lieu des champs 4 et 5 que j'avais saisie dans f2 et qui se sont bien mises dans t2).
Quelqu'un pourrait-il m'éclaircir?
Merci!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Private Sub Commande66_Click() On Error GoTo Err_Commande66_Click Dim stDocName As String Dim stLinkCriteria As String If Forms![f1]![champs 1] <> "A" Then Mysql = "INSERT INTO T1([champs 1],[champs 2],[champs 3])" & _ " VALUES(Forms![f1]![champs 1], Forms![f1]![champs 2],Forms![f1]![champs 3])" DoCmd.RunSQL Mysql End If If Forms![f1]![champs 1] = "A" Then Mysql = "INSERT INTO T1([champs 1],[champs 2],[champs 3],[champs 4],[champs 5)" & _ " VALUES(Forms![f1]![champs 1], Forms![f1]![champs 2],Forms![f1]![champs 3],table!,[t2]![champs 4],table![t2]![champs 5])" DoCmd.RunSQL Mysql End If Exit_Commande66_Click: Exit Sub Err_Commande66_Click: MsgBox Err.Description Resume Exit_Commande66_Click End Sub
Partager