Form Recalc issues

[dwaterman]

I have an Access database that was created in the 2003 version. It is being used by employees with 2003, 2007 and 2010 versions. On my invoice form I have created code to pop up a window to add a part number and description if the part is not in the underlying table. When the pop-up window closes, I want the invoice form to populate the part description field. In order for this to happen, I must recalc the form to update the recordset. I am using Forms!myFormName.Form.Recalc in the close event property on the pop-up to accomplish this. The code fires, but I am getting an error message stating I need 2 parameters. I have checked the proper syntax, and can't figure out what they could possibly looking for. This same code works perfectly in another database I have. I can move the location of the code to various events, and I always get the same error message. It does not matter which version of Access I'm using. I get the same error in each. Does anyone have a clue what I'm looking for?

Thanks!

[RuralGuy]

What code are you using to launch the PopUp form?

[dwaterman]

This is my code for opening the pop-up form:

Private Sub PartNo_AfterUpdate()
On Error GoTo Err_PartNo_AfterUpdate

If Not IsNull([txtPartNo]) Then
[txtPartNo] = CapAll([txtPartNo])
End If

'Look up Part #
Dim rst As ADODB.Recordset
Dim strSQL As String

Set rst = New ADODB.Recordset
strSQL = "SELECT txtPartDesc from tblParts " & "WHERE txtPartNo = """ & Me!txtPartNo & """"
rst.Open strSQL, CurrentProject.Connection
If rst.BOF And rst.EOF Then

Dim mbxResponse As VbMsgBoxResult
Dim strSQL2 As String

mbxResponse = MsgBox("Add part # to table?", vbQuestion + vbYesNo)

If mbxResponse = vbYes Then

strSQL2 = "INSERT INTO tblParts ([txtPartNo]) " & _
"VALUES ('" & Me.txtPartNo & "');"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL2
DoCmd.SetWarnings True

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmParts"

stLinkCriteria = "[txtPartNo] = " & "'" & Me![txtPartNo] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else

Me!txtPartDesc = rst!txtPartDesc
End If
End If

Exit_PartNo_AfterUpdate:
Exit Sub

Err_PartNo_AfterUpdate:
MsgBox Err.Description
Resume Exit_PartNo_AfterUpdate

End Sub

Do I need to explicitly close the recordsets? I tried that, but it didn't solve this issue. I also put the recalc code in the part description field I want to populate. This made no difference. I still got the error message.

Thanks for your time!