+- 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ığı: Alt Formdan Veri Silmek (/konu-alt-formdan-veri-silmek.html)
Alt Formdan Veri Silmek - SeferŞANLI - 17/04/2021
Arkadaşlar eklediğim örnekte frm_zmr-işlemleri formundan alt formdan seçtiğim firmayı silme kodunda hata alıyorum. Sorun nedir? acaba
Dim GItem As Variant
Dim gisletmeid As Integer
Dim gisid As Integer
Dim gisletmead As String
gisletmead = [me.frm_alt_zmrr].Form![txtisletme]
gisid = [me.frm_alt_zmrr].Form![is_id]
If MsgBox([frm_alt_zmrr].Form![txtisletme] & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.RunSQL "delete is_id,isletmeadi from tbl_zmr where (((is_id)=" & gisid & ") and ((isletmeadi)='" & gisletmead & "'));"
DoCmd.SetWarnings True
End If
Me.listeisletme.Requery
Forms!frm_tercih_islemleri!.Me.frm_alt_zmrr.RequeryRE: Alt Formdan Veri Silmek - berduş - 17/04/2021
aşağıdaki kodu dener misiniz?
hatalarınız:
1 - Forms!frm_tercih_islemleri!.me.frm_alt_zmrr.Requery
burada hem ! hem de . aynı yerde kullanılmış kullanılmaz
2 - me. bu formda gibi bir anlam taşır dolayısıyla [] içine yada arada bir yere yazılmaz.
Dim gisid As Integer
Dim gisletmead As String
gisletmead = Me.frm_alt_zmrr.Form![txtisletme]
gisid = Me.frm_alt_zmrr.Form![is_id]
If MsgBox([frm_alt_zmrr].Form![txtisletme] & " listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.RunSQL "delete is_id,isletmeadi from tbl_zmr where (((is_id)=" & gisid & ") and ((isletmeadi)='" & gisletmead & "'));"
DoCmd.SetWarnings True
End If
Me.listeisletme.Requery
Me.frm_alt_zmrr.RequeryRE: Alt Formdan Veri Silmek - SeferŞANLI - 18/04/2021
Teşekkür ederim. Konu çözülmüştür.
RE: Alt Formdan Veri Silmek - berduş - 18/04/2021
rica ederim
iyi çalışmalar