Bonjour
Je souhaite concaténer en vba les champ et leur valeurs d'une table.
Mais j'ai une erreur "Item not found in this collection"
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
30
31 Public Function concatenerCol(ID_Table As Long) As String Dim i As Integer Dim SQL As String Dim DB As DAO.Database Set DB = CurrentDb Dim rs As DAO.Recordset Dim rsProp As DAO.Recordset SQL = "SELECT * FROM matable WHERE ID_Table = " & ID_Table Set rs = DB.OpenRecordset(SQL, dbOpenDynaset) Set rsProp = CurrentDb.OpenRecordset("matable") ' je ne veux pas les 2 premiers champs qui sont mes index For i = 2 To rs.Fields.Count With rsProp ' Ici une condition pour ne pas prendre les champs qui finissent par _J1 ou qui contiennent NON If Not rs.Fields(i).Name Like "*_J1" or rs.Fields(i).Value <> "NON" Then concatenerCol = concatenerCol & rs.Fields(i).Name & ": " & rs.Fields(i).Value & Chr(13) End If End With Next rs.Close End Function
Je ne vois pas mon erreur.
Merci par avance pour vos conseils.
Partager