Here is a description about a project in which is based on education system of a university. A client has some these types of requirement in his project.

The student can take admission in a semester and can select subjects according to his choice. If subjects not available in the campus, then he can get that course/subjects from another campus. A student can take maximum four subjects/course in a semester/quarter.


Student Name: Register student can select from this drop down.

Max class per Quarter: There are maximum four classes a student can select in a Quarter/Semester.

Start Quarter/End Quarter: This is the duration. Per quarter have six months.

Update: After click on update a semester is assigned to that student.


Here the student has a choice to select 4 subjects in particular semester / quarters. As we can see a student selected one subject in FA 15 semester one subject in SP 15 semester and also one subject in SU 15 semester.

A student can select max four subjects in a semester/quarter.



Code: Send Email

Private Sub SendEmail_Click()

Dim i As Long

Dim strsql As String

Dim qdf As QueryDef

Dim strPath As String

Dim objFSO As Object

Set objFSO = CreateObject(“Scripting.Filesystemobject”)

If IsNull(Me.Combo13) Then

MsgBox “Please select student”

Exit Sub

End If

If IsNull(Me.Text8) Then

MsgBox “Please enter Max Classes per semester”

Exit Sub

End If

If IsNull(Me.Combo0) Then

MsgBox “Please enter Semester Start”

Exit Sub

End If

If IsNull(Me.Combo2) Then

MsgBox “Please enter Semester End”

Exit Sub

End If

strsql = “”

    For i = 1 To Me.Text8

strsql = IIf(strsql = “”, “”, strsql & ” union all “) & “select Semester,StudentID,’Class ” & i & “‘ as ClassLebel,Class” & i & ” as Class,Class” & i & “_Campus as Campus from tblStudentSchedule where StudentID=” & Me.Combo13


If strsql <> “” Then

Set qdf = CurrentDb.QueryDefs(“qryReportData”)

qdf.sql = strsql

End If

strPath = CurrentProject.path & “Report_” & Nz(Me.Combo13.Column(1), “”) & ” ” & Nz(Me.Combo13.Column(2), “”) & “.pdf”

If objFSO.FileExists(strPath) Then

Kill strPath

End If

DoCmd.OutputTo acOutputReport, “Report1”, acFormatPDF, strPath

If objFSO.FileExists(strPath) Then

SendMail strPath, Nz(Me.Combo13.Column(1), “”) & ” ” & Nz(Me.Combo13.Column(2), “”) & “.pdf”

End If

Set objFSO = Nothing

Set qdf = Nothing

End Sub

From here we can deliver all details about a semester, assigned subjects and registration details via mail with registered mail id.


Here is the PDF file with all details which sent via E-Mail. In this file we can see details about start semester/End semester details, available semester types and details about assigning class.


View Our Impressive List of Clients
Back To Home Page
Contact Us For A Free Quote