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

1 2 3

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.

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, 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.

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: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.

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