salut

Je souhaiterai utiliser plusieur recordset ds mon code mais il me met l'erreur suivante sur la ligne en rouge.

Précisions :
- sur le rsPrenomPatient il me met (ds le debugger) :
<variables objet ou variables de bloc whith non définie>
- apres le message d'erreur :
"Erreur d'execution '-2147217904 (80040e10)
Aucune valeur données pour un ou plusieur des paramètres requis"
- et rqsql2 me renvoyant (msgbox) :
SELECT PrenomPatient FROM Patient WHERE NomPatient = DUPOND AND PrenomPatient like 'r*'

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
24
25
26
27
28
29
Private Sub procProposition()
    'Connexion à la base courante
    Dim cnCliniqueOuverte As ADODB.Connection
    Set cnCliniqueOuverte = Application.CurrentProject.Connection
    'En fonction de ce que l'on veut :
'(...Recordset 1...)
    If PrenomOuiNon Then
        Dim rsPrenomPatient As New ADODB.Recordset
        Dim rqSQL2 As String
        rqSQL2 = "SELECT PrenomPatient FROM Patient WHERE " & rqParametre & ";"
        Set rsPrenomPatient = cnCliniqueOuverte.Execute(rqSQL2)
        TxtPrenomPatient = rsPrenomPatient("PrenomPatient")
        rsPrenomPatient.Close
        Set rsPrenomPatient = Nothing
    End If
'(...Recordset 3 à 6 ...)
    'Ferme la connexion    cnCliniqueOuverte.Close
    Set cnCliniqueOuverte = Nothing
End Sub
 
 
'avec 
 
    '(...)
    rqParametre = "NomPatient = " & [TxtNomPatient]
    PrenomOuiNon = AdresseOuiNon = CPOuiNon = VilleOuiNon = True
    procProposition
    PrenomOuiNon = AdresseOuiNon = CPOuiNon = VilleOuiNon = False
    '(...)
Info supplémentaire :
ma table Patient(NumSSPatient, NomPatient, PrenomPatient, (...)) est une table lié depuis excel est comprend plus de 62200 lignes.


Évidemment j'ai consulté la FAQ, et les diverses outils disponible sur ce site (d'ailleur je l'utilise constamment depuis le début de mon stage il y a 3 semaines) mais rien à faire j'ai rien trouver pour cet erreur ...
dc je suis ouvert à tt sugestion !

merci d'avance