Bonjour à tous !!
J'ai un petit souci : le résultat de la requête est le suivant : 'Erreur d'exécution '13' Type incompatible'

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
Private Sub Form_Load()
Dim req As Integer
Dim rstpret As New Recordset
Dim NumM As Integer
Dim code As Integer
 
code = frmretour.lstretour.ItemData(frmretour.lstretour.ListIndex)
NumM = frmretour.cbomembre.ItemData(frmretour.cbomembre.ListIndex)
 
req = " SELECT * FROM Pret WHERE Code= " & code & " AND NumM = " & NumM & ""
rstpret.Open req, Cnx
Do While Not rstpret.EOF
    If IsNull(rstpret("DateRetour")) Then
        txtnom.Text = frmretour.cbomembre.Text
        txtdate.Text = rstpret("DateEmprunt")
        txtduree = CDate(Date) - rstpret("DateEmprunt")
    End If
    rstpret.MoveNext
Loop
 
rstpret.Close
End Sub
Dans ma table Prêt, NumM et Code sont de type Numérique entier.

Je précise que que les noms des variables et de la table sont corrects (respect des majuscules...).
Je dois avouer que je ne sais pas pquoi

Merci d'avance