Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Sub SendEmail() Dim pName As String pName = InputBox("Enter the parent's name", "SEND EMAIL TO PARENT") If pName = vbNullString Then GoTo Exit_SendEmail End If Dim School As String School = Nz(DLookup("SchoolName", "tblSchool"), 0) Dim TeacherName As String TeacherName = Nz(DLookup("teacherName", "tblTeacher"), 0) DoCmd.SetWarnings (False) Dim mailto As String Dim ccto As String Dim bccto As String mailto = Me.studentParentEmail ccto = "" bccto = "" emailmsg = "Hello " & pName & "!" & vbNewLine & vbNewLine & "Please find your child\'s student report from " & TeacherName & " at " & School & " attached!" _ & vbNewLine & vbNewLine & "Thank you!" mailsub = "Recent Student Report from " & TeacherName & "at " & School 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_SendEmail: Exit Sub End Sub Private Sub cmdEmailParent_Click() Call SendEmail End Sub
|SQL - Cumulating field values to one field||5||19|
|Access Update Query||1||20|
|Why get error when delete all records on a sub-form||2||15|
|Batch Export Reports (with multiple parameters) As PDF||2||21|