Discussion :

[KEROZEN]

Bonjour,

Débutant sous Access et SQL, j'ai créé un formulaire dans lequel l'utilisateur à la possibilité de saisir une plage de date pour extraire des données. J'ai donc utiliser une instruction SQL imbriquée dans un code en VB :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub SeqLaunch_Click()
Dim BorneDateInf As Date
Dim BorneDateSup As Date
 
SQL = "select Date_operation From Analyse_des_operations Where date1= & BorneDateInf & AND date2= & BorneDateSup &"
 
End Sub

Seulement voila, lorsque je clique sur le bouton pour lancer cette requête, rien ne se passe. Pas d'affichage du résultat, ni même de message d'erreur !

Voyez-vous quelque chose dans ce code qui poserait problème ?
Merci pour votre aide.

[STEF_1]

Salut,

Essaye avec cela :

Code :

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

1
2
3
4
 
SQL = "select Date_operation From Analyse_des_operations " & _
         "Where date1= #" & Format(BorneDateInf,"mm/dd/yyyy") & "# AND date2= #" & format(BorneDateSup,"mm/dd/yyyy") & "#"
End Sub

De plus pour exploiter cette requète dans une fonction il faut remplir un Recordset avec ce SQL

Code :

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

1
2
3
4
 
Dim Rs as dao.Recordset
set rs = currentDb.Openrecordset(SQL)
Etc...

A+

[seacat]

bonjour,

A quel moment les bornes

Dim BorneDateInf As Date
Dim BorneDateSup As Date

sont-elles renseignées par l'utilisateur ?

[STEF_1]

En effet, il faut rempir tes variables :

Code :

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

1
2
3
 
BorneInf = me.NomZoneBorneInf
BorneSup = me.NomZoneBorneSup

ou NomZoneBorneInf et NomZoneBorneSup sont les noms de tes zone dans ton formulaire