Bonjour,
J'ai essayer d'ajouter des enregistrement dans une table a partir d'une formulaire, mais le problème est que le code ne fonction pas et me générer une erreur:
les champ de la table:
Date Date/Heure Date, abrégé
Client Texte court
DUM Texte court
Devis Monétaire
Et le formulaire avec des cboS suival:
cboDateDe
cboDateA
cboClient
cboDum
cboDevis
Btn: btnOk avec le code suivant:
d'autre part, j'ai besoin de développer ce code pour que l'heur que j'ai remplie de cboDateA, les donner sont saies répétitive jusqu'à la date déclaré dans cet combo box.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub btnOk_Click() Dim db As DAO.Database Dim sql As String Set db = CurrentDb sql = "INSERT INTO tblDevis ( [Date], Client, Dum, Devis ) " _ & "VALUES (tblDevis.[Date])= " & Me.cboDatede.Value & ",(tblDevis.[Client])= " & Me.cboClient.Value & ",(tblDevis.[Dum])= " & Me.cboDum.Value & ",(tblDevis.[Devis])= " & Me.cboDevis.Value & ";" DoCmd.RunSQL sql Set db = Nothing End Sub
Est ce que il a une support dans ce sens?
Salutations
Dellal
Partager