+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. (/konu-altformda-hucre-ile-degil-satir-ile-islem-yapma-hakkinda.html)
Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - Oğuz Türkyılmaz - 22/04/2023
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 SubYü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.
RE: Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - berduş - 22/04/2023
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
RE: Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - Oğuz Türkyılmaz - 22/04/2023
(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.
RE: Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - berduş - 22/04/2023
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
RE: Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - Oğuz Türkyılmaz - 22/04/2023
(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.
RE: Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - berduş - 22/04/2023
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ıklayarakdemiştiniz Yani düğmeye basilmayı zaten siz istemiştiniz