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
 
        Dim  i As Integer
        Dim tableresult() As DataRow
        Dim filtre As String
 
 
            filtre = "code_unique = '"
            filtre = filtre & "gr1" & "'"
            tableresult = DtResult.Select(filtre)
 
 
            For i = 0 To (tableresult.Length - 1)
                Dtsauv.NewRow()
                Drsauv(i) = tableresult(i)
            Next i
            UpdateConnexion_sauv("resultat")
J'ai cette partie de recherche de données dans une table access 'result' de toute les lignes qui commencent par "GR1"
et je veut les recopier dans une autre table access de nom 'sauv'

Petit probleme je ne recupere que les ligne qui sont gr1 et pas les lignes qui commence par gr1

et quand je veut les copier dans la table sauv ca me marque une erreur:
"La reference d'objet n'est pas definie a une instance d'ojet"[/code]