Skip to main content

AccessTr.neT


Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım

Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım

#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım - Yazar: berduş - 19/02/2019, 16:14
Task