G
Guest
I've inherited someone elses work and I'm new at this. Most recently in an
attempt to consolodate things, I've combined 9 different (small) pop-up forms
into one using a single Tab form (dragged and dropped forms into each tab).
8 forms input into their respective tables (7 work fine) (1 complains about
"Index or primary key cannot contain a null value) but I'll try to figure
that one out.
The 9th form or shall I say sub-forms now returns an employee record
(selected by name and social) from the archive. When I click the [Return to
Active] button, I get a prompt box titled "Enter Parameter Value" for
Forms.Archive.track.
Can anyone help? The On Click even procedure code is as follows:
Private Sub Return_to_Active_Click()
On Error GoTo Err_Return_to_Active_Click
Dim stDocName As String
stDocName = "Employee Data Table Archive Retrieval Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Polygraph Data Archive Retrieval Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Poly Archive Delete Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Return_to_Active_Click:
Exit Sub
Err_Return_to_Active_Click:
MsgBox Err.Description
Resume Exit_Return_to_Active_Click
End Sub
Any assistance would be appreciated.
attempt to consolodate things, I've combined 9 different (small) pop-up forms
into one using a single Tab form (dragged and dropped forms into each tab).
8 forms input into their respective tables (7 work fine) (1 complains about
"Index or primary key cannot contain a null value) but I'll try to figure
that one out.
The 9th form or shall I say sub-forms now returns an employee record
(selected by name and social) from the archive. When I click the [Return to
Active] button, I get a prompt box titled "Enter Parameter Value" for
Forms.Archive.track.
Can anyone help? The On Click even procedure code is as follows:
Private Sub Return_to_Active_Click()
On Error GoTo Err_Return_to_Active_Click
Dim stDocName As String
stDocName = "Employee Data Table Archive Retrieval Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Polygraph Data Archive Retrieval Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Poly Archive Delete Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Return_to_Active_Click:
Exit Sub
Err_Return_to_Active_Click:
MsgBox Err.Description
Resume Exit_Return_to_Active_Click
End Sub
Any assistance would be appreciated.