ich habe ein kleines Access-Problemchen, aber da es eher VBA betrifft, dachte ich mir, dass Ihr mir bestimmt auch hier im Excelforum helfen könnt :-).
Meine Frage:
Wie kann ich alle Werte die nicht gefunden werden sammeln und am Ende als Auflistung in einer MsgBox ausgeben?
Treffer = 0
kTreffer = 0
Do While Not rst.EOF
rstv = rst.Fields("Profil_Kennung")
rstvd = rst.Fields("Erstabgabenhistorie")
rstl.FindFirst ("Profil_Kennung = '" & rstv & "'")
If rstl.NoMatch Then
kTreffer = kTreffer + 1
Debug.Print rstv ' An dieser Stelle sollen die falschen Werte gesammelt werden
Else
rstl.Edit
rstl.Fields("Daten").Value = rstl.Fields("Daten") '& "#" & rstvd
rstl.Update
Treffer = Treffer + 1
End If
rst.MoveNext
Loop
MsgBox "Es wurden " & Treffer & " übereinstimmungen gefunden." & vbCrLf & kTreffer & " konnten _
nicht gefunden werden.", vbInformation + vbOKOnly, Info
Ich möchte, dass am Ende in der MsgBox alle Werte aufgelistet werden, die nicht gefunden wurden. Mit "Debug.Print rstv" (siehe Code) funktioniert es, allerdings hätte ich gern das Ergebnis nicht als Debug.Print, sondern als Inhalt in einer MsgBox. Ich bräuchte quasi eine Variable die in der Schleife mit den Werten befüllt wird und am Ende in der MsgBox ausgegeben wird.Hätte da jemand ne Idee?
LG,
Manu