Bonjour à tous,
Après avoir récolter les valeurs dans un formulaire, je veux sauvegarder dans une table. Dans la fenêtre d'exécution, tout va bien. Les variables sont correctes.

Voici le code que j'ai écris.
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
 
Select Case True
      Case Var_Nom_Frm_Dep = "012_Frm_Crea_Campagne"
          Dim Rec_Cgne As DAO.Recordset
          Set Rec_Cgne = Pbg_Data.OpenRecordset("fic_campagnes")
          With Rec_Cgne
           .AddNew
           .Fields("clef_individu") = Var_Clef_Ind
           .Fields("Campagne") = Var_Text1
           .Fields("Position") = Var_Text4
           .Fields("date_début") = Var_Date1
           .Fields("date_fin") = Var_Date2
           .Update
 
           MsgBox " Update "
           Debug.Print Var_Clef_Ind: Debug.Print Var_Text1
           Debug.Print Var_Text4: Debug.Print Var_Date1
           Debug.Print Var_Date2
         End With
 
          DBEngine.CommitTrans
          Rec_Cgne.Close
          Set Rec_Cgne = Nothing
          MsgBox "Fichier Campagnes à jour !"
Et au résultat, rien dans la table !
Où donc est l'erreur ?

Cordialement,
Bernard.