Discussion :

[franckimmo]

Bonjour à tous,
Je cherche la possibilité de remplacer une requête par une solution VBA qui consisterait dans un formulaire "FormSaisieFolio" d'insérer la valeur de trois champs "Folio", "Date", "IDVirmt" dans une autre table "TblVirmts" au lieu de les consigner dans ma table "Feuil2".

En résumé je vous indique la composition actuelle de ma base de données.

Tables: "CpteBancaire" données des fournisseurs.
" Feuil2" données des ordres de virements effectués.
"TblVirmts" données regroupant le numéro du virement de la table Feuil2, le numéro de folio bancaire et la date du virement .

Formulaires: "FrmSaisie" Sert pour saisir les ordres de virement au différent fournisseurs.
"FrmSaisieFolio" sert pour saisir dès réception de l'extrait de compte de la banque de saisir le N°Folio et la date du débit.

Pour l'instant j'utilise la "requête2" pour insérer les nouvelles saisies Folio et date du formulaire "SaisieFolio". Cette pratique n'est pas réellement convenable c'est pour cela que je cherche une syntaxe pour éviter d'employer cette requête.
Une bonne journée à tous
A+
Franck

[DMboup]

Bonjour à tous,
Je cherche la possibilité de remplacer une requête par une solution VBA qui consisterait dans un formulaire "FormSaisieFolio" d'insérer la valeur de trois champs "Folio", "Date", "IDVirmt" dans une autre table "TblVirmts" au lieu de les consigner dans ma table "Feuil2".

Avec SQL sous VBA ca donne quelque chose du genre

Code :

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

1
2
 
Docmd.RunSQL("INSERT INTO TblVirmts(Champ1,Champ2,Champ2) VALUES(" & Me.Folio &", " & me.date & ", "& me.IdVirmt &")")

PS : Si le code n'est pas écrit sur le formulaire en cours, il faudra remplacer me. par forms!NomFormulaire!

[franckimmo]

Salut DMBoup,

Quand j'inscris ton code dans le formulaire après mise à jour du champ DateVirmt du formulaire chargé, j'ai une erreur d'exécution *+*ç qui indique erreur de syntaxe dans l'instruction insert into. Ci-joint la syntaxe inscrit dans mon évènement.

Code :

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

1
2
3
4
Private Sub DateVirmt_AfterUpdate()
DoCmd.RunSQL ("INSERT INTO TblVirmts(Folio,Date,IDVirmt) VALUES(" & Me.Folio & ", " & Me.Date & ", " & Me.IDVirmt & ")")
 DoCmd.Requery
End Sub

Il faut que tu saches que les champs on la même orthographe dans le formulaire que la table "tblVirmts". Est ce que cela peut avoir une conséquence sur l'erreur encourue.
Merci à toi d'avoir répondu aussi rapidement, mais c'est tu pourquoi j'ai cette erreur.
Bien à toi

Franck