B
Becky
Hi All,
I've run into a problem with putting data in my combo boxes. I am
running Word '02 and the code works just fine. The problem is that the
form is distributed throughout the company and different users have
different versions of Word. I have found that anyone with Word '00
cannot open the form (they get an application error) because of this
code, even though users with Word '97 or '02 have no problems. I am
completely stumped. HELP PLEASE!
Thanks, Becky
This is the code for the 2 2-column combo boxes :
Sub AutoOpen()
InternalError.ColumnCount = 2
InternalError.ColumnWidths = 37
InternalError.AddItem "DUS"
InternalError.List(0, 1) = "Duplicate Order"
InternalError.AddItem "MDF"
InternalError.List(1, 1) = "Manufactured Defective"
InternalError.AddItem "MFG"
InternalError.List(2, 1) = "Manufacturing Error"
InternalError.AddItem "PIE"
InternalError.List(3, 1) = "Prod./Inventory Cntrl Error"
InternalError.AddItem "SHP"
NonInternaleRROR.ColumnCount = 2
NonInternaleRROR.ColumnWidths = 37
NonInternaleRROR.AddItem "DIS"
NonInternaleRROR.List(0, 1) = "Customer Dissatisfied"
NonInternaleRROR.AddItem "EXC"
NonInternaleRROR.List(1, 1) = "Parts Exchgd for New Purch."
NonInternaleRROR.AddItem "FGN"
NonInternaleRROR.List(2, 1) = "Foreign Office Return"
NonInternaleRROR.AddItem "MIS"
NonInternaleRROR.List(3, 1) = "Misc."
NonInternaleRROR.AddItem "MRC"
NonInternaleRROR.List(4, 1) = "Media Requirement Contract"
NonInternaleRROR.AddItem "SAL"
End Sub
I've run into a problem with putting data in my combo boxes. I am
running Word '02 and the code works just fine. The problem is that the
form is distributed throughout the company and different users have
different versions of Word. I have found that anyone with Word '00
cannot open the form (they get an application error) because of this
code, even though users with Word '97 or '02 have no problems. I am
completely stumped. HELP PLEASE!
Thanks, Becky
This is the code for the 2 2-column combo boxes :
Sub AutoOpen()
InternalError.ColumnCount = 2
InternalError.ColumnWidths = 37
InternalError.AddItem "DUS"
InternalError.List(0, 1) = "Duplicate Order"
InternalError.AddItem "MDF"
InternalError.List(1, 1) = "Manufactured Defective"
InternalError.AddItem "MFG"
InternalError.List(2, 1) = "Manufacturing Error"
InternalError.AddItem "PIE"
InternalError.List(3, 1) = "Prod./Inventory Cntrl Error"
InternalError.AddItem "SHP"
NonInternaleRROR.ColumnCount = 2
NonInternaleRROR.ColumnWidths = 37
NonInternaleRROR.AddItem "DIS"
NonInternaleRROR.List(0, 1) = "Customer Dissatisfied"
NonInternaleRROR.AddItem "EXC"
NonInternaleRROR.List(1, 1) = "Parts Exchgd for New Purch."
NonInternaleRROR.AddItem "FGN"
NonInternaleRROR.List(2, 1) = "Foreign Office Return"
NonInternaleRROR.AddItem "MIS"
NonInternaleRROR.List(3, 1) = "Misc."
NonInternaleRROR.AddItem "MRC"
NonInternaleRROR.List(4, 1) = "Media Requirement Contract"
NonInternaleRROR.AddItem "SAL"
End Sub