Wie Formular mit letzten Datensatz öffnen?

Computer: Software & Programmierung Microsoft Access
#1

Hallo Experten,

helft mir bitte, ich stehe völlig auf dem Schlauch!
Ich möchte ein Formular öffnen, in dem noch die Angaben des zuletzt eingetragenen Datensatzes stehen. Diese will ich dann verändern (Zum Beispiel steht an einer Stelle: Laufindex7 und der muss nur auf 8 erhöht werden)und neu abspeichern. Leider funktioniert das bei mir nicht.
Die Änderung soll schon manuell erfolgen, nur das Öffnen des Datensatzes ist schwieriger…

Danke für Tipps und Hinweise!
Gruß
Mareike

#2

Ergänzung
Hallo nochmal,

ich arbeite mit Access 2003 und bisher öffnet sich das Formular über VBA:

DoCmd.OpenForm „Formular_Name“

Danke und Gruß
Mareike

#3

Hallo,

vorrausgesetzt deine Datasource hat eine passende Sortierung, dann geht das recht einfach mit

DoCmd.OpenForm „Formular_Name“
DoCmd.GoToRecord , , acLast

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Leider nicht ganz
Hallo Peter,

danke erstmal für deine Antwort.
Der Befehl öffnet mir zwar den letzten Datensatz, nur leider kann ich die dann veränderten Daten nicht als neuen Datensatz abspeichern. Es wird der letzte Datensatz verändert. Das möchte ich aber nicht.
Vielleicht habe ich mich mal wieder wirr ausgedrückt.

Trotzdem schonmal danke!

Gruß
Mareike

Hallo,

vorrausgesetzt deine Datasource hat eine passende Sortierung,
dann geht das recht einfach mit

DoCmd.OpenForm „Formular_Name“
DoCmd.GoToRecord , , acLast

Tschau
Peter

#5

Hallo Mareike,

OK, da hasst du dich etwas missverstaendlich ausgedrueckt.
Wenn ich dich jetzt richtig verstehe, willst du die Daten des letzten Datebsatzes in den neuen Datensatz uebernehemen ?!?!?

Dazu braucht es eine kleine VBA-Routine…

mittles
DoCmd.GoToRecord , , acNew
zu einem neuen Datensatz navigieren.

Dann in einer VBA-Routine:

Dim db as Database
Dim rec as Recordset

Set db = CurrentDb
Set record = db.OpenRecodset(„Select * from MeineTabelle Order By MeinIndex“)
if not record.EOF
record.MoveLast
meinFormularFeld1 = rec.DBFeld1
meinFormularFeld2 = rec.DBFeld2
meinFormularFeld3 = rec.DBFeld3
…

end if

Ich hoffe das ich dein Problem jetzt verstanden habe und das die das weiter hilft

Tschau
Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

1 Like
#6

Jau! Genau! Danke und *
Vielen Dank!
Gruß
Mareike