H
hntsignif
I created a form [EmployeeSelect] to hold the drop down box (Table
[EmployeeLog]![EmployeeName]) that I want my value chosen from and the code
for the button follows:
Private Sub ProjectsByIndividualReport_Click()
On Error GoTo Err_ProjectsByIndividualReport_Click
Dim stDocName As String
Dim pstrcriteria As String
stDocName = "ProjectbyMemberReport"
pstrcriteria = "[Enter Name] = """ &
Me.[Forms]![EmployeeSelect]![EmployeeName] & """"
DoCmd.OpenReport stDocName, acPreview, , pstrcriteria
Exit_ProjectsByIndividualReport_Click:
Exit Sub
Err_ProjectsByIndividualReport_Click:
MsgBox Err.Description
Resume Exit_ProjectsByIndividualReport_Click
End Sub
[EnterName] is the Parameter for the query that the report draws from.
I keep getting a field not found error.
Can anyone help?
[EmployeeLog]![EmployeeName]) that I want my value chosen from and the code
for the button follows:
Private Sub ProjectsByIndividualReport_Click()
On Error GoTo Err_ProjectsByIndividualReport_Click
Dim stDocName As String
Dim pstrcriteria As String
stDocName = "ProjectbyMemberReport"
pstrcriteria = "[Enter Name] = """ &
Me.[Forms]![EmployeeSelect]![EmployeeName] & """"
DoCmd.OpenReport stDocName, acPreview, , pstrcriteria
Exit_ProjectsByIndividualReport_Click:
Exit Sub
Err_ProjectsByIndividualReport_Click:
MsgBox Err.Description
Resume Exit_ProjectsByIndividualReport_Click
End Sub
[EnterName] is the Parameter for the query that the report draws from.
I keep getting a field not found error.
Can anyone help?