Hallo,
ich möchte in einem Listenfeld den letzten DS markieren. Bis jetzt mache ich das wie folgt:
Private Sub Form_Open(Cancel As Integer)
maxID = DMax("ID", "meineTabelle")
Me!Liste0.Requery
Me!Liste0 = Me!Liste0.ItemData(maxID - 1)
End Sub
Das funktioniert aber nur solange die ID fortlaufend nummeriert ist. Wurden einzelne DS gelöscht entstehen ja "Lücken". Wie kann ich das eleganter lösen?
mfg pjo12345
Hallo,
versuchs doch mal so;
Private Sub Form_Open(Cancel As Integer)
Me!Liste0 = Me!Liste0.ItemData(Me!Liste0.ListCount - 1)
End Sub
Gruß Oma
Funktioniert, Danke...