Replace opdracht

[fredvanhezel]

Replace opdracht

Ik heb een query waarin gegevens over fotos staan deze wil ik kopiëren naar een map export. Dus van pad”oud” naar pad”nieuw”. Deze records zijn geselecteerd met een selectie “waar” nu wil ik met een for next lus deze reeks bestanden kopiëren naar map “pad nieuw” nadat elke record is gekopieerd moet de selectie van dat record omgezet worden van “waar naar “onwaar” hierdoor wordt steeds het eerste rec gekopieerd.

De kopieerslag gaat goed alleen de replace opdracht loopt niet foutcode
“instructie ongeldig buiten type blok”

Wie kan mij aangeven waar ik het fout doe

BVD
Fred

Code:
Private Sub Kn_export_Click()
Dim db As Database
Dim rec As Recordset
Dim aantalRecords As Integer
Dim pad As String
Dim padn As String
Dim selectie As Boolean

Set db = CurrentDb()
Set rec = CurrentDb.OpenRecordset("ExpSpv") 'naam query
rec.MoveLast
aantalRecords = rec.RecordCount
rec.MoveFirst
pad = rec.Fields("pad") ' pad oud
padn = rec.Fields("padN") ' pad nieuw
selectie = rec.Fields("v-s") ' selectie is waar

FileCopy pad, padn
replace(selectie, waar, onwaar) As Boolean
End Sub

 

[snb]

Ook jouw VBEditor heeft een hulpfunktie F1 en een lemma Replace.