G
Guest
The code lines given to me by someone trying to help do "not" work. Can
anybody see what's wrong with the code?
The code is for moving the cursor, via Tab key, thru all fields of a Form.
Before presenting code lines, I'll present pertinent design elements just
for reference, when reading the "bad" code.
01.) "Form" consists of a main form, with 3 subforms within the main form
02.) Main form is called BM_DataEntry
03.) 1st subform is called Details_Subform
04.) 2nd subform is called SubjectHead_Subform
05.) 3rd subform is called Author_Subform
06.) BM_DataEntry uses fields from Main table
07.) Details_Subform uses fields from Details table
08.) SubjectHead_Subform uses fields from Subject table
09.) Author_Subform uses fields from Author table
10.) Primary key in Main table is foreign key in each of the other three
tables
11.) Primary key is "PageID"
12.) Last field in BM_DataEntry is "Link"
13.) First field in Details_Subform is "DetailID"
14.) Last field in Details_Subform is "PageID"
15.) First field in SubjectHead_Subform is "SubjectID"
16.) Last field in SubjectHead_Subform is "PageID"
17.) First field in Author_Subform is "AuthorID"
18.) Last field in Author_Subform is "PageID"
19.) First field in BM_DataEntry is "PageID"
Below is the code. It is in 4 pieces. It is written for the "On Exit"
property of the "last field" of BM_DataEntry, Details_Subform,
SubjectHead_Subform, and Author_Subform, respectively.
Private Sub Link_Exit(Cancel As Integer)
Forms![BM_DataEntry]![Details_Subform].Form!
[DetailID].SetFocus
End Sub
Private Sub PageID_Exit(Cancel As Integer)
Forms![BM_DataEntry]![SubjectHead_Subform].Form!
[SubjectID].SetFocus
End Sub
Private Sub PageID_Exit(Cancel As Integer)
Forms![BM_DataEntry]![Author_Subform].Form!
[AuthorID].SetFocus
End Sub
Private Sub PageID_Exit(Cancel As Integer)
Forms![BM_DataEntry]![PageID].SetFocus
End Sub
anybody see what's wrong with the code?
The code is for moving the cursor, via Tab key, thru all fields of a Form.
Before presenting code lines, I'll present pertinent design elements just
for reference, when reading the "bad" code.
01.) "Form" consists of a main form, with 3 subforms within the main form
02.) Main form is called BM_DataEntry
03.) 1st subform is called Details_Subform
04.) 2nd subform is called SubjectHead_Subform
05.) 3rd subform is called Author_Subform
06.) BM_DataEntry uses fields from Main table
07.) Details_Subform uses fields from Details table
08.) SubjectHead_Subform uses fields from Subject table
09.) Author_Subform uses fields from Author table
10.) Primary key in Main table is foreign key in each of the other three
tables
11.) Primary key is "PageID"
12.) Last field in BM_DataEntry is "Link"
13.) First field in Details_Subform is "DetailID"
14.) Last field in Details_Subform is "PageID"
15.) First field in SubjectHead_Subform is "SubjectID"
16.) Last field in SubjectHead_Subform is "PageID"
17.) First field in Author_Subform is "AuthorID"
18.) Last field in Author_Subform is "PageID"
19.) First field in BM_DataEntry is "PageID"
Below is the code. It is in 4 pieces. It is written for the "On Exit"
property of the "last field" of BM_DataEntry, Details_Subform,
SubjectHead_Subform, and Author_Subform, respectively.
Private Sub Link_Exit(Cancel As Integer)
Forms![BM_DataEntry]![Details_Subform].Form!
[DetailID].SetFocus
End Sub
Private Sub PageID_Exit(Cancel As Integer)
Forms![BM_DataEntry]![SubjectHead_Subform].Form!
[SubjectID].SetFocus
End Sub
Private Sub PageID_Exit(Cancel As Integer)
Forms![BM_DataEntry]![Author_Subform].Form!
[AuthorID].SetFocus
End Sub
Private Sub PageID_Exit(Cancel As Integer)
Forms![BM_DataEntry]![PageID].SetFocus
End Sub