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
      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
           'Mail Gönder
      kmps = DLookup("TalepEdilenKampus", "tblTalepler", "[TalepNo]= '" & Me.txtTalepNo & "'")
 
      If kmps = "KAMPUS 1" Then
      adrs = "info1@hotmail.com"
      ElseIf kmps = "KAMPUS 2" Then
      adrs = "info2@hotmail.com"
      ElseIf kmps = "KAMPUS 3" Then
      adrs = "info3@hotmail.com"
      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
 
 
      TumDenetimPasif
    End If
End Sub