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
Next
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.
