Requete SQL INSERT INTO .. VALUES

Bonjour

Je cherche depuis le VBA à insérer des valeur dans une Table depuis des variables.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim sql As String Dim A As Date, B As String A = Date B = "A542253" C = 1 sql = "INSERT INTO [T-Historique]([DateInsertion],[Collaborateur],[Type]) values (A,B,C)" DoCmd.RunSQL (sql) End Sub

---

Je n'arrive pas à mettre dans VALUES les variables.
Merci de votre aide.

Bonjour,

Normalement, je dirais qu'il faut que tu y ailles de cette façon:

" & c & "

Pour fins d'exemple, voici un bout de code que j'utilise:

Code:

---

1 2 3 4 5 6

Dim strtablename As String Dim newvalue As Integer strtablename = ID newvalue = Forms!tâchesa.Priorité DoCmd.RunSQL "UPDATE tâches SET priorité = (priorité+1) WHERE [id]='" & strtablename & "' and [priorité]>=" & newvalue & " "

---

Ça fonctionne également sur un insert into. Simplement, comme tu l'as fait,
mettre une virgule entre chaque variable.

Par contre, pour une valeur Date, je ne suis pas certain que ça fonctionne...

En espérant que ça puisse t'aider

Merci

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

' Tu as oublier ceci :   Dim C As Integer   'ta requète ( date : #" & A & "#, integer : " & C & ", String : '" & B & "')   sql = "INSERT INTO [T-Historique]([DateInsertion],[Collaborateur],[Type]) values (#" & A & "#, '" & B & "', " & C & ")"   CurrentDb.Execute(sql)   'Fais attention à la date, en général il faut changer son format avec Access.   'Si besoin voici comment faire :   Dim A, date_, date2 As date   A = Date, date_ = Format(A, "mm/dd/yyyy") 'Format mois/jour/année date2 = Format(A, "dd/mm/yyyy" 'Format jour/mois/année

---