AccessTr.neT

Tam Versiyon: Form uzerinde bulunan kutuya siradaki kaydi getirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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...