E
EdLeeYoung
I need direction...I don't even know what I want...
I have a telephone jack table that never changes. The Primary Key is made up
of the fields Jack, Bldg Num, Room
I have a Directory table which contains Jack, Bldg Num, and Room along with
other person related information.
I know how create a form with a dropdown menu form one table/query to use
with infromation from another table/query as seen below (this code has
nothing to do with this question...it is just an example).
Private Sub Combo10_AfterUpdate()
'Moves to User Name text box and
'finds the record of whatever name is selected in the combo box
DoCmd.ShowAllRecords
Me![Service Number].SetFocus
DoCmd.FindRecord Me!Combo10
'Set value of combo box equal to an empty string
Me!Combo10.Value = " "
End Sub
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click
End Sub
How do I do this with multiple fields...my key is made up of Jack, Bldg Num,
and Room?
I have a telephone jack table that never changes. The Primary Key is made up
of the fields Jack, Bldg Num, Room
I have a Directory table which contains Jack, Bldg Num, and Room along with
other person related information.
I know how create a form with a dropdown menu form one table/query to use
with infromation from another table/query as seen below (this code has
nothing to do with this question...it is just an example).
Private Sub Combo10_AfterUpdate()
'Moves to User Name text box and
'finds the record of whatever name is selected in the combo box
DoCmd.ShowAllRecords
Me![Service Number].SetFocus
DoCmd.FindRecord Me!Combo10
'Set value of combo box equal to an empty string
Me!Combo10.Value = " "
End Sub
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click
End Sub
How do I do this with multiple fields...my key is made up of Jack, Bldg Num,
and Room?