AccessTr.neT

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

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

Teşekkür ederim. Konu çözülmüştür.

rica ederim
iyi çalışmalar