Form uzerinde bulunan kutuya siradaki kaydi getirme

Merhabalar

ekteki ornekte,

pers formu pers tablosuna bagli

metin6 ismindeki iliskisiz metin kutusu urun tablosundan son kaydi aliyor

metin 6 nin hemen altindaki butona basildiginda metin 6daki deger urun tablosundan aldigi veriden bir sonraki kaydi goruntulesin

bunu nasil yapabiliriz.

Örneği, Sorgu1 'i de göz önünde bulundurarak inceleyin.

Ayhan hocam elinize sağlık
Ben farklı bir metod uyguladığım için
örneğimi ekliyorum. Ürün sıra no yerine
combo satır no kullanarak yaptım
Selamlar

Private Sub Komut9_Click()

Dim listem As Long

Dim satirlar As Long

listem = Forms!pers!Metin6.ListIndex

satirlar = Forms!pers!Metin6.ListCount

If listem = satirlar - 1 Then

Forms!pers!Metin6.SetFocus

Forms!pers!Metin6.ListIndex = 0

Else

Forms!pers!Metin6.SetFocus

Forms!pers!Metin6.ListIndex = listem + 1

End If

End Sub

Evet hocam, güzel olmuş. Farklı bir bakış açısı : )

tesekkur ederim...