Bonjour je debute avec les connexions ACCESS et EXCEL, aujourd'hui j'arrive à lire les champs avec un recordset, mais il existe dans mon projet des champs avec des valeurs multiples je n'arrive à lire ses champs qu'à l'aide d'un recordset FILS (on ne peut utiliser une clause where dans un champ à valeur multiple, car il faut considérer le champs à valeur multiple comme un recordset).

Ma préoccupation c'est de pourvoir trouver des données spécifiques dans un jeu d'enregistrement qui provient d'un champ à valeur multiple. je veux faire un findfirst dans mon recordset fils : ChmpMltVlu

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
Dim Condition As String
Dim chemin_bdREV As String: Dim Enregistrmt As Integer
Dim Chmp As Integer: Dim Enregistrmt2 As Integer
Dim DnnBsRV5 As Recordset: Dim Enregistrmt3 As Integer
Dim ChmpMltVlu As Recordset
 
 
Set DnnBsRV5 = base.OpenRecordset("SELECT * FROM SOUTIEN WHERE Code_benef='" & Range("B" & Enregistrmt).Value & "' AND Date_soutien >= #" &  Format(CStr(Range("B3").Value), "mm/dd/yyyy") & "# AND Date_soutien <= #" & Format(CStr(Range("D3").Value), "mm/dd/yyyy") & "# ORDER BY Code_benef ASC", dbOpenDynaset)
 
Set ChmpMltVlu = DnnBsRV5!Alimentation.Fields
 
        If ChmpMltVlu.RecordCount > 0 Then
        Cells(Enregistrmt, 9).Value = 1
        End If
 
       ChmpMltVlu.FindFirst; Alimentation = "A11"
       DnnBsRV5.FindFirst CStr(Alimentation = "A11")
 
        If Not ChmpMltVlu.NoMatch Then
        MsgBox "merci"
        End If
 
        If ChmpMltVlu.RecordCount > 0 Then
 
        Cells(Enregistrmt, 8).Value = 1
        End If
Je vous remercie de bien vouloir m'aider