Hello,
Er 'moet' ergens een oplossing te vinden zijn door wat programmeerwerk in VBA.
Ik weet niet direct hoe maar mijn eerste gedacht is om aan elk record uit je tabel (of query te zeggen) een nieuw nummer te geven.
Als je dan alles overloopt (met een do loop) dan kan je even/oneven van elkaar scheiden door ze bijvoorbeeld een appart kleurtje te geven.
'k Ga me daar eens mee bezig houden en laat je dan zeker nog iets weten!
UPDATEMisschien is er iemand die effe mee kan brainstormen.
Ik heb voorlopig al volgende code:
Public Sub oef01()
Dim cnn As New ADODB.Connection
Dim r As New ADODB.Recordset
Dim num As Integer
Set cnn = CurrentProject.Connection
num = 1
r.Open "qry1", cnn, adOpenDynamic, adLockPessimistic
Do
Debug.Print r!NaamEnVoornaam
num = num + 1
Loop Until r.EOF
End Sub
Probleem is echter dat hij 'valt' over het feit dat ik debug.print wil doen terwijl ik al eof/bof zou bereikt hebben ...
Ik vermoed dat dat te maken heeft met het feit dat ik via r.open een query ipv een tabel wil openen, mijn vraag is dus: hoe krijg ik die query op een andere manier geopend?
Groeten,
StriKe