Probleme code sql

Version imprimable

25/01/2006, 13h32
Micavk

Probleme code sql

Bonjour j'ai un petit probleme avec un un code sql

Code:

DoCmd.RunSQL "UPDATE Réservation SET Date = " & dteDate & ", salle = " & strSalle & ", nom = " & strNom & ", options = " & stroptions & ", Comm = " & strComm & ", heurec = " & dtebeg2 & ", heuref = " & dteend2 & " WHERE resnum = " & strnum

Je me demande bien ce qu'il y a de faux ... merci de m'aidé :)

Je pense qu'il y a un pb au niveau de la date :

Code:

1
2
 
DoCmd.RunSQL "UPDATE Réservation SET Date = #" & format(dteDate,"mm/dd/yyyy" & "#, salle = " & strSalle & ", nom = " & strNom & ", options = " & stroptions & ", Comm = " & strComm & ", heurec = " & dtebeg2 & ", heuref = " & dteend2 & " WHERE resnum = " & strnum

A++

en faite il y aussi un pb sur tous les zone

Code:

1
2
 
DoCmd.RunSQL "UPDATE Réservation SET Date = #" & format(dteDate,"mm/dd/yyyy" & "#, salle = '" & strSalle & "', nom = '" & strNom & "', options = '" & stroptions & "', Comm = '" & strComm & "', heurec = '" & dtebeg2 & "', heuref = '" & dteend2 & "' WHERE resnum = " & strnum

A toi de voir pour mettre les bons délimiteurs (' pour tu texte; # pour des date, ...)

25/01/2006, 13h55
Micavk

Après vos conseil j'ai essayé de faire comme vs avez dis et ca plante toujours, meme avec le format

Code:

DoCmd.RunSQL "UPDATE Réservation SET Date = #" & dteDate & "#, salle = '" & strSalle & "', nom = '" & strNom & "', options = '" & stroptions & "', Comm = '" & strComm & "', heurec = #" & dtebeg2 & "#, heuref = #" & CStr(dteend2) & "# WHERE resnum = '" & strnum & "'"
25/01/2006, 13h58
STEF_1

Il y a t'il un message ?
A tu fait la rq dans l'éditeur d'access, fait copié colle du code SQL et le re-travailler dans VBA en remplacant les variables

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Commande42_Click()
Dim cnAccess As New ADODB.Connection
Dim rstRecordset1 As New ADODB.Recordset
Set cnAccess = CurrentProject.Connection
Dim response As Integer, stroptions As String, strnum As String
Dim strNom As String, strSalle As String, strComm As String
Dim dteDate As Date, dtebeg2 As Date, dteend2 As Date
 
If Check4.Value = True Then
stroptions = "TV  "
End If
 
If Check6.Value = True Then
stroptions = stroptions + "Video  "
End If
 
If Check8.Value = True Then
stroptions = stroptions + "Projecteurs  "
End If
 
If Check10.Value = True Then
stroptions = stroptions + "Audio  "
End If
 
If Check14.Value = True Then
stroptions = stroptions + "Grand écran  "
End If
 
strNom = Text16
 
strComm = Texte22
 
strSalle = Combo2
 
dteDate = Text20
 
strnum = Texte34
 
dtebeg2 = Texte30
 
dteend2 = Texte28
 
response = MsgBox("Modifier cette réservation ?", vbYesNo, "Controle")
If response = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Réservation SET Date = #" & dteDate & "#, salle = '" & strSalle & "', nom = '" & strNom & "', options = '" & stroptions & "', Comm = '" & strComm & "', heurec = #" & dtebeg2 & "#, heuref = #" & CStr(dteend2) & "# WHERE resnum = '" & strnum & "'"
DoCmd.SetWarnings True
End If
End Sub

je sais il y a un peu de trop déclarer ;) cest parceque sinon je dois trop retaper :)

25/01/2006, 14h11
STEF_1

ça ne répond pas vraiment à la question que je t'ai posé.

Pour moi la meilleur solution :
1°) faire la requète manuellement dans l'éditeur de req d'access
2)° La testé
3°) copier le SQL dans Vba
4°) remplacer les paramétre de la req SQl par
#" & format(Date(),"mm/dd/yyyy") & "# pour les dates
'" & StrNomVariable &"' pour le texte
" & LngNomDeLaVariable & " pour le numérique
25/01/2006, 14h27
pc75

Bonjour,

Petite parenthèse : A ta place, je ne nommerai pas un champ avec le mot Date. Il y a de fortes chances que ce soit un mot réservé.
25/01/2006, 14h31
STEF_1

c'était pour l'exemple :wink: car c'est en effet un mot réservé
25/01/2006, 14h44
Micavk

Code:

DoCmd.RunSQL "UPDATE Réservation SET Date = '" & dteDate & "' where resnum = " & strnum

c'est cette partie la qui fait l'erreur sql
25/01/2006, 15h03
yoyopi

La syntaxe pour l'insertion ou la modification d'un champ date est :

"INSERT INTO MaTable (MaDate) VALUES (#" & Format(strdate1, "mm/dd/yyyy") & "#)"

Et je pense qu'il te manque un guillemet à la fin de ton update après ta variable du where
25/01/2006, 15h28
fdraven

Comme Pc75 et STEF_1 te l'ont fait remarqué, ton problème vient du fait que tu as nommé un champ de ta table par un mot réservé par access : Date.

En espérant t'avoir aidé.
25/01/2006, 15h28
cafeine

pour le débogage de requête engendrées par du code

:arrow: http://cafeine.developpez.com/access...el/debugprint/