Sürekli formda bir önceki kaydın değeri

[axion]

Merhaba arkadaşlar benim bir sorunum var. Şöyleki bir veritabanı hazırlıyorum ve bilgi girişlerini bölgelere göre yapıyorum. Bir bölgeyi seçtiğimde yeni kayıt girmek yada var olan bir kayıt üzerine geldiğimde ekteki örnekte Deger 1 alanını seçtiğimde yukarıdaki kutuya seçtiğim Deger 1 alanından bir önceki kayıttaki değeri alıp yukarıdaki kutuya yazdırmak istiyorum. Ekteki örnekte Deger 1 den herhangi bir alanı seçtiğimde bir önceki alanın kaçıncı kayıt olduğunu öğrenebiliyorum ama benim istediğim Deger 1 alanındaki verinin ne olduğunu öğrenmek bu işlemi excelde yapabiliyorduk. örneğin A1 hücresine bir değer yazıyoruz A2 yede bir değer yazıyoruz ve B2 hücresine =A2-A1 şeklinde fark aldırabiliyoruz ben bu işlemin aynısını access ile yapmak istiyorum. Yardımlarınız için şimdiden teşşekkür ederim.

 

[gulsum1]

sen hem bir önceki kayıttaki değer diyorsun hemde a+b diyorsun hangisi eğer a+b diyorsan c.value=a.value+b.value

yok bir önceki kaydın değeri diyorsan

Private Sub yenikayıt_Click()
Dim rs As New ADODB.Recordset
rs.Open "verininalındığıtablonunadı", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
Fiyat.Value = rs("Fiyat")
Set rs = Nothing
Set conn = Nothing
End Sub

 

[axion]

Bir önceki kaydı öğrenme

Bir önceki kaydın verisini öğrenirsem =a+b olayını zaten yapabileceğim. örneği çalıştırın ve açılır listeden Aliağa yı seçin sürekli formda Aliağa ya ait veriler gelecek oradan Deger1 alanında 30 verisi olan alanı seçtiğinizde yukarıdaki Metin12 kutusuna bir önceki kaydın Deger1 alanındaki veri yani 20 yazılsın boş kayıt alanını seçersem bu kez bir önceki kayıt olan 30 değerini yazsın istediğim olay bu...

 

[gulsum1]

eğer sıralı bir id kullanıyorsan bu kod işini görür
Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
rs.Open "depo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
If rs("malid") = malid.value-1 Then
malmiktar&#305;.value=rs("malmiktar&#305;")

End If
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
Set conn = Nothing
End Sub

 

[axion]

sıralı idye sahip değil

Sorun da burda zaten kayıtlar farklı bölgeler için farklı zamanlarda girildiğinden bir bölge için kayıtlar sıralı olmuyabiliyor.