So each record in the table could look like this.
Expand|Select|Wrap|Line Numbers
- PartID PartDoc Product1 Product2 Product3 Product4
- 12 P-7824 1 5 7 9
Expand|Select|Wrap|Line Numbers
- Private Sub CmdReturn5_Click()
- Select Case ?????????
- Case 1
- DoCmd.OpenForm "PARTS", , , "[PRODUCT1]='5'"
- Case 2
- DoCmd.OpenForm "PARTS", , , "[PRODUCT2]='5'"
- Case 3
- DoCmd.OpenForm "PARTS", , , "[PRODUCT3]='5"
- Case 4
- DoCmd.OpenForm "PARTS", , , "[PRODUCT4]='5'"
- Case Else
- MsgBox "NO DOCUMENTS FOUND"
- End Select
- Exit Sub
Hope you can help again. Thanks