silme kodu yardım - Baskı Önizleme +- 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ığı: silme kodu yardım (/konu-silme-kodu-yardim.html) |
silme kodu yardım - ferhatozge - 30/05/2013 iyi akşamlar. yapmak istediğim bir butona tıklandığında metin8 "1" ise silme işlemi yapılmasın ve Önce sevk adresini siliniz..." diye uyarı versin. metin8 "0" ise silme işlemini yapsın. Private Sub Komut10_Click() If Me.Metin8 = 1 Then MsgBox "Önce sevk adresini siliniz..." On Error GoTo Err_Komut10_Click DoCmd.SetWarnings True DoCmd.SetWarnings False MsgBox "siliniyor...", , "SİLİYO" DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Komut10_Click: Exit Sub Err_Komut10_Click: MsgBox Err.Description Resume Exit_Komut10_Click End Sub Cvp: silme kodu yardım - C*e*l*o*y*c*e - 30/05/2013 Private Sub Komut10_Click() On Error GoTo Err_Komut10_Click If Me.Metin8 = “1” Then MsgBox "Önce sevk adresini siliniz..." else DoCmd.SetWarnings True DoCmd.SetWarnings False MsgBox "siliniyor...", , "SİLİYO" DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 end if Exit_Komut10_Click: Exit Sub Err_Komut10_Click: MsgBox Err.Description Resume Exit_Komut10_Click End Sub Cvp: silme kodu yardım - ferhatozge - 30/05/2013 teşekkür ederim. ancak; metin8 "1" iken siliyor. metin8 "0" iken uyarı veriyor. ters oldu. bir de silerken "Yes" "No" diye sorsa süper olur... Cvp: silme kodu yardım - C*e*l*o*y*c*e - 30/05/2013 "-1" denermisin ayrıca örneğini eklesen bizide ugraştırmazsın Cvp: silme kodu yardım - ferhatozge - 30/05/2013 -1 denedim hata verdiği örneği EK'te gönderdim. Cvp: silme kodu yardım - ferhatozge - 30/05/2013 tırnak işaretini değiştirince düzeldi. teşekkür ederim. silerken "Yes" "No" olayını nasıl yaparım.
|