DoCmd.OpenForm with OpenArgs not working as expected

[equestrian]

I am using Access 2007

I have the following tables:

tblUnitsBuilt
UnitBuiltPK
UnitFK
BuilderFK
ReasonBuiltFK


DateBuilt
SerialNumber

tblReasonBuilt
ReasonBuiltPK
Reason

tblBuiltForCustomer
BuiltForCustomerPK
CustomerFK
UnitBuiltFK

On my form (frmUnitBuilt) the user enters the reason built. If it is built for a customer (ReasonBuiltFK=2) then a form opens to enter the customer it is built for (frmBuiltForCustomer). The user enters the customer for whom the unit was built. The user then closes the form. There is an entry put in the tblBuiltForCustomer. However, the value for UnitBuiltFK is empty.

On frmUnitBuilt I have:

Private Sub cboReasonBuilt_AfterUpdate()
If Me.cboReasonBuilt = 2 Then
DoCmd.OpenForm "frmBuiltForCustomer", , , "UnitBuiltFK= " & Me.UnitBuiltPK
End If
End Sub

On frmBuiltForCustomer I have:

Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
    Me![UniteBuiltFK] = Me.OpenArgs
    End If
End Sub

Thank you for any help you can offer.

[June7]

Does an 'e' belong in UniteBuiltFK?

Is the form set to open to a new record? If not, then the code will change existing record.

[equestrian]

No. The "e" did not belong on UnitBuiltFK. I took it off, and I am having the same problem. The form is set to open to a new record. When I check the table a record is created it just does not have a value in UnitBuiltFK.

[June7]

Try code in the Current event.

[John_G]

In your Docmd.Openform statement, you are not giving the OpenArgs argument any data. The OpenArgs argument is the 7th argument, and you are only using 4.

What follows is cut-and-paste from the A2010 help, but A2007 is the same:

The OpenForm method carries out the OpenForm action in Visual Basic.
Syntax

expression.OpenForm(FormName,
View, FilterName, WhereCondition, DataMode,
WindowMode, OpenArgs)

expression A variable that represents a
DoCmd object.

[June7]

Good catch John_G.

The code should be like:

DoCmd.OpenForm "frmBuiltForCustomer", , , , , , Me.UnitBuiltPK

[equestrian]

You were absolutely right. That was the problem I was having. Thank you very much.

Also, the value I was passing was a number not a string. So, I fixed that.

On frmUnitBuilt I have:

Private Sub cboReasonBuilt_AfterUpdate()
If Me.cboReasonBuilt = 2 Then
DoCmd.OpenForm "frmBuiltForCustomer", , , , , , Me.UnitBuiltPK
End If
End Sub

On frmBuiltForCustomer I have:

Private Sub Form_Load()
Dim id As Integer
 id = CInt(Me.OpenArgs)
    If Not IsNull(Me.OpenArgs) Then
    Me![UnitBuiltFK] = id
    End If
End Sub

Thank you so much