Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında.

1 2 3
22/04/2023, 19:30

Oğuz Türkyılmaz

Merhaba konuyu nasıl açacağımı bilemedim ama şöyle bir şey yapmak istiyorum. Alt formdaki ID hücresine çift tıkladığımda o satırdaki tüm verileri 2.bir forma ADO ile çekebiliyorum. Ama asıl yapmak istediğim kullanıcı ID hücresi yada başka bir hücrenin içine tıklama yapmak zorunda kalmasın, altformdaki veri bulunan hangi satıra tıklanırsa o satır komple seçilsin ve çift tıklama yada tanımlanacak yeni bir butonun tıklanması yordamına yazacağım kod çalışsın verileri diğer forma aktarsın.

Kod:
Private Sub ID_DblClick(Cancel As Integer)

DoCmd.OpenForm "F_PoliceGiris"

Dim strSQL As String

strSQL = "SELECT * FROM  T_Policeler WHERE ID =" & Me.ID & ""

Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection
        
If Not rs.BOF Then

Form_F_PoliceGiris.TextBox_ID = rs!ID
Form_F_PoliceGiris.TextBox_IslemTarihi = rs!IslemTarihi
Form_F_PoliceGiris.TextBox_PoliceNo = rs!PoliceNo
Form_F_PoliceGiris.ComboBox_PoliceTipi = rs!PoliceTipi
Form_F_PoliceGiris.ComboBox_PlakaNo = rs!PlakaNo
Form_F_PoliceGiris.ComboBox_AracTipi = rs!AracTipi
Form_F_PoliceGiris.ComboBox_Acentesi = rs!Acentesi
Form_F_PoliceGiris.ComboBox_TeminatTipi = rs!TeminatTipi
Form_F_PoliceGiris.TextBox_TeminatTutari = rs!TeminatTutari
Form_F_PoliceGiris.TextBox_PoliceBaslangic = rs!PoliceBaslangic
Form_F_PoliceGiris.TextBox_PoliceBitis = rs!PoliceBitis
Form_F_PoliceGiris.TextBox_PoliceTutari = rs!PoliceTutari
Form_F_PoliceGiris.ComboBox_DovizCinsi = rs!DovizCinsi
Form_F_PoliceGiris.TextBox_IlkTaksitTarihi = rs!IlkTaksitTarihi
Form_F_PoliceGiris.ComboBox_TaksitSayisi = rs!TaksitSayisi
Form_F_PoliceGiris.TextBox_TaksitTutari = rs!TaksitTutari
Form_F_PoliceGiris.ComboBox_PoliceDurumu = rs!PoliceDurumu
Form_F_PoliceGiris.TextBox_Aciklama = rs!Aciklama
Form_F_PoliceGiris.TextBox_DosyaYolu = rs!DosyaYolu

Form_F_PoliceGiris.btn_Kaydet.Enabled = False
Form_F_PoliceGiris.btn_Guncelle.Enabled = True


End If
rs.Close
Set rs = Nothing

End Sub





Yüklediğim örnekte F_AraçListesi formunda ID hücresine çift tıklandığında açılan ARAÇTANIMLAMA formuna bilgileri alıyor ve istediğim güncelleme işlemini yapıyorum.
22/04/2023, 20:58

berduş

Alt formun form_current olayına eklenebilir ama istediğiniz yöntem biraz sorunlu gibi bu şekilde olursa kayıtlar arasında dolaşmak istediğiniz zaman diğer form otomatik olarak açılır
22/04/2023, 21:15

Oğuz Türkyılmaz

(22/04/2023, 20:58)berduş yazdı: Alt formun form_current olayına eklenebilir ama istediğiniz yöntem biraz sorunlu gibi bu şekilde olursa kayıtlar arasında dolaşmak istediğiniz zaman diğer form otomatik olarak açılır

@berduş hocam Formun üstünde düzenle diye bir buton olsa, altformda herhangi bir kaydın üstünde tıkladığımda o satır seçili hale gelir ve  alt üst ok tuşları ile diğer kayıtlar üzerinde gezilirek düzenlemek istediğim kaydın üstüne geldiğimde, düzenle butonuna tıklayarak o satırdaki ID ye ait kaydın tüm verilerini açılacak olan formun üzerine çekebilirim diye hayal ediyordum. Yani kullanıcı illa ID hücresine nişan almak zorunda kalmasın.
22/04/2023, 21:35

berduş

yukardaki kodu bir düğmeye yazıp sadece strSQL = "SELECT * FROM  T_Policeler WHERE ID =" & Me.ID & "" kısmını alt formun Id kısmıyla çağırmanız yeterli olmaz mı? altformAdi.form.Id gibi
22/04/2023, 21:51

Oğuz Türkyılmaz

(22/04/2023, 21:35)berduş yazdı: yukardaki kodu bir düğmeye yazıp sadece strSQL = "SELECT * FROM  T_Policeler WHERE ID =" & Me.ID & "" kısmını alt formun Id kısmıyla çağırmanız yeterli olmaz mı? altformAdi.form.Id gibi

Cursor'ı yine Alt Formun ID alanının içine odaklamamız gerekecek sanırım @berduş hocam. Çift tıklamayacağız da Butona basacağız. Pek bir şey değişmiyor. Amaç satırı seçerek butonla kodu çalıştırmak işi bitirmek ama olmuyorsa bu şekilde de kullanılır.
22/04/2023, 22:00

berduş

Açıkçası amacınızı anlamadım bir kaydı seçmeden onu nasıl forma göndereceksiniz?
Ayrica 3. mesajinizda
(22/04/2023, 21:15)Oğuz Türkyılmaz yazdı: ile diğer kayıtlar üzerinde gezilirek düzenlemek istediğim kaydın üstüne geldiğimde, düzenle butonuna tıklayarak
demiştiniz Yani düğmeye basilmayı zaten siz istemiştiniz
1 2 3