Discussion :

[phoon]

Bonjour

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

Code :

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

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.

[myrddin99]

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 :

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

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

[Taylorised]

Bonjour,

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
' 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