How to have field values transported to fields in another form?

[AA Arens]

Somebody willing to assist me in the following?
I want to have values from one field copied to another field when I
choose choose a item from a drop down menu.

I have 2 forms:

1 Company contact info
2 Employee contact info

When I finished form 1, I jump to form 2.
There I have to fill in the employee name etc., but also the conpany he
works for (with a drop doenmenu).
When I choosed the company from the list (coming from form 1), I would
like Access thus automatically fills the contact info fields from the
employee wich are probably the same: like company phone, conpany fax,
email.
When the field value is not the same, I still want to have the
possibility to change the values into unique employee contact info. How
to perform this?

This is some info for the VB script:
From:
frmCompany: Control Scourse = PhoneNumber (# company)
Copied to field:
frmEmployee: Control Scourse = Work Phone (# employee)

Bart

Access 2003 / Win xp sp2

[PC Datasheet]

I would suggest you do this in a completely difeerent way that simplifies
your data entry. First you need tables that look like:
TblCompany
CompanyID
CompanyName
...
...
CompanyPhone
CompanyFax
CompanyEmail

TblEmployee
EmployeeID
CompanyID
FName
MI
LName
...
...
ContactInfoSameAsCompany 'Yes/No
EmployeePhone
EmployeeFax
EmployeeEmail

Data entry would be by a form/subform where the main form is based on a
query based on TblCompany and the subform is based on a query based on
TblEmployee. The subform would be a single form rather than a continuous
form. Put the following code in the AfterUpdate event of
ContactInfoSameAsCompany:
If Me!ContactInfoSameAsCompany = True Then
Me!EmployeePhone = Me.Parent!CompanyPhone
Me!EmployeeFax = Me.Parent!CompanyFax
Me!EmployeeEmail = Me.Parent!CompanyEmail
Else
Me!EmployeePhone = Null
Me!EmployeeFax = Null
Me!EmployeeEmail = Null
End

You don't have to select the company with a combobox, the form/subform
construct automatically takes care of associalting an employee with the
company and the above code autofills EmployeePhone, EmployeeFax and
EmployeeEmail when they are the same as the company's.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com


"AA Arens" <ba***********@gmail.com> wrote in message
news:11*********************@g49g2000cwa.googlegro ups.com...

Somebody willing to assist me in the following?
I want to have values from one field copied to another field when I
choose choose a item from a drop down menu.

I have 2 forms:

1 Company contact info
2 Employee contact info

When I finished form 1, I jump to form 2.
There I have to fill in the employee name etc., but also the conpany he
works for (with a drop doenmenu).
When I choosed the company from the list (coming from form 1), I would
like Access thus automatically fills the contact info fields from the
employee wich are probably the same: like company phone, conpany fax,
email.
When the field value is not the same, I still want to have the
possibility to change the values into unique employee contact info. How
to perform this?

This is some info for the VB script:
From:
frmCompany: Control Scourse = PhoneNumber (# company)
Copied to field:
frmEmployee: Control Scourse = Work Phone (# employee)

Bart

Access 2003 / Win xp sp2

[AA Arens]

Thanks for your help, I will find out.

Bart (AA Arens)