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

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

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...

"-1" denermisin ayrıca örneğini eklesen bizide ugraştırmazsın

-1 denedim hata verdiği
örneği EK'te gönderdim.

tırnak işaretini değiştirince düzeldi. teşekkür ederim.
silerken "Yes" "No" olayını nasıl yaparım.

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