فرم ثبت دروس:
10.PNG
Option Compare Database
Option Explicit
Dim v
Private Sub AddCourse_Click()
Dim CourseID, InstructorID As Long
CourseID = Year & Term & Format(CourseTitle, "00") & Format(Grade, "00")
If DCount("*", "Courses", "CourseID=" & CourseID) = 0 Then
DoCmd.RunSQL "INSERT INTO Courses (CourseID,Year,Term,Grade,CourseTitleID,Instructor ID) VALUES (" & CourseID & "," & Year & "," & Term & "," & Grade & "," & CourseTitle & "," & Instructor & ")"
v = MsgBox("Course Registered", , "")
Else
v = MsgBox("Course Alreday Registered!", vbInformation, "")
End If
End Sub
Private Sub CourseTitle_AfterUpdate()
Check
End Sub
Private Sub CourseTitle_NotInList(NewData As String, Response As Integer)
Me.CourseTitle.Undo
Me.CourseTitle.Dropdown
Response = acDataErrContinue
End Sub
Private Sub Form_Load()
Dim i As Long
For i = 1390 To 1400
Me.Year.AddItem i
Next
End Sub
Private Sub Grade_AfterUpdate()
Check
End Sub
Private Sub Grade_NotInList(NewData As String, Response As Integer)
Me.Grade.Undo
Me.Grade.Dropdown
Response = acDataErrContinue
End Sub
Private Sub Instructor_AfterUpdate()
Check
End Sub
Private Sub Term_AfterUpdate()
Check
End Sub
Private Sub Term_NotInList(NewData As String, Response As Integer)
Me.Term.Undo
Me.Term.Dropdown
Response = acDataErrContinue
End Sub
Private Sub Year_AfterUpdate()
Check
End Sub
Private Sub Year_NotInList(NewData As String, Response As Integer)
Me.Year.Undo
Me.Year.Dropdown
Response = acDataErrContinue
End Sub
Sub Check()
Me.AddCourse.Enabled = Not (IsNull(Year) Or IsNull(Term) Or IsNull(Grade) Or IsNull(CourseTitle) Or IsNull(Instructor))
End Sub