problem filling a form automatically 1

[DLynnTX]

I have been doing fine with autofilling forms that are part of a tab and moving between tabs, etc. But the form I'm having problems with now is a separate form that is opened when a button is pressed (Create RMA). This is the code I have tied to the button on the OnClick event.
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "UnitRepairHx"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Me.[UnitRepairHx].Form![UnitID] = Forms!Main.WorkOrders![UnitID]
Me.[UnitRepairHx].Form![DateCreated] = Date
Me.[UnitRepairHx].Form![WorkorderID#] = Forms!Main.WorkOrders![WorkorderID#]
Me.[UnitRepairHx].Form![ProblemDescription] = Forms!Main.WorkOrders![ProblemDescription]


Exit_Command27_Click:
Exit Sub

Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click

End Sub

When I click the button I get the following error:
"Databasename can't find the field '|' referred to in your expression"

Any ideas what I'm doing wrong?
Thank you in advance.

 

[kjv1611]

What about using a period instead of exclamation point? Dot instead of Bash notation?

Me.[/higlight][UnitRepairHx].Form[highlight]![/highlight][UnitID] = Forms!Main.WorkOrders[highlight]![/highlight][UnitID]

I think that bash should be dot notation there. [.] instead of [!]

----

I also think you don't need ".Form" in the phrase "Me.Form..." When you use "Me.", you are referring to the Form already. The only reason you should need "Form." after that (I think) is when you're dealing with subforms.

I've not tested this, but give it a try.

Also, the material at the following link appears to be a good reference for this type of coding:

http://www.mvps.org/access/forms/frm0031.htm

--

"If to err is human, then I must be some kind of human!" -Me

 

[DLynnTX]

I'm not sure if this is what you were talking about...

stDocName = "UnitRepairHx"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Me.[UnitRepairHx].[UnitID] = Forms!Main.WorkOrders![UnitID]
Me.[UnitRepairHx].[DateCreated] = Date
Me.[UnitRepairHx].[WorkorderID#] = Forms!Main.WorkOrders![WorkorderID#]
Me.[UnitRepairHx].[ProblemDescription] = Forms!Main.WorkOrders![ProblemDescription]

If it is, it didn't work... if I missed the point, please help me

 

[bubba100]

I believe you need to use Forms![UnitRepairHx]![UnitID]assuming the button is on the form Main.

 

[DLynnTX]

The button is actually on a subform (Workorders)

 

[bubba100]

Assuming that UnitRepairHx is a seperate form you can't use ME from your subform to refer to it.

 

[DLynnTX]

Ok - headed to the clients now - I'll try that when I get there. Thank you.

 

[PHV]

The button is actually on a subform (Workorders)
DoCmd.OpenForm "UnitRepairHx"
DoCmd.GoToRecord acDataForm, "UnitRepairHx", acNewRec
Forms!UnitRepairHx![UnitID] = Me![UnitID]
Forms!UnitRepairHx![DateCreated] = Date
Forms!UnitRepairHx![WorkorderID#] = Me![WorkorderID#]
Forms!UnitRepairHx![ProblemDescription] = Me![ProblemDescription]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DLynnTX]

I just had a chance to try this - PHV - that weren't PERFECTLY. Once again, you came through for me. Thank you so much.