User Form issue

[ah]

Hi;

I've the following code in my user form currently, and it will auto prompt
the combo box to the user when they open the form. However, the country
selection field will become empty when the user open the form that they have
saved to their local drive by clicking on the "Enable Macro" button. Please
advice what should I do if I want the combo box to be shown only when the
user click on the Country_Name field and not to prompt to the user
automatically when they open the form?

My code details are as follows:

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.Fields(1).Result.Select
Unload Me
End Sub

Private Sub Reset_Click()

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

 

[Doug Robbins - Word MVP]

Call the macro that displays the userform on entry to the Country_Name
field.

See http://gregmaxey.mvps.org/FormField_UserForm_ListBox.htm

--
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]

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.Fields(1).Result.Select
Unload Me
End Sub

Private Sub Reset_Click()

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

Project Module coding

 

[Doug Robbins - Word MVP]

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]

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]

If its the first field in the form then I would expect that selection of the
country would be the first thing to be done. If it is not, you will need to
modify the document so that it is not the first field.

However, it might really be best if you just used a userform to start with
rather than a protected document using formfields.

--
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