Kod:
Private Sub Form_Open(Cancel As Integer)
Liste28 = DMax("[No]", "SADELİSTE1")
End Sub
Ayrıca SADELİSTE 'de No alanını azalan sıralarsanız yukarıdaki koda gerek kalmaz. Bu da başka bir fikir.
Private Sub Form_Open(Cancel As Integer)
Liste28 = DMax("[No]", "SADELİSTE1")
End Sub