Probleme requete paramétrée en VBA

Version imprimable

Bonjour à tous
De nouveau besoin d'aide:lol:
Jai une requete parametée que j'ouvre en vba.
Le paramètre est dans la requete est [choix] sur le champ DOSSRefIntLalux
Mon code ci dessous semble ouvrir la requête mais impossible de lire un champ.
Toute aide est la bienvenue.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim qdf2 As DAO.QueryDef Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim RefDossier As String 'Instancie la base de données Set db = CurrentDb RefDossier = Me.lstNoDossier.Column(0, i) Set qdf2 = db.QueryDefs("ReqLaluxFormDupl2") qdf2.Parameters("choix") = RefDossier & " * " Set rst2 = qdf2.OpenRecordset(dbOpenDynaset) rst2.MoveFirst Debug.print rst2.Fields("Montant_htva").Value
Je ne comprends pas pq cela ne fonctionne pas. Comme s'il n'y avait pas d'enregistrement dans le recordset.
Pourtant, qd j'exécute la requete, elle trouve 2 enregistrements.

30/03/2019, 18h35
Invité

a mon avis l'erreur vient d'ici car les parametres n'accepte pas une recherche LIKE avec "*":

Code:

RefDossier & " * "
30/03/2019, 18h55
grommerch

Citation:

Envoyé par galoir

a mon avis l'erreur vient d'ici car les parametres n'accepte pas une recherche LIKE avec "*":

Code:

RefDossier & " * "

Bsr,
J'ai egalement essayé avec = RefDossier & "*"; = & Chr(34) & RefDossier & chr(34)
tjrs le meme prob
30/03/2019, 19h18
hyperion13

Salut
Placez ceci

Code:

RefDossier = Me.lstNoDossier.Column(0, Me.lstNoDossier.ListIndex)
30/03/2019, 22h08
grommerch

Citation:

Envoyé par hyperion13

Salut
Placez ceci

Code:

RefDossier = Me.lstNoDossier.Column(0, Me.lstNoDossier.ListIndex)

Désolé meme probleme. Rien à faire
J'ai l'impression que ma querydef ne trouve aucun enregistrement, mais pourqoui???
31/03/2019, 09h54
Invité

peut-on voir la requete en question ?
refdosssier est une reférence complète a un dossier ou seulement le debut d'une ref à un dossier ?
31/03/2019, 10h09
grommerch

Citation:

Envoyé par galoir

peut-on voir la requete en question ?
refdosssier est une reférence complète a un dossier ou seulement le debut d'une ref à un dossier ?

Bjr,

RefDossier estune refence complete mais que je dois retrouver dans DOSSRefIntLalux
exemple: refDossier = 1301001 et DOSSRefIntLalux = 1301001Dup1

Merci
31/03/2019, 11h00
Invité

la requete devrait contenir un truc comme ça dans la clause WHERE xxx LIKE [Choix] & "*"

Citation:

Envoyé par galoir

la requete devrait contenir un truc comme ça dans la clause WHERE xxx LIKE [Choix] & "*"

Oui effectivement ma requete contient cela.
Mais j'ai changé de méthode en recupérant un autre valeur et en ouvrant un nouveau recordset
Judte pour info:

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Set db = CurrentDb
Set qdf = db.QueryDefs("ReqLaluxForm")
Set rst = qdf.OpenRecordset(dbOpenDynaset)
 
 i = Me.lstNoDossier.Column(1, i)
'verifie s'il y a des references selectionnées dans la liste déroulante
 
  If Me.lstNoDossier.ItemsSelected.Count = 0 Then
    MsgBox "Aucun dossier n'a été sélectionné"
    Exit Sub
  Else
'affiche le sablier
  DoCmd.Hourglass True
  Ret = 0
  For Each i In Me.lstNoDossier.ItemsSelected
 
    RefDossier = Me.lstNoDossier.Column(0, i)
    Dupl = DLookup("DOSS_Nb_Dupl", "Dossiers", "DOSS_num_dossier=" & Chr(34) & RefDossier & Chr(34))
    NoSinistre = DLookup("DOSS_no_sinistre", "Dossiers", "DOSS_num_dossier=" & Chr(34) & RefDossier & Chr(34))
    If Dupl > 0 Then
        Set rst3 = db.OpenRecordset("SELECT * FROM Dossiers WHERE DOSS_no_sinistre = " & Chr(34) & NoSinistre & Chr(34))
        ChomTot = 0
        DomTotHTVA = 0
         While Not rst3.EOF
            RefDomm = rst3.Fields("DOSS_num_dossier").Value
            ChomTot = ChomTot + rst3.Fields("DOSS_chomage_total").Value
            Set rst4 = db.OpenRecordset("SELECT * FROM Dommages WHERE DOMM_doss_num_dossier = " & Chr(34) & RefDomm & Chr(34))
            DomTotHTVA = DomTotHTVA + rst4.Fields("DOMM_montant_HTVA").Value
         'Passer au suivant
            rst3.MoveNext
         Wend
        DomTotHTVA = Format(DomTotHTVA, "0.00")
        TauxTva = rst4.Fields("DOMM_taux_TVA").Value
        TvaTot = EuroArrondi(DomTotHTVA * TauxTva)
        DomTotTtc = Format((DomTotHTVA + TvaTot), "0.00")
 
 
        'Libération des objets
            rst3.Close
            rst4.Close
            Set rst3 = Nothing
            Set rst4 = Nothing
    End If

Merci à tous et à bientôt