ich bin in der VBA Programmierung Anfänger und benötige Hilfe.
Mithilfe eines Scriptes möchte ich in Access(2000)
die Felder 2 und 3 auslesen; immer wenn in Feld2 „AA0“ steht soll der Inhalt von Feld3 in Feld1 kopiert werden.
Wenn ein anderer Wert als „AA0“ in Feld 2 steht, soll der letzte ermittelte Wert aus Feld3 in Feld1 kopiert werden.
Die Datensätze von AA0 bis zum nächsten AA0 gehören zusammen und sollen so über den geschriebenen Wert in Feld1 kenntlich gemacht werden.
Am besten ist dieses an einem Beispiel deutlich zu machen:
Mithilfe eines Scriptes möchte ich in Access(2000)
die Felder 2 und 3 auslesen; immer wenn in Feld2 „AA0“ steht
soll der Inhalt von Feld3 in Feld1 kopiert werden.
Wenn ein anderer Wert als „AA0“ in Feld 2 steht, soll der
letzte ermittelte Wert aus Feld3 in Feld1 kopiert werden.
Dim db As Database, rst1 As Recordset, stText As String
Set db = CurrentDb
Set rst1 = db.OpenRecordset(„Hier Tabellennamen eintragen“, dbOpenDynaset)
stText = „“
rst1.MoveFirst
Do Until rst1.EOF = True
If rst1![Feld2] = „AA0“ Then
stText = rst1![Feld3]
rst1.Edit
rst1![Feld1] = stText
rst1.Update
Else
rst1.Edit
rst1![Feld1] = stText
rst1.Update
EndIf
rst1.MoveNext
Loop
rst1.Close
Set rst1 = Nothing
db.Close
Set db = Nothing
Beachte bitte, dass solange eine leere Zeichenfolge übertagen wird, bis zum ersten Mal „AA0“ gefunden wird. Da hattest Du ja nichts zu den Startbedingungen gesagt.