Discussion :

[Bertr@nd]

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

[jmfmarques]

code = frmretour.lstretour.ItemData(frmretour.lstretour.ListIndex)
NumM = frmretour.cbomembre.ItemData(frmretour.cbomembre.ListIndex)

Dans ta table, oui, mais là ?

[Mr NGANZI]

Code :

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

req = " SELECT * FROM Pret WHERE Code= " & code & " AND NumM = " & NumM & ""

ça veut dire que req est du type String!
et puis je trouve ton code un peu touffu.
je t'en propose un autre tout à l'heure

Édité par zazaraignée

[Mr NGANZI]

Code :

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

Dim req As Integer

mets plutot

Code :

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

Dim req As String

Édité par zazaraignée

[Mr NGANZI]

si ça ne marche pas explique moi ce que ton code doit faire et je vais essayer de le faire à ma manière.

[Bertr@nd]

je suis un abruti ...c'était évidemment le type qui n'allait pas...
dsl pour le dérangement ^^

POur l'aspect touffu , j'ai fait du copier/coller , il n'a pas pris l'indentation des lignes de code et j'ai enlevé tous les commentaires...

Merci encore

[Bertr@nd]

tant que j'y suis....
j'ai un autre problème...
j'exécute soi cette requête :
auj étant la date du jour

Code :

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

req2 = "insert into OBJET values(" & code & ", '" & txttitre.Text & "',#" & auj & "#, " & original & "," & fr & ", " & donneur & "," & CodeSup & "," & CodeLang & ")"

soi celle-ci :

Code :

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

req2 = "insert into OBJET (Code, Titre, DateEntree, Original, Fr, NumM, CodeSup) values (" & code & ", '" & txttitre.Text & "', #" & auj & "#, " & original & ", " & fr & ", " & donneur & "," & CodeSup & ")"

Dans les 2 cas, le message d'erreur est :
"Aucune valeur donnée pour un ou plusieurs des paramètres requis."

J'utilise une simple base Access.
pareil...je ne vois pas pquoi...