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

Çözüldü #1
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
Son Düzenleme: 19/02/2019, 15:35, Düzenleyen: Mr.Midnight.
Cevapla
#2
43. satıra aşağıdaki kodunu eklemeyi deneyin
On Error Resume Next
Cevapla
#3
yada 
On Error exit sub
Cevapla
#4
haliliyas bey merhaba;
Vermiş olduğunuz kodları yazdığımda kod sayfasında kırmızıya dönüyor
Cevapla
#5
2 kodda da mı
Cevapla
#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