runtime error 3075 syntax error (comma)

Version imprimable

Bonjour,

Je dois faire une requête vers une base de donnée Access afin de compter le nombre de résultat dans une table "Réservation" avec pour condition : que la date de séance et l'horaire de réservation.
En lançant la requête j'obtiens une erreur runtime 3075 syntax error (comma) in query expression 'DateSeance = 01/01/2000, HoraireSeance = 9h15'.

Voici mon
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Generer_Click() Dim RGenerer As String Dim Nb As Integer Nb = 0 If IsDate(TDateSeance.Text) = True Then RGenerer = "select * from RESERVATION where DateSeance = " & TDateSeance.Text & " , HoraireSeance = " & CHoraireSeance.Text & " " Set rs1 = base.OpenRecordset(RGenerer) rs1.MoveLast Nb = rs1.RecordCount + 1 LNb = Nb End If End Sub
Où se trouve le problème dans ma requête? ^^"

Merci pour vos futur réponse :ccool:

09/06/2011, 13h25
ProgElecT

FAQ-VB6 Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ?
09/06/2011, 13h45
pra3t0r

Merci ! je comprenais pas pourquoi j'avais une requête INSERT avec données sous format date et ça marchais, alors que ici, avec une simple requête SELECT ça ne marchais pas :lol:

Edit : ça ne marche toujours pas :?

j'ai essayé de faire comme dans la FAQ :

Code:

RGenerer = "select * from RESERVATION where DateSeance = #" & Format(TDateSeance, "mm/dd/yyyy") & "# , HoraireSeance = " & CHoraireSeance.Text & " "

Mais toujours la même erreur... Est-ce que j'ai mal recopié le code du formatage?
09/06/2011, 21h01
SfJ5Rpw8

Bonsoir,
quel est le type données de ton champ : HoraireSeance ...? si c'est du texte tu dois rajouter des guillements : '
09/06/2011, 21h41
pra3t0r

Bonsoir =)

Alors dans ma base de donnée, mon champs HoraireSeance est de type Texte car j'ai remarqué que le format heure sous Access ne permet que le date sous forme " 10:00" alors que dans mon projet je suis sous un format : " 10h00".
Dans ma requête :

Code:

RGenerer = "select * from RESERVATION where DateSeance = #" & Format(TDateSeance, "mm/dd/yyyy") & "# , HoraireSeance = '" & CHoraireSeance.Text & "' "

"CHoraireSeance" est une combobox, je sais pas si ça pose un problème ici mais juste pour dire que ce n'est pas une textbox ;)

Bonjour,

J'ai modifié qqch dans ma requête car je me suis aperçus d'une erreur similaire en changeant la " , " entre deux conditions par un "And".
Je ne sais pas si c'est correct mais je n'ai plus l'erreur :|
Malgré ça ^^ j'ai une autre erreur cette fois :
"Runtime error '3021' No Current record"

J'ai essayé plusieurs choses : Ma table était vide, je l'ai remplie d'un enregistrement "manuellement" . => aucune différence
L'erreur étant sur le "rs.movelast", j'ai essayé de mettre ce bout de code avant, après mon "recordcount" cela change rien.
Code:

1 2 3 4 5 6 7 Nb = 0 If IsDate(TDateSeance.Text) = True Then RGenerer = "SELECT * from RESERVATION WHERE DateSeance = #" & Format(TDateSeance, "mm/dd/yyyy") & "# And HoraireSeance = '" & CHoraireSeance.Text & "' " Set rs1 = base.OpenRecordset(RGenerer) rs1.MoveLast Nb = rs1.RecordCount + 1 LNb = Nb

Salut

Si tu utilises ADO, essais comme cela

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        RGenerer = "SELECT * from RESERVATION WHERE DateSeance = #" & Format(TDateSeance, "mm/dd/yyyy") & "# And HoraireSeance = '" & CHoraireSeance.Text & "' "
        On Error Resume Next
        Set rs1 = base.OpenRecordset(RGenerer)
        If Err.Number <> 0 Then
            MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur non gérée"
            Exit Sub
        End If
        If rs1.EOF Then
            rs1.Close
            MsgBox "Aucun enregistrement disponible pour cette requête", vbInformation, ""
            Exit Sub
        End If
	'c'est bon       
	rs1.MoveLast
        Nb = rs1.RecordCount + 1
        LNb = Nb

