How do you reference data from one form to another, global variabl

[Guest]

Please help if you can:

I have a combo box on a form (frmTest) that contains zipcodes. In the
'notinlist' function, I have working code that asks, "Do you want to add
'11122' to the zipcode table?" Yes/No. If you choose yes, then the data
entry form (frmZipcode) opens to add a zipcode, city, and state. Closing
this form saves the new zip, etc.; closes the zip data entry, and advances to
the next new record on frmTest.

The problem: If a person enters a zipcode (22211) on frmTest, and they
choose to enter it into frmZipcode, I do NOT want them to have to retype the
zipcode on frmZipcode...I want it to 'carry over' from the first form where
they first entered it. I know that I'm missing something easy
here...something wrong with referencing the field or something. I would
greatly appreciate any help.

Here's the code on the not in list:
Public Sub Zip_NotInList(NewData As String, Response As Integer)

If MsgBox("Do you want to add '" & NewData & "' to the zipcode table?",
vbOKCancel, "Add New Item?") = vbOK Then

'Remove new data from combo box so control requeries
DoCmd.RunCommand acCmdUndo

'Display Zipcode form to collect new data.
DoCmd.OpenForm "frmtblZipcode", acNormal, , , acFormAdd, acDialog,
NewData


'Continue without displaying default error message.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If


End Sub


============
I was trying something like:
Forms![frmtblZipcode]![Zipcode] = NewData

HELP!!!!!!!!!!!!!!

Have a great day,
Marjorie

 

[Guest]

there are few ways to do that:
1. add the record to the table zipcode before opening the form, and then
open the form on edit existing record and not adding
2. save the zipcode on a global variable, and on the on load property of the
zipcode form assign that value to your field (its usefull if you open the
form from few places)
3. on the onload of your zipcode form assign the value from the field on the
mainform (usefull if you open the zipcode form for adding only from one place)
me.zipcode=Forms![MyFormName]![MyFieldName]