Im Listenfeld zum letzten DS springen bei nicht fortlaufender ID

[pjo12345]

Hallo,

ich möchte in einem Listenfeld den letzten DS markieren. Bis jetzt mache ich das wie folgt:

Code [Auswählen] Erweitern

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

[oma]

Hallo,

versuchs doch mal so;

Code [Auswählen] Erweitern

Private Sub Form_Open(Cancel As Integer)
   
    Me!Liste0 = Me!Liste0.ItemData(Me!Liste0.ListCount - 1)
   
End Sub

Gruß Oma

[pjo12345]

Funktioniert, Danke...