Why Object required when linking to another form? 1

[splats]

Hello

Here is my code, I want it to link to the form and fill in automatically for the ApplID if it does not exist already in the second form - frmApplicantCostsCombo
Any suggestions would be greatly appreciated.

Thank you!

Private Sub cmdAppCosts_Click()
On Error GoTo Err_cmdAppCosts_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmApplicantCostsCombo"

stLinkCriteria = "[ApplID]=" & Me![ID]

DoCmd.OpenForm stDocName, , , stLinkCriteria
frmApplicantCostsCombo![ApplID] = " & Me![ID]"

Exit_cmdAppCosts_Click:
Exit Sub

Err_cmdAppCosts_Click:
MsgBox Err.Description
Resume Exit_cmdAppCosts_Click

End Sub

 

[PHV]

DoCmd.OpenForm stDocName, , , stLinkCriteria
DoEvents
Forms!frmApplicantCostsCombo![ApplID] = Me![ID]

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[splats]

thank you PHV!

It works great~

tinat