Discussion :

[pra3t0r]

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 :

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

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

[ProgElecT]

FAQ-VB6 Pourquoi ma requête, qui a un critère sur une date, ne me renvoie aucun enregistrement ?

[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

Edit : ça ne marche toujours pas

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

Code :

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

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?

[SfJ5Rpw8]

Bonsoir,
quel est le type données de ton champ : HoraireSeance ...? si c'est du texte tu dois rajouter des guillements : '

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

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

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

[pra3t0r]

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 :

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

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