Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
14
501

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

Çözüldü #1
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

[Resim: do.php?img=15300]
[Resim: do.php?img=15301]
[Resim: do.php?img=15302]

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.
.zip KT Grup - Kopya.zip (Dosya Boyutu: 194,63 KB | İndirme Sayısı: 2)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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
Cevapla
#3
(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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 22/04/2023, 21:16, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
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
Cevapla
#5
(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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#6
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da