Populate control in another form

[Jim Stacey]

My task is to place a button in the form clients,with which to open
the form Customers, go to a new record, and populate this new customer
with the data from the client. This client should be then deleted,
since he is becoming customer already.

With the following code i open the new form,go to a new record, but then
the data are not transferred :
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FCustomers"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToControl "customerid"
Dim f As Form
Set f = Forms![FCustomers]
f![CompanyName] = Me![CompanyName]
f![City] = Me![city]
f![phone] = Me![phone]
RunCommand acCmdDeleteRecord

[Larry Linson]

What _does_ happen? Error messages?

It seems likely that you are trying to work with that form before it
actually opens. I'd suggest you open the form in Data Entry mode and in the
Load, or OnCurrent events of the newly-opened form, obtain the data from the
still-open Client form. Once you have the information, then you can close
the Client form.

As to deleting the Client record, you can do that with a Query from VBA
code -- the Client form does not have to be open.

Larry Linson
Microsoft Access MVP
"Jim Stacey" <og********@yahoo.com> wrote in message
news:9c**************************@posting.google.c om...

My task is to place a button in the form clients,with which to open
the form Customers, go to a new record, and populate this new customer
with the data from the client. This client should be then deleted,
since he is becoming customer already.

With the following code i open the new form,go to a new record, but then
the data are not transferred :
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FCustomers"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , "", acNewRec
DoCmd.GoToControl "customerid"
Dim f As Form
Set f = Forms![FCustomers]
f![CompanyName] = Me![CompanyName]
f![City] = Me![city]
f![phone] = Me![phone]
RunCommand acCmdDeleteRecord