[ah]

Hi;

Thanks for your prompt response. I've selected the gocombobox macro as the
entry macro for the Country_Name field. However, when I open the form, the
country selection combo list will be prompted to me automatically. How am I
going to prevent if from prompting the country selection combo list to me?
The selection should only be prompted when i click on the Country_Name field.

Note: For your infofrmation, the Country_Name field is the 1st field in the
form.

Thanks in advance

Whe

"Doug Robbins - Word MVP" wrote:

If it is opening immediately when you open the document, you must have an
autoopen() macro some where that is calling the form. If it is not in the
template for your form, it may be in an add-in, a template that you have
saved in the Word Startup folder.

To get it to appear when you enter the Country_Name field, you need to
access the properties dialog for that field and in the Run Macro On Entry
control, select your gocombobox macro.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"ah" wrote in message
...
Hi;
Thanks for your reply. However, I'm totally new to the coding.Appreciate
if
you could help to identify what are the coding that I need to add to the
below so that the combo list will only prompt out to me when I click on
the
Country_Name field, and not open automatically when I open the form. My
code
are as follows:

User Form coding:
-------------
Private Sub ComboBox1_Change()
ActiveDocument.FormFields("Country_Name").Result = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
'Load data into ComboBox
ComboBox1.List() = Array("Please select from the list", "AUSTRIA",
"BELARUS", "BELGIUM", "BULGARIA", "CROATIA", "CZECH REPUBLIC", "DENMARK",
"EGYPT", "FINLAND", "FRANCE", "GEORGIA", "GERMANY", "GREECE", "HUNGARY",
"IRELAND", "ISRAEL", "ITALY", "KAZAKHSTAN", "LATVIA", "LITHUANIA",
"MOROCCO",
"NETHERLANDS", "NIGERIA", "NORWAY", "PAKISTAN", "POLAND", "PORTUGAL",
"ROMANIA", "RUSSIA", "SAUDI ARABIAN", "SERBIA", "SLOVENIA", "SO.AFRICE",
"SPAIN", "SWEDEN", "SWITZERLAND", "TURKEY", "UAE", "UK", "UKRAINE",
"UZBEKISTAN")

Me.ComboBox1.ListIndex = 0
Me.ComboBox1.SetFocus
Me.ComboBox1.SelStart = 0
Me.ComboBox1.SelLength = Len(Me.ComboBox1.Text)

End Sub

Private Sub OK_Click()
ActiveDocument.FormFields("Country_Name").Result = Me.ComboBox1.Text
ActiveDocument.Bookmarks("Country_Name").Range.Fie lds(1).Result.Select
Unload Me
End Sub

Private Sub Reset_Click()

ActiveDocument.FormFields("Country_Name").Result = " "
ActiveDocument.Bookmarks("Country_Name").Range.Fie lds(1).Result.Select
Unload Me
End Sub

Project Module coding
----------------------------
Sub gocombobox()
UserForm.Show
End Sub