+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form uzerinde bulunan kutuya siradaki kaydi getirme (/konu-form-uzerinde-bulunan-kutuya-siradaki-kaydi-getirme.html)
Form uzerinde bulunan kutuya siradaki kaydi getirme - moskovic - 06/12/2010
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.
Cvp: Form uzerinde bulunan kutuya siradaki kaydi getirme - ayhan2122 - 06/12/2010
Örneği, Sorgu1 'i de göz önünde bulundurarak inceleyin.
Cvp: Form uzerinde bulunan kutuya siradaki kaydi getirme - okileturc - 06/12/2010
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
Cvp: Form uzerinde bulunan kutuya siradaki kaydi getirme - ayhan2122 - 06/12/2010
Evet hocam, güzel olmuş. Farklı bir bakış açısı : )
Cvp: Form uzerinde bulunan kutuya siradaki kaydi getirme - moskovic - 06/12/2010
tesekkur ederim...