Merhaba. ekteki veritabanı dosyasında gösterilen ve liste kutusuna Kaydet düğmesi ile kaydedilen verilerin üzerine tek tıklandığında bu verilerin yukarıdaki ilgili metin kutularına aktarılmasını ve üzerinde düzeltme yapılabilmesini nasıl sağlayabilirim?
Liste kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[klasor_ıd] = " & Str(Nz(Me![Liste7], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
sayın @
mmert06 liste kutusunun çift tıklama olayına aşağıdaki kodu eklerseniz değiştirmek istediğiniz kayda gitmiş olursunuz
istediğiniz değişiklikleri yaptıktan sonra kaydedebilirsiniz
yalnız alan, tablo yada form adlandırmada Türkçe karakter sorun çıkarabilir
"klasor_ıd" ıd yerine küçük i daha uygun olur. iyi çalışmalar
Private Sub Liste7_DblClick(Cancel As Integer)
Recordset.FindFirst "klasor_ıd=" & Me.Liste7.Value
End Sub
sayın @ozanakkaya ve @"haliliyas" çok tşk ederim.