eğer varsa aşağıdakine benzer bir kod işinizi görebilir
id=otomatik sayı alanınız
tablo2=çalıştığınız tablonun adı
Sira.Text=üstten değer almasını istediğiniz alan
kusura bakmayın yazmayı unutmuşum değiştiğinde olayına yazılacak
Private Sub Sira_Change()
Dim maxid, txtSec As Integer
Dim txtDeger As String
maxid = DMax("id", "tablo2", "id<" & Me.id)
txtDeger = Dlookup ("sira", "tablo2", "id=" & maxid)
txtSec = Len(Me.Sira.Text)
If (Not IsNull(Me.Sira.Text)) And Me.Sira.Text <> "" And InStr(1, txtDeger, Me.Sira.Text) > 0 Then
Me.Sira.Text = txtDeger
Me.Sira.SelStart = txtSec
Me.Sira.SelLength = Len(txtDeger) - txtSec
End If
End Sub