Discussion :

[Sam 069]

Bonjour,

Je dispose d'un problème sur la requete SQL du recordset. Elle est pourtant toute simple. Je ne comprend pas d'ou vien l'erreur. A savoir que "Manifold" est du texte.
Merci de votre aide.

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
Private Sub Btn_Manifold_Click()

Dim r As Recordset
Dim compteur As Integer

Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO=" & MANIFOLD)
compteur = 0
Do While Not r.EOF
If r("POL_DATE").Value - r("REPORT_DATE").Value = 3 Then
compteur = compteur + 1
End If
r.MoveNext
Loop
r.Close
MsgBox "Le nombre de livraison exacte est de :" & " " & compteur, vbOKOnly
End Sub

[LostIN]

Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO=" & MANIFOLD)

Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO=" & MANIFOLD &" )


Pense à doubler les cotes si MANIFOLD peut contenir des ', sinon ca boguera aussi

[LostIN]

oups

Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO=" & MANIFOLD &" )"

[Thepince]

si Manifold est du texte, tu fais :
Set r = CurrentDb.OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO='" & MANIFOLD & "'")

[Sam 069]

Merci de vos réponse mais j'ai toujours un problème. Toujours situé au niveau de la requete. Le message d'erreur indique
"RunTime error 13
Type mismatch"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO='" & MANIFOLD & "'")
compteur = 0
Do While Not r.EOF
If r("POL_DATE").Value - r("REPORT_DATE").Value = 3 Then
compteur = compteur + 1
End If
r.MoveNext
Loop
r.Close
MsgBox "Le nombre de livraison exacte est de :" & " " & compteur, vbOKOnly
End Sub

Merci de votre aide

[LostIN]

il manque un argument dans le .OpenRecordset.

[Sam 069]

Exactement le même souci avec la methode de LOSTIN.

Le problème peut-il venir du fait que latable est une table lié vers un fichier Excel. ???

[LostIN]

oups

Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO=" & MANIFOLD &" )"

re oups, je fais vraiment n'importe quoi !!!!
dim req as string
req = "SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO='" & MANIFOLD & "'"
CurrentDb().OpenRecordset (req,...)

[Alexandre Sahli]

bonjour,

Code :

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

Set r = CurrentDb().OpenRecordset("SELECT POL_DATE,REPORT_DATE FROM Liens_Data_Indicateurs WHERE COMP_NO='" & MANIFOLD & "'")

pour le texte il faut mettre des ' ou des "
A+

[sansli]

est-ce que la référence DAO 3.6 est référencé dans VBE

[LostIN]

ah oui, ca c la première chose à vérifier.