Passing value from one form to another

[Molly152]

Hello

I am sure that this question has been asked many times, but I cannot seem to find an answer that works. I have two forms, Form1 looks at tblChristmasCard field called CN_ID. I have created a cmd button, which opens frmAddMeToTheList with stLinkCriteria, and I want the new record to be populated with CN_ID from Form1.

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAddMeToTheList"
stLinkCriteria = "[CN_ID] =" & "'" & Me![CN_ID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Form_frmFRONTSHEET.CN_ID = Form_frmAddMeToTheList.CN_ID

Please could someone help and explain what I am doing wrong.

[jzwp11]

Welcome to the forum.

What is the data type of the CN_ID field? If it is numeric, then you must not enclose it in quotes.

Additionally, your form reference is incorrect. You have to supply the ID from the current form (frmFRONTSHEET I assume) to the form that you open (frmAddMeToTheList). So frmFRONTSHEET has to be on the righthand side of the assignment statment. So assuming that CN_ID is numeric, the code would look like this

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAddMeToTheList"
stLinkCriteria = "[CN_ID] =" & Me![CN_ID] 
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Forms!frmAddMeToTheList.CN_ID=Forms!frmFRONTSHEET.CN_ID

[RuralGuy]

There are several issues that could be changed but your issue is the wrong direction:
DestinationObject = SourceObject
...is the correct syntax. You seem to have it backwards.

[Molly152]

Thank you - once I swapped things around it works.

[RuralGuy]

Great Molly! Thanks for posting back.