August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!
COURSE of the MONTH
8 days, 13 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Continuation Access Freezes with email is not sent on second iteration
Posted on 2016-08-31
Dear Experts,
This is a follow on question to the one posted here:
https://www.experts-exchan
Seems that when the user attempts to send an email but closes the email dialogue box the first time no problem! This was the initial fix I was looking for. However, if the user (an this happened) attempts to send an email (once and the closes) and then again attempts to send an email then closes the dialogue box again I get the same error and the application freezes.
In fact, the user sends an email successfully then attempts send another one but closes the dialogue box the application freezes. So for whatever reason the error capture works the first time but not subsequent times. In fact, I pressed on the onclick event, then close the mail dialogue box without sending. Then I close the form to see if this would reset things but when I attempted to send another email message but instead closed the mail MS outlook dialogue box the application once again freezes.
I must need to 'reset' something after the first attempt but not certain what that needs to be. Attached are screenshots of the errors I am getting.
When i close the ms outlook dialogue box for the second time
When I try to close the application after the error message
This is a follow on question to the one posted here:
https://www.experts-exchan
Seems that when the user attempts to send an email but closes the email dialogue box the first time no problem! This was the initial fix I was looking for. However, if the user (an this happened) attempts to send an email (once and the closes) and then again attempts to send an email then closes the dialogue box again I get the same error and the application freezes.
In fact, the user sends an email successfully then attempts send another one but closes the dialogue box the application freezes. So for whatever reason the error capture works the first time but not subsequent times. In fact, I pressed on the onclick event, then close the mail dialogue box without sending. Then I close the form to see if this would reset things but when I attempted to send another email message but instead closed the mail MS outlook dialogue box the application once again freezes.
I must need to 'reset' something after the first attempt but not certain what that needs to be. Attached are screenshots of the errors I am getting.
When i close the ms outlook dialogue box for the second time
When I try to close the application after the error message
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
2
3 Comments
Active today
I use error trapper like below w/o problems
On Error GoTo SendEmailErr
DoCmd.SendObject , , , sEmail, , , sType & "(s) " & sAppDen & ". (Testing)", s, True
SendEmailExit:
Exit Sub
SendEmailErr:
If Err.Number = 2501 Then
Resume Next
Else
MsgBox Err.Description
Resume SendEmailExit
End If
Active today
Yeah....I think I am doing this right. If you look at the link above I used the code provided in the previous discussion block:
And even with I can the error ONLY on the second and subseqent cancellations. If I close the MS Outlook dialogue box the first time the error is trapped and all is good. But if I try it again then the application freezes. There must be a 'reset' somehow so the trapping works over and over again.
Public Sub SendEmail(pName As String)
On Local Error GoTo LocalError
Dim School As String
Dim mailto As String
Dim ccto As String
Dim bccto As String
Dim TeacherName As String
Dim mailsub As String
School = Nz(DLookup("tblSettingsSchool", "tblSettings"), 0)
TeacherName = Nz(DLookup("teacherName", "tblTeacher"), 0)
mailto = Me.studentParentEmail
ccto = ""
bccto = ""
mailsub = "Recent Student Report from " & TeacherName & " at " & School
emailmsg = _
"Hello " & pName & "!" & vbNewLine & vbNewLine & _
"Please find your child's student report from " & TeacherName & " at " & School & " attached!" & vbNewLine & vbNewLine & _
"Thank you!"
DoCmd.SetWarnings (False)
DoCmd.OpenReport "rptStudentReport", acViewPreview, , "[studentID] = '" & [studentID] & "'"
DoCmd.SendObject acSendReport, , acFormatPDF, mailto, ccto, bccto, mailsub, emailmsg, True
DoCmd.Close acReport, "rptStudentReport", acSaveNo
DoCmd.SetWarnings (True)
Exit Sub
ProcExit:
DoCmd.Close acReport, "rptStudentReport", acSaveNo
DoCmd.SetWarnings (True)
Exit Sub
LocalError:
If Err.Number = 2501 Then
Resume Next
Else
MsgBox Err.Description
Resume ProcExit
End If
End Sub
Private Sub cmdEmailParent_Click()
Dim pName As String
pName = InputBox("Enter the parent's name", "SEND EMAIL TO PARENT")
If pName <> vbNullString Then
SendEmail pName
End If
End Sub
And even with I can the error ONLY on the second and subseqent cancellations. If I close the MS Outlook dialogue box the first time the error is trapped and all is good. But if I try it again then the application freezes. There must be a 'reset' somehow so the trapping works over and over again.
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month8 days, 13 hours left to enroll
765 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.