Enter Parameter Value Errors

[Mrs.Meeker]

I'm receiving Enter Parameter Value on 2 buttons on a form. One is tblProjectmaster!ProjectNumber and the other tblScoreResults!ProjectNumber.

Can you help me track down the problem?

thanks!

 

[pdx_man]

I'm guessing that you have the form based on a query. Go to the underlying query and be sure that you have the ProjectNumber field available from both tblProjectmaster & tblScoreResults tables. Since you are using the same field name in both tables, be sure that when you reference your field, you are fully qualifying which table you want the value to come from.

 

[Mrs.Meeker]

My query is attached. I have the ProjectNumber field available from both tblProjectMaster & tblScoreResults tables.

My code is

For button one:

Private Sub cmdQA_Click()
On Error GoTo Err_cmdQA_Click

Dim stDocName As String
Dim stlinkcriteria As String

If IsNull(QaDone) Then
stDocName = "frmUser2"
DoCmd.OpenForm stDocName, , , stlinkcriteria, acFormAdd
Forms![frmUser2]![ProjectNumber] = Forms![frmProjectMasterDetail]![Project Number]
Forms![frmUser2]![survey_type] = "QA"
Else
MsgBox "survey already completed"
End If

Exit_cmdQA_Click:
Exit Sub

Err_cmdQA_Click:
MsgBox Err.Description
Resume Exit_cmdQA_Click

For button two:

Private Sub cmdCompleteScore_Click()
On Error GoTo Err_cmdCompleteScore_Click

Dim stDocName As String
Dim stlinkcriteria As String

If IsNull(Forms![frmProjectMasterDetail]![tblScoreResults.ProjectNumber]) Then
stDocName = "frmuserScore"
DoCmd.OpenForm stDocName, , , stlinkcriteria, acFormAdd
Forms![frmUserScore]![ProjectNumber] = Forms![frmProjectMasterDetail]![Project Number]
Else
MsgBox " This Project has already been scored"
End If


Exit_cmdCompleteScore_Click:
Exit Sub

Err_cmdCompleteScore_Click:
MsgBox Err.Description
Resume Exit_cmdCompleteScore_Click

End Sub

I'm chasing my tail!

 

[Edski]

You haven't defined stlinkcriteria for starters. How does the code know which ProjectNumber to assign?

 

[Mrs.Meeker]

I had some information turned around. It works now.

button 1
If IsNull(QaDone) Then
stDocName = "frmUser2"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
Forms![frmUser2]![ProjectNumber] = Forms![frmProjectMasterDetail]![Project Number]
Forms![frmUser2]![survey_type] = "QA"

button 2
If IsNull(Forms![frmProjectMasterDetail]![tblScoreResults.ProjectNumber]) Then
stDocName = "frmuserScore"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd
Forms![frmUserScore]![ProjectNumber] = Forms![frmProjectMasterDetail]![Project Number]