Merhaba;
Accessde yaptığım programda kaydetme ve mail göndermeye yarayan bir buton için yazdığım kodlarda mail gönderme işlemi öncesinde bir mesaj kutusu çıkıyor. Çıkan mesajda izin ver ve reddet butonları var. İzin ver butonuna basıldığında sorunsuz olarak mail gönderme gerçekleşiyor ama reddet butonuna basıldığında program debug hatası verip  kullanıcıyı kodların olduğu sayfaya yönlendiriyor. Bu durum nasıl engellerim? Yardım etmenizi rica ederim..

Private Sub btnMailGonder_Click()

Dim adrs, kmps As String



  If IsNull(txtTalepNo) Then

      MsgBox "Lütfen Talep Numarasını ilgili alana giriniz", vbExclamation + vbOKOnly, "İşlem Hatası"

      DoCmd.RunCommand acCmdRefreshData

    Else

      Dim sql2 As String



      DoCmd.GoToRecord , , acNewRec

      'Me.Undo

      DoCmd.SetWarnings (False)

      sql2 = "UPDATE tblTalepler SET tblTalepler.Iletildi = 'EVET', tblTalepler.KayitTarihi = Date(), tblTalepler.KayitSaati = Time() WHERE (((tblTalepler.TalepNo)=[Forms]![frmTalepler]![txtTalepNo]));"

      'UPDATE tblTahditliManuelCikis SET tblTahditliManuelCikis.Onay = 'EVET' WHERE (((tblTahditliManuelCikis.IrsaliyeNo)=[Forms]![frmMalKabulRapor]![txtUpdate]));"

      DoCmd.RunSQL sql2

      DoCmd.SetWarnings (True)

      Recalc

      

      Me.Requery

      Me.Refresh

      'Bilgileri Kaydet

      Dim Sql As String

      DoCmd.GoToRecord , , acNewRec

      DoCmd.SetWarnings (False)

      sql = "DELETE * FROM srgBosSiparisBul"

      DoCmd.RunSQL sql

      DoCmd.SetWarnings (True)

      Recalc

      'DoCmd.RunCommand acCmdSaveRecord

      'Mail Gönder

      kmps = Dlookup ("TalepEdilenKampus", "tblTalepler", "[TalepNo]= '" & Me.txtTalepNo & "'")

      

      If kmps = "KAMPUS 1" Then

      adrs = "[email protected]"

      ElseIf kmps = "KAMPUS 2" Then

      adrs = "[email protected]"

      ElseIf kmps = "KAMPUS 3" Then

      adrs = "[email protected]"

      End If

      

      DoCmd.OpenReport "rprTalepFormu", acViewPreview, , "[tblTalepler]![TalepNo]=[Forms]![frmTalepler]![txtTalepNo]", acWindowNormal

      

      DoCmd.SendObject acSendReport, "rprTalepFormu", "PDFFormat(*.pdf)", adrs, , , "Talep Formu", "Ekteki depolar arası transfer talebini işleme almanızı rica ederim ", False

      DoCmd.Close acReport, "rprTalepFormu"

      

      MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "İşlem Tamam"

      



      btnMailGonder.Enabled = False

      'Form.Requery

      

      

      TumDenetimPasif

    End If

End Sub

43. satıra aşağıdaki kodunu eklemeyi deneyin

On Error Resume Next

yada 

On Error exit sub

haliliyas bey merhaba;
Vermiş olduğunuz kodları yazdığımda kod sayfasında kırmızıya dönüyor

2 kodda da mı

kodu aşağıdaki şekilde dener misiniz?

Private Sub btnMailGonder_Click()

Dim adrs, kmps As String



  If IsNull(txtTalepNo) Then

      MsgBox "Lütfen Talep Numarasını ilgili alana giriniz", vbExclamation + vbOKOnly, "İşlem Hatası"

      DoCmd.RunCommand acCmdRefreshData

    Else

      Dim sql2 As String



      DoCmd.GoToRecord , , acNewRec

      'Me.Undo

      DoCmd.SetWarnings (False)

      sql2 = "UPDATE tblTalepler SET tblTalepler.Iletildi = 'EVET', tblTalepler.KayitTarihi = Date(), tblTalepler.KayitSaati = Time() WHERE (((tblTalepler.TalepNo)=[Forms]![frmTalepler]![txtTalepNo]));"

      'UPDATE tblTahditliManuelCikis SET tblTahditliManuelCikis.Onay = 'EVET' WHERE (((tblTahditliManuelCikis.IrsaliyeNo)=[Forms]![frmMalKabulRapor]![txtUpdate]));"

      DoCmd.RunSQL sql2

      DoCmd.SetWarnings (True)

      Recalc

      

      Me.Requery

      Me.Refresh

      'Bilgileri Kaydet

      Dim Sql As String

      DoCmd.GoToRecord , , acNewRec

      DoCmd.SetWarnings (False)

      Sql = "DELETE * FROM srgBosSiparisBul"

      DoCmd.RunSQL sql

      DoCmd.SetWarnings (True)

      Recalc

      'DoCmd.RunCommand acCmdSaveRecord

      'Mail Gönder

      kmps = Dlookup ("TalepEdilenKampus", "tblTalepler", "[TalepNo]= '" & Me.txtTalepNo & "'")

      

      If kmps = "KAMPUS 1" Then

      adrs = "[email protected]"

      ElseIf kmps = "KAMPUS 2" Then

      adrs = "[email protected]"

      ElseIf kmps = "KAMPUS 3" Then

      adrs = "[email protected]"

      End If

      

      DoCmd.OpenReport "rprTalepFormu", acViewPreview, , "[tblTalepler]![TalepNo]=[Forms]![frmTalepler]![txtTalepNo]", acWindowNormal

      On error goto ErrorHandler

      DoCmd.SendObject acSendReport, "rprTalepFormu", "PDFFormat(*.pdf)", adrs, , , "Talep Formu", "Ekteki depolar arası transfer talebini işleme almanızı rica ederim ", False

      DoCmd.Close acReport, "rprTalepFormu"

      

      MsgBox "Bilgiler başarıyla kaydedildi.", vbInformation + vbOKOnly, "İşlem Tamam"

      



      btnMailGonder.Enabled = False

      'Form.Requery

      

      

      TumDenetimPasif

    End If

exit sub

ErrorHandler:

msgbox("mail gönderilemedi")

Exit Sub

End Sub