19-02-2019, 15:16
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..
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..
Visual Basic
- 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