Hallo,
het valt me wat moeilijk om de situatie uit te leggen maar ik doe mijn best.
Ik heb volgende code:
via deze code wordt er een waarde aan de variabel "Getuigschriften" toegekend.
Deze waarde kan bvb zijn: "9632189-9632190-9632191"
binnen de code worden er dus 3 records gevonden: 9632189, 9632190 en 9632191
Nu wil ik de code zodanig aanpassen dat telkens er een record gevonden wordt (bvb 9632189), er naar de tabel DATA gegaan wordt, in elk record waar "geattesteerd" de waarde 9632189 heeft, het veld in DATA "betaald" op true gezet wordt.
Ik dacht een nieuwe SQL in te geven na "Do While Not .EOF"
om hier telkens het veld "referentie mee te pakken wat de waarde van bvb 9632189 bevat, maar dat lukt me niet
Iemand een handje?
Bedankt
JP
het valt me wat moeilijk om de situatie uit te leggen maar ik doe mijn best.
Ik heb volgende code:
Code:
Dim Getuigschriften As String
Dim SQL As String
Dim i As Integer
SQL = "SELECT REFERENTIE FROM Betalingen WHERE pingping = True;"
With CurrentDb.OpenRecordset(SQL)
.MoveLast
.MoveFirst
Do While Not .EOF
If i < .RecordCount And Not Getuigschriften = "" Then Getuigschriften = Getuigschriften & "- "
Getuigschriften = Getuigschriften & !REFERENTIE
.MoveNext
i = i + 1
Loop
.Close
End With
via deze code wordt er een waarde aan de variabel "Getuigschriften" toegekend.
Deze waarde kan bvb zijn: "9632189-9632190-9632191"
binnen de code worden er dus 3 records gevonden: 9632189, 9632190 en 9632191
Nu wil ik de code zodanig aanpassen dat telkens er een record gevonden wordt (bvb 9632189), er naar de tabel DATA gegaan wordt, in elk record waar "geattesteerd" de waarde 9632189 heeft, het veld in DATA "betaald" op true gezet wordt.
Ik dacht een nieuwe SQL in te geven na "Do While Not .EOF"
om hier telkens het veld "referentie mee te pakken wat de waarde van bvb 9632189 bevat, maar dat lukt me niet
Iemand een handje?
Bedankt
JP