A.S.C Filtre, Grafik ve Raporlama Eklentisi

Onay Kutusu Ile Tabloya Satır Ekleme
#1
Merhaba,
Ortak kullanmak zorunda olduğum tbl_hükümlü_elektronik_infaz tablosu var. Bu tablo içerisinde Onay kutusu şekilde olan kntt_infaz ve diğer_infaz satırları tiklendiğinde ayrı satırlarda aynı (id) satırını kopyalayarak ile kayıt oluşturmasını istiyorum. Daha önce farklı bir ekranda buton ile kullandığım INSERT deyimini burada uygulayamadım.
İstediğim; Form ekranında seçilen kişiye göre aktif olan kutucuklardan Konutta İnfaz ve Diğer infaz ( ikisi aynı anda aktif olduğunda ) kutucukları aktif olduğunda bu iki kutucuğun tabloda bulunan satırlarının iki ayrı satır olacak şekilde işaretlenmesini istiyorum.


Eklenti Dosyaları
.rar   Örnek From.rar (Boyut: 148,81 KB / İndirilme: 5)



  Alıntı
Bu mesajı beğenenler:
#2
If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If

bunu oraya yaz



  Alıntı
Bu mesajı beğenenler:
#3
(06-04-2021, 14:29)celalll demiş ki: If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If

bunu oraya yaz
 Celalll Bey, 
 Diger Onay kutusunun Tıklandığında alanına kodu yapıştırıyorum ama yeni satır oluşturmuyor. 

[Resim: vt4Rk6.png]



  Alıntı
Bu mesajı beğenenler:
#4
Private Sub konut_Click()
If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If
End Sub



  Alıntı
Bu mesajı beğenenler:
#5
(06-04-2021, 18:00)celalll demiş ki: Private Sub konut_Click()
If Me.diger = True And Me.konut = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_hükümlü_elektronik_infaz SELECT tbl_hükümlü_elektronik_infaz.* FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=[Forms]![vk_sorumlusu_atama_ekrani]![sira_id])); "
DoCmd.SetWarnings True
End If
End Sub

  celalll bey sizi uğraştırıyorum ama kusura bakmayın. Kodu "konut" onay kutusuna yazdığımda da istediğim satırı oluşturmuyor. Ben aşağıdaki fotodaki gibi aynı (id) satırını kopyalayarak iki ayrı satırda onay kutularını işaretlemesini istiyorum. 


[Resim: qNSrgM.png]



  Alıntı
Bu mesajı beğenenler:
#6
currentdb.execute "INSERT INTO tbl_hükümlü_elektronik_infaz ( id ) SELECT tbl_hükümlü_elektronik_infaz.id
FROM tbl_hükümlü_elektronik_infaz WHERE (((tbl_hükümlü_elektronik_infaz.sira_id)=" & [Forms]![vk_sorumlusu_atama_ekrani]![sira_id] & "))"

olarak degistirin, kayit eklensede, form veri getirme ve güncelleme istediğiniz gibi gerçekleşmeyecek gibi. Yeni eklenen kaydın işaretlenmesi ve gösterilmesi sorunlu olacaktır.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Iki Liste Kutusu Arasında Filtreleme sensu 2 102 08-04-2021, 01:21
Son Mesaj: sensu
  Alt Form Liste Kutusu Filtreleme Sorunu sensu 13 306 04-04-2021, 20:05
Son Mesaj: sensu
  [SORGU] Birleşik Giriş Kutusu Güncelleme temujinn 4 64 02-04-2021, 13:11
Son Mesaj: temujinn
  Liste Kutusu gunalp26 2 113 23-03-2021, 21:16
Son Mesaj: gunalp26
  Liste Kutusu Fazla Veri Kısıtlama tolgahat 4 232 11-03-2021, 23:13
Son Mesaj: dsezgin
  [FORM] Altformdaki Liste Kutusu Koşullu Olarak Açılmıyor M_Kemal_Askeri 2 145 16-01-2021, 01:49
Son Mesaj: M_Kemal_Askeri
  [FORM] Ana Tabloya Bağlı Alt Tablodaki Verilerin Içine Başka Tablodan Kayıt Ekleme nazurabi 1 148 14-01-2021, 00:43
Son Mesaj: nazurabi
  [FORM] Formda Satır Sayma anno55 1 161 24-11-2020, 23:05
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi