Combo Box and AutoFill

gmaxey · #1 08-02-2016, 07:55 AM

Sam,

I don't know where that user interface came from but that is not a combobox it is a dropdown formfields. Comboboxes let you type in alternate text not part of the list.

You will need to set a macro to run on exit from the dropdown:

Code:

Sub ConvertQtrToMonths()
  With ActiveDocument
    .FormFields("Text1").Enabled = True
    .FormFields("Text1").Enabled = True
    .FormFields("Text1").Enabled = True
    Select Case .FormFields("Dropdown1").Result
      Case "Q1"
        .FormFields("Text1").Result = "January"
        .FormFields("Text2").Result = "February"
        .FormFields("Text3").Result = "March"
      Case "Q2"
        .FormFields("Text1").Result = "April"
        .FormFields("Text2").Result = "May"
        .FormFields("Text3").Result = "June"
      Case "Q3"
      
      Case "Q4"
      
    End Select
'    .FormFields("Text1").Enabled = False
'    .FormFields("Text1").Enabled = False
'    .FormFields("Text1").Enabled = False
  End With
lbl_Exit:
  Exit Sub
End Sub

If there is another field in your form then you can disable the three month text boxes. Otherwise you have to leave at least one enable so you will have somewhere to exit to.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Autocomplete With Combo Box	JPMontoya	Word	1	12-08-2015 01:41 PM
Creating AutoFill form - AutoFill information depending on a selection.	RyanHarper	Word	3	06-15-2015 01:01 PM
Combo Box Items	BoringDavid	Word VBA	12	12-12-2013 05:14 AM
Combo Box	Hinchy	Word	4	09-04-2012 05:31 AM
Hide a combo box	DrewB	Word	3	06-08-2009 11:29 PM