I am trying to create a command button that:
1. Opens the form as selected from a combobox,
2. Creates a new record, and
3. Inserts the EmployeeID automatically.
Expand|Select|Wrap|Line Numbers
- Dim stItem As String
- Dim stDocName As String
- Dim stLinkCriteria As String
- stItem = Forms!frmDigitalEquipment.CategoryList
- stDocName = "frmDE" & stItem
- stLinkCriteria = "[EmployeeID]=" & Forms!frmDigitalEquipment.EmployeeID
- DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
Your help would be much appreciated.
dstorms