D
David Mc
Because i have got so many controls on my form i have had
to use Page Controls. The problem is that i have only used
them in Delphi programming and now becuase i have
transfered allthe information into the control the VBA
code i have no longere works as it can not find the
control.
How can i reference a set of text boxes within a page
control.
David
If txtStudent_ID.Value <> "" Then
If SearchForStudentID(txtStudent_ID.Value, 1, 1) =
9801 Then
txtStartIT_Enrol.Value = ""
txtStartIT_Est_Finish.Value = ""
chkStartIT_M.Value = False
chkStartIT_Tu.Value = False
chkStartIT_W.Value = False
chkStartIT_Th.Value = False
chkStartIT_F.Value = False
chkStartIT_S.Value = False
txtStartIT_Attendance.Value = ""
txtStartIT_Exit_Date.Value = ""
Else
txtStartIT_Enrol.Value = SearchForStudentID
(txtStudent_ID.Value, 1, 1)
txtStartIT_Est_Finish.Value =
SearchForStudentID(txtStudent_ID.Value, 2, 1)
chkStartIT_M.Value = SearchForStudentID
(txtStudent_ID.Value, 3, 1)
chkStartIT_Tu.Value = SearchForStudentID
(txtStudent_ID.Value, 4, 1)
chkStartIT_W.Value = SearchForStudentID
(txtStudent_ID.Value, 5, 1)
chkStartIT_Th.Value = SearchForStudentID
(txtStudent_ID.Value, 6, 1)
chkStartIT_F.Value = SearchForStudentID
(txtStudent_ID.Value, 7, 1)
chkStartIT_S.Value = SearchForStudentID
(txtStudent_ID.Value, 8, 1)
txtStartIT_Attendance.Value =
SearchForStudentID(txtStudent_ID.Value, 9, 1)
txtStartIT_Exit_Date.Value = SearchForStudentID
(txtStudent_ID.Value, 10, 1)
End If
End If
to use Page Controls. The problem is that i have only used
them in Delphi programming and now becuase i have
transfered allthe information into the control the VBA
code i have no longere works as it can not find the
control.
How can i reference a set of text boxes within a page
control.
David
If txtStudent_ID.Value <> "" Then
If SearchForStudentID(txtStudent_ID.Value, 1, 1) =
9801 Then
txtStartIT_Enrol.Value = ""
txtStartIT_Est_Finish.Value = ""
chkStartIT_M.Value = False
chkStartIT_Tu.Value = False
chkStartIT_W.Value = False
chkStartIT_Th.Value = False
chkStartIT_F.Value = False
chkStartIT_S.Value = False
txtStartIT_Attendance.Value = ""
txtStartIT_Exit_Date.Value = ""
Else
txtStartIT_Enrol.Value = SearchForStudentID
(txtStudent_ID.Value, 1, 1)
txtStartIT_Est_Finish.Value =
SearchForStudentID(txtStudent_ID.Value, 2, 1)
chkStartIT_M.Value = SearchForStudentID
(txtStudent_ID.Value, 3, 1)
chkStartIT_Tu.Value = SearchForStudentID
(txtStudent_ID.Value, 4, 1)
chkStartIT_W.Value = SearchForStudentID
(txtStudent_ID.Value, 5, 1)
chkStartIT_Th.Value = SearchForStudentID
(txtStudent_ID.Value, 6, 1)
chkStartIT_F.Value = SearchForStudentID
(txtStudent_ID.Value, 7, 1)
chkStartIT_S.Value = SearchForStudentID
(txtStudent_ID.Value, 8, 1)
txtStartIT_Attendance.Value =
SearchForStudentID(txtStudent_ID.Value, 9, 1)
txtStartIT_Exit_Date.Value = SearchForStudentID
(txtStudent_ID.Value, 10, 1)
End If
End If