How to carry data from one form to another, control referencing

M

Marjorie

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: (which I know is wrong)
Forms![frmtblZipcode]![Zipcode] = NewData

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

Have a great day,
Marjorie
 
A

Alex Dybenko

Hi,

in a form's frmtblZipcode load event set ZipField default value to
me.openargs (you pass there NewData )

HTH
 
M

Marjorie

Thanks! Worked like a charm!

Alex Dybenko said:
Hi,

in a form's frmtblZipcode load event set ZipField default value to
me.openargs (you pass there NewData )

HTH
--
Alex Dybenko (MVP)
http://Alex.Dybenko.com
http://www.PointLtd.com



Marjorie said:
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: (which I know is wrong)
Forms![frmtblZipcode]![Zipcode] = NewData

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

Have a great day,
Marjorie
Click to expand...
Click to expand...
 
Top