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


Visual Basic Code
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ı: 4)
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.
Visual Basic Code
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