Problème de code pour éliminer les champs vide entre 2 tables

**kinine** · 14/01/2013, 13h26

bonjour à tous,

voilà je débute en vba et j'ai un soucis avec une table source dont je veux filtrer les champs vide dans une table destination sachant que mes clés primaires sont identiques entre les deux tables. La table destination a donc juste les champs remplis de la table source, et chaque champs doit s'écrire après le champs précédant.

sauf que je n'arrive pas à coder ma fonction

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
dim mabase as database
dim rst1, rst2 as recordset
Dim valeurchamps As Integer
Dim calculchamps As Integer
Dim valchamptest, valchemptest2 As String
Set rst1 = mabase.OpenRecordset("source")
 
Dim i, ii As Integer
 
 
With rst1
.MoveFirst
Do Until rst1.Fields(1).Value = cle_primaire 's'aligne sur le recordset voulu
.MoveNext
Loop
For i = 2 To rst1.Fields.Count 'boucle sur ma table source et récupère chaque valeur de champs 
 
         Select Case rst1.Fields(i).Value
         Case Is <> EMPTY
        ' MsgBox ("non nul")
            'valeurchamps = champs.Value
 
 
                valchamptest = rst1.Fields(i).Value
                MsgBox ("valeurchamps en cours :" & valchamptest)
 
              Set rst2 = mabase.OpenRecordset("destination")
 
 
                   With rst2
                   For ii = 2 To rst2.Fields.Count
 
                   .MoveLast 's'aligne sur le dernier enregistrement
                   If rst2.Fields(ii).Value = "0" Then GoTo nxt
                   .Edit
                     rst2.Fields(ii).Value = valchamptest '<<<<<<<<<========== ERREUR ICI
                     .Update
 
 
nxt:
Next ii
 
 
              ' MsgBox ("valeur champs rst2 :" & rst2.Fields(ii).Value)
                 End With
 
       ' End If
 
        Case Is = empty
 
        MsgBox ("nul")
 
        End Select
 
Next
 
 End With
 mabase.Close
End Sub