Discussion :

[PapyMouzot]

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.

[Gado2600]

bonjour,
Essaie avec cela. Je doute que le problème soit corrigé mais on ne sait jamais.
Ensuite, si le problème persiste, lance l'exécution pas-à-pas et vérifie qu'il passe bien dans ton With Rec_Cgne. Cela te permettra d'isoler le problème mais la syntaxe du AddNew est correcte.

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 = CurrentDB.OpenRecordset("fic_campagnes", dbopendynaset)
          With Rec_Cgne
           .AddNew
           .Fields("clef_individu").value = Var_Clef_Ind
           .Fields("Campagne").value = Var_Text1
           .Fields("Position").value = Var_Text4
           .Fields("date_début").value = Var_Date1
           .Fields("date_fin").value = 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 !"
end select

[PapyMouzot]

Bonjour,

J'ai déjà "

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End Select

" dans ma procédure...

En fait, suivant la nature du formulaire, je capte les infos spécifiques. Mais j'ai une procédure et une seule. Cela permet de limiter les buggs.

J'ai donc l'architecture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Select Case True
Case = 1
Case = ...
Case Else
End Select

Quelque soit le formulaire employé, le résultat est le même. VBA sélectionne le bon case, descend les lignes une à une, affiche "tout va bien"...
Et à l'ouverture de la table, rien !

A se remettre au latin et au grec ancien !!

Cordialement,
Bernard.

[Gado2600]

Peux-tu envoyé ta base ? Que je puisse voir cela de plus près ?

[loufab]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Select Case True
      Case Var_Nom_Frm_Dep = "012_Frm_Crea_Campagne"

Si tu n'as qu'un branchement Case il vaut peut-être mieux utiliser un If.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if  Var_Nom_Frm_Dep = "012_Frm_Crea_Campagne" then

Surtout qu'un Select Case True indique que tu utilises plusieurs tests avec des variables différentes à évaluer. Sinon tu utiliserais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Select Case Var_Nom_Frm_Dep

Dans ce cas l'utilisation des if est plus opportun.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If ... then
else if ... then
...
endif

fic_campagnes est bien une table ?

Cette ligne seule ne sert à rien. Aucune transaction n'a été initialisée. (à moins que tout le code ne soit pas posté.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DBEngine.CommitTrans

Cordialement,

[alassanediakite]

Surtout qu'un Select Case True indique que tu utilises plusieurs tests avec des variables différentes à évaluer.

[alassanediakite]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Select Case True

@+