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