AccessTr.neT

Bul · 22/04/2023, 19:30

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.

Bul · 22/04/2023, 20:58

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

Bul · 22/04/2023, 21:15

(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. Img-grin

Bul · 22/04/2023, 21:35

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

Bul · 22/04/2023, 21:51

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

Bul · 22/04/2023, 22:00

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

AccessTr.neT

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

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri