Fakat mevcut kodun çalışmama sebebi nedir?
Private Sub Liste11_DblClick(Cancel As Integer)
DoCmd.GoToRecord , , acGoTo, Liste11.Column(0)
End Sub
Private Sub Liste11_DblClick(Cancel As Integer)
DoCmd.GoToRecord , , acGoTo, Liste11.Column(0)
End Sub
SELECT (select count([Kimlik]) from malzeme where [Kimlik]<=tbl_malzeme.[Kimlik]) AS sirano, tbl_malzeme.lokasyon, tbl_malzeme.ocak, tbl_malzeme.malzeme_tur FROM malzeme AS tbl_malzeme;
(22/02/2017, 23:46)ozanakkaya yazdı: Merhaba, eklediğiniz koddaki Liste11.Column(0) kısmı, kaçıncı kayda gidileceğini belirler. TAblodaki 64 kimlik numaralı satır 1, 65 kimlik numaralı kayıt 2 66 ise 3. kayıt. siz liste kutusunda ilk satırı çift tıkladığınızda Liste11.Column(0)'in değeri 64 olduğu için ve DoCmd.GoToRecord koduna göre 64. kayıt olmadığı için kod çalışmıyor.
Liste kutusunun satır kaynağındaki sorguyu
SELECT (select count([Kimlik]) from malzeme where [Kimlik]<=tbl_malzeme.[Kimlik]) AS sirano, tbl_malzeme.lokasyon, tbl_malzeme.ocak, tbl_malzeme.malzeme_tur FROM malzeme AS tbl_malzeme;
kodu ile değiştirerek, Kimlik alanı yerine kayda göre sıralı numara ekletirseniz belirttiğiniz kod çalışır. Çünkü liste11.column(0) değeri 1,2,3 şeklinde sıralı.
Umarım açıklayabilmişimdir.
Alıntı:Fakat mevcut kodun çalışmama sebebi nedir?
DoCmd.GoToRecord , , acGoTo, Liste11.Column(0)
With Me.Form
.Recordset.FindFirst "Kimlik=" & Me.Liste11
End With