Discussion :

[Jean-Marc]

Voici un code que j'ai sur un click sur un bouton qui permet d'afficher le résultat dans un sous-formulaire, je crois que l'erreur vient du code sql (le message dit que j'ai un opérateur absen).
Pouriiez-vous m'aider car j'en perd mon latin.

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
Private Sub RechercheBtn_Click()
 
Dim Db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
 
Set Db = CurrentDb
Set rst = Db.OpenRecordset("ReqCoursEleveDate", dbOpenDynaset)
Dim dateDebut, dateFin As String
dateDebut = Me.DateDebTxt.Value
dateFin = Me.DateFinTxt.Value
NomEleve = EleveListe.Column(1) 'liste qui reprend le nom des élèves
strSQL = "select * from [ReqCoursEleveDate] where [Nom] =" & NomEleve & "AND [DateCours] Between #" & Format(dateDebut, "mm/dd/yyyy") & "# and #" & Format(dateFin, "mm/dd/yyyy") & "# "
Set rst = Db.OpenRecordset(strSQL, dbOpenDynaset)
Me.RechEleveDateCousSousForm.Form.RecordSource = strSQL
Me.RechEleveDateCousSousForm.Requery
rst.Close
 
Set rst = Nothing
Set Db = Nothing
Db.Close
 
End Sub

Je vous remercie pour votre aide

[Gabout]

Bonjour,

Pour commencer (il y plus spécialiste que moi) essaie

Code :

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

strSQL = "select * from ReqCoursEleveDate where [Nom] ='" & NomEleve & "' AND [DateCours] Between #" & Format(dateDebut, "mm/dd/yyyy") & "# and #" & Format(dateFin, "mm/dd/yyyy") & "# "

Après, il faudra voir s'il ne faut pas encadrer les dates de ' comme pour le Nom

A+

[Jean-Marc]

Merci, cela fonctionne