Cela fonctionne peut être aussi avec DAO.
Si tu as le message Aucun enregistrement disponible pour cette requête et que tu es sûr qu'un enregistrement correspond dans ta table, c'est que la formulation de ta requête et mal rédigée.

10/06/2011, 20h08
pra3t0r

Bonsoir,

Alors oui je vais essayé mais enfait j'ai oublié de dire une petite précision;
Je dois, pour ma réservation, Générer un numéro sous une certaine forme (Un numéro de réservation quoi). Ce numéro est composé du jour, date, l'horaire de la séance et un numéro qui s'incrémente ( par exemple : Ve-10/06/2011-9h00-x (x étant un numéro qui s'incrémente sous certaines conditions)).

Si il existe déjà une réservation le vendredi 10/06/2011 à 9h00 alors le numéro sera 2 ; Si il n'existe aucune réservation pour un jour et une heure alors le numéro est de 1.

Tout ça pour dire que j'avais penser faire un select count sur ma table mais compter seulement les résultats où la date et la séance correspondent à une textbox date et une textbox horaire. Dans quel cas, si aucunes réservations était trouvées je ferais Nb = rs1.recordcount +1 (Nb initialisé à 0)

Je sais pas si j'ai été clair ^^'
merci pour votre patience :ccool:

Bonjour,

J'ai mis ton code, il me disais qu'il n'y avait aucun enregistrement; Ce qui est normal finalement si je veux faire une réservation pour une date et une heure donnée et que personne n'a encore réserver pour celles-ci. Donc j'ai ajouté :

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
If rs1.EOF Then
            rs1.Close
            MsgBox "Aucun enregistrement disponible pour cette requête, une nouvelle réservation sera créée", vbInformation, ""
 
           Nb = Nb + 1
           jour = Format(TDateSeance, "dddd")
           jour1 = Left(jour, 2)
 
           date1 = TDateSeance.Text
           heure = CHoraireSeance.Text
 
           Text4.Text = jour1 & "-" & date1 & "-" & heure & "-" & Nb
        End If
    'c'est bon
    rs1.MoveLast
        Nb = rs1.RecordCount + 1
        LNb = Nb
        jour = Format(TDateSeance, "dddd")
           jour1 = Left(jour, 2)
 
           date1 = TDateSeance.Text
           heure = CHoraireSeance.Text
 
           Text4.Text = jour1 & "-" & date1 & "-" & heure & "-" & Nb

pour avoir ma bonne nomenclature de numéro de fiche.

Je reviens une dernière fois sur le sujet de mon post : le problème des dates

J'ai une requête pour afficher des infos dans une msflexgrid.
Et je dois y afficher une date. Seulement la date n'est plus dans la requête mais dans l'affichage de celle-ci. j'ai essayé de bricoler qqch par rapport à ce que j'ai lu et ce que vous m'avez dit de faire (avec le format(date, "mm/dd/yyyy")) ==>
Code:

1 2 3 4 5 Do While rs.EOF = False MSFlexGrid1.AddItem rs("NomOrganisme") + Chr(9) + rs("VilleOrganisme") + Chr(9) + rs("[N°FicheReservation]") + Chr(9) + rs("Format(DateSeance, "mm/dd/yyyy")) + Chr(9) + rs("HoraireSeance") rs.MoveNext Loop
J'ai tout essayé et il me dit toujours error type mismatch. c'est sur c'est la date qui met la m... d’après mes tests. Comment je dois structurer le code pour que cela marche?

14/06/2011, 12h36
iclic
Bonjour,

L'erreur n'est pas toujours là où on la croit...

Et si tu faisais un essai en séparant tes additems
Code:

1 2 3 4 MSFlexGrid1.AddItem rs("NomOrganisme") + Chr(9) MSFlexGrid1.AddItem rs("VilleOrganisme") + Chr(9) 'etc..
pour être certain où se produit l'error type mismatch.

Tu as un guillemet en trop dans ta ligne Additem
Code:

1 2 3 4 5 MSFlexGrid1.AddItem rs("NomOrganisme") & Chr(9) _ & rs("VilleOrganisme") & Chr(9) _ & rs("[N°FicheReservation]") & Chr(9) _ & rs(Format(DateSeance, "mm/dd/yyyy")) & Chr(9) _ & rs("HoraireSeance")
Je pencherai dailleurs plutôt pour

Code:

& Format(rs("DateSeance"), "mm/dd/yyyy") & Chr(9) _

14/06/2011, 13h56
pra3t0r

Merci beaucoup ça marche impec' maintenant :)

:lun: