Access SQL
Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. (/Konu-Altformda-Hucre-Ile-Degil-Satir-Ile-Islem-Yapma-Hakkinda)

Altformda Hücre İle Değil Satır İle İşlem Yapma Hakkında. - OGUZTURKYILMAZ - 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.

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.

RE: Altformda Hücre Ile Değil Satır Ile Işlem Yapma Hakkında. - OGUZTURKYILMAZ - 22-04-2023

Form üzerine alınan butona, kodu aşağıdaki gibi revize ederek tanımladığımda istediğim sonuca ulaştım. Teşekkür ederim.


Visual Basic
  1. Private Sub btn_Guncelle_Click()
  2.  
  3. DoCmd.OpenForm "F_AracTanimlama"
  4.  
  5. Dim strSQL As String
  6.  
  7. 'strSQL = "SELECT * FROM  T_Arac WHERE ID =" & Me.ID & ""
  8. strSQL = "SELECT * FROM  T_Arac WHERE ID =" & Me.Lst_AracListesi.Form.ID & ""
  9.  
  10. Set rs = CreateObject("ADODB.Recordset")
  11. rs.CursorType = adOpenKeyset
  12. rs.LockType = adLockOptimistic
  13. rs.Open strSQL, CurrentProject.Connection
  14.         
  15. If Not rs.BOF Then
  16.  
  17. Form_F_AracTanimlama.TextBox_ID = rs!ID
  18. Form_F_AracTanimlama.TextBox_AracNo = rs!ARAC_NO
  19. Form_F_AracTanimlama.TextBox_PlakaNo = rs!ARAC_PLAKA
  20. Form_F_AracTanimlama.ComboBox_AracTipi = rs!ARAC_TIPI
  21. Form_F_AracTanimlama.TextBox_MuayeneTarihi = rs!MUAYENE_BITIS_TARIHI
  22. Form_F_AracTanimlama.ComboBox_AracDurumu = rs!ARAC_DURUMU
  23.  
  24.  
  25. Form_F_AracTanimlama.btn_Kaydet.Enabled = False
  26. Form_F_AracTanimlama.btn_Guncelle.Enabled = True
  27.  
  28.  
  29. End If
  30. rs.Close
  31. Set rs = Nothing
  32.  
  33. End Sub