silme kodu yardım

On Error GoTo Err_Komut10_Click
Private Sub Komut10_Click()
On Error GoTo Err_Komut10_Click
If Me.Metin8 = "1" Then
MsgBox "Önce sevk adresini siliniz..."
Else
If MsgBox("Silinsin mi?", vbQuestion + vbYesNo, "Onay") = vbYes Then
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
End If
Exit_Komut10_Click:
Exit Sub

Private Sub Komut10_Click()

On Error GoTo Err_Komut10_Click

hata veriyor...

On Error GoTo Err_Komut10_Click
Bu kodu iki sefer yazmışız ,birini sil(üstekini sil)

onu farkketim ama yinede hata veriyor. bulamıyorum.

Private Sub Komut10_Click() bunu sarı yakıyor.
On Error GoTo Err_Komut10_Click bunu mavi yakıyor

tamam hallettim. teşekkür ederim.

On Error GoTo Err_Komut10_Click
silince düzeldi.

sevindim...bende 9. mesajda onu demiştim zaten