Skip to main content

AccessTr.neT


Alt Formdan Veri Silmek

Alt Formdan Veri Silmek

Çözüldü #1
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
.rar ornek.rar (Dosya Boyutu: 920 KB | İndirme Sayısı: 7)
Cevapla
#2
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
Cevapla
#3
Teşekkür ederim. Konu çözülmüştür.
Cevapla
#4
rica ederim
iyi çalışmalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task