Discussion :

[adelsunwind]

Bonjour j 'essaie à partir d'un recordset ( 15 lignes ) d'en créer un nouveau et de copier dans celui les valeurs de l'ancien ( quand les valeurs nouvelles sont nulles ) et il me met erreur. Pas d'enregistrement en cours

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
 
   sSQL = "Select * From [Référence LOC] WHERE [LOC]= '" & i & "'  ;"
       Set rs = db.OpenRecordset(sSQL)
  rs.AddNew
 
  For j = 2 To 29
     If rs.Fields(j) = Null Then
    rs.MovePrevious   
    tampon = rs.Fields(j)  
    rs.MoveNext
    rs.Fields(j) = tampon    
    rs.Update
    End If
 
    Next  
 
   'rs.Update
   rs.Close
   Set rs = Nothing

Merci aux bonnes ames

[MC2]

Même question que l'autre post mais il y a plus simple avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

insert into ... as select ...