Alt Formdan Veri Silmek

17/04/2021, 01:24

SeferŞANLI

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.Requery
17/04/2021, 12:16

berduş

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.Requery
18/04/2021, 11:26

SeferŞANLI

Teşekkür ederim. Konu çözülmüştür.
18/04/2021, 11:38

berduş

rica ederim
iyi çalışmalar