[ah]

Hi;

Need your help urgently.
I'm in the midst of developing a form. Can anyone help me with the following:

a) I wish to put the following into my form:
- Country
- Personnel Area
- Employee Group
-Employee Subgroup and etc

FYI, the above needs to have 25 selection list.
I wish to have different personnel area, employee group and employee
subgroup selection list when I select different country.Thus, it is going to
have different personnel area associated with the country that I select.

b) I tried to do the macro just now. However, I only managed to get the drop
down list mapped to the country field. By right, I need to use a combo box in
stead of a drop down list for personnel area, employee group and employee
subgroup, right?

c) Since there are so many fields in the form, does it mean that I need to
create multiple form in the Microsoft Visual Basic. I tried to map the
country with the personnel area list just now. Since there are 2 fields
involved, I've created 2 forms. Please advice whether I am doing the correct
things.

Below is the macro that I've put into the form. Appreciate if you could
guide me on this:

Form 1:
--------
Private Sub ComboBox1_Change()

ActiveDocument.FormFields("Country").Result = ComboBox1.Value

End Sub

----------------------------------------------------------------------

Private Sub UserForm_Initialize()

ComboBox1.ColumnCount = 1

'Load data into ComboBox

ComboBox1.List() = Array("AP", "EMEA", "USA")


End Sub
-----------------------------------------------------------


Form 2
--------

Private Sub ComboBox2_Change()

ActiveDocument.FormFields("PersonnelArea").Result = ComboBox2.Value

End Sub

--------------------------------------

Private Sub UserForm_Initialize()

ComboBox2.ColumnCount = 1

'Load data into ComboBox

ComboBox2.List() = Array("BER3 (DE03-Berlin )", "DIE3 (DE03-Dietzenbach
)", "DUS5 (DE05-Dusseldorf )", "FLE3 (DE03-Flensburg )")


End Sub

Macro:
-------



Private Sub ComboBox2_Change()

ActiveDocument.FormFields("PersonnelArea").Result = ComboBox2.Value

End Sub



Private Sub UserForm_Initialize()

ComboBox2.ColumnCount = 1

'Load data into ComboBox

ComboBox2.List() = Array("BER3 (DE03-Berlin )", "DIE3 (DE03-Dietzenbach
)", "DUS5 (DE05-Dusseldorf )", "FLE3 (DE03-Flensburg )")




End Sub