Discussion :

[Micavk]

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

Code :

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

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é

[STEF_1]

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

Code :

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

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

[STEF_1]

en faite il y aussi un pb sur tous les zone

Code :

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

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, ...)

[Micavk]

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

Code :

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

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

[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

[Micavk]

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

[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

[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é.

[STEF_1]

c'était pour l'exemple car c'est en effet un mot réservé

[Micavk]

Code :

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

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

c'est cette partie la qui fait l'erreur sql

[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

[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é.

[cafeine]

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

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