Message 1 of 5
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello, is there a way to reorganize drop down lists on forms? I have a list of horse power ratings and default organization is alphabetic so 150HP comes before 70HP or 50HP for example. Is there a way to reorganize these drop downs? Id really like it to be in order of 10, 20, 30 ect. It may not work for this exact scenario but its been making me think, any help would be much appreciated.
Sub main iPropPumpMotor End Sub 'PartNumber Sub iPropPumpMotor MultiValue.SetValueOptions(True, DefaultIndex := 0) If HP = "7.5 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = True Component.IsActive("PumpMotor P-Base 16.5 in:1") = False 'set list MultiValue.SetList("PartNumber", "HO7P2BLE") 'set default value Parameter("PartNumber") = "HO7P2BLE" If PartNumber = "HO7P2BLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "MOTOR, VHS - 7.5 HP, 1765 RPM, 230-460/3/60" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO7P2BLE" End If ElseIf HP = "10 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = True Component.IsActive("PumpMotor P-Base 16.5 in:1") = False 'set list MultiValue.SetList("PartNumber", "HO10E2BLE", "HT10P2BLE", "PHO10P2BLE") 'set default value Parameter("PartNumber") = "HO10E2BLE" If PartNumber = "HO10E2BLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "MOTOR, VHS - 10 HP, 1800 RPM, 230-460/3/60" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO10E2BLE" ElseIf PartNumber = "HT10P2BLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 10 HP - 1800 RPM, TEFC, 230/460" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HT10P2BLE" ElseIf PartNumber = "PHO10P2BLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "MOTOR, VHS - 10 HP, 1800 RPM, 230-460/3/60" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "PHO10P2BLE" End If ElseIf HP = "15 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = True Component.IsActive("PumpMotor P-Base 16.5 in:1") = False 'set list MultiValue.SetList("PartNumber", "HO15S2BLE" , "HO15S2BLF" , "HO15V2BLE") 'set default value Parameter("PartNumber") = "HO15S2BLE" If PartNumber = "HO15S2BLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "MOTOR, VHS - 15 HP, 1800 RPM, 230-460/3/60" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO15S2BLE" ElseIf PartNumber = "HO15S2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "MOTOR, VHS - 15 HP, 1800 RPM, 230-460/3/60" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO15S2BLF" ElseIf PartNumber = "HO15V2BLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 15 HP - 1800 RPM, Wp1, VHS" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO15V2BLE" End If ElseIf HP = "20 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = True Component.IsActive("PumpMotor P-Base 16.5 in:1") = False 'set list MultiValue.SetList("PartNumber", "HO20P2BLF", "HO20P3BLG", "HO20V2BLF") 'set default value Parameter("PartNumber") = "HO20P2BLF" If PartNumber = "HO20P2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 20HP - 1775 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO20P2BLF" ElseIf PartNumber = "HO20P3BLG" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 20HP - 1175 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO20P3BLG" ElseIf PartNumber = "HO20V2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 20 HP - 1800 RPM, Wp1, VHS" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO20V2BLF" End If ElseIf HP = "25 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = True Component.IsActive("PumpMotor P-Base 16.5 in:1") = False 'set list MultiValue.SetList("PartNumber", "PHO25P2BLF" , "HO25P2BLG" , "HO25S1BLF" , "HO25S2BLF" , "HO25V2BLF" , "HO25V2BLG" , "HO25V2GLE") 'set default value Parameter("PartNumber") = "PHO25P2BLF" If PartNumber = "HO20P2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 25HP, WP1, PE, 1800, 230/460" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "PHO25P2BLF" ElseIf PartNumber = "HO20P3BLG" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 25 HP - 1800 RPM, Wp1, VHS" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO25P2BLG" ElseIf PartNumber = "HO25S1BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 25 HP - 3600 RPM, Wp1, VHS" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO25S1BLF" ElseIf PartNumber = "HO25S2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 25 HP - 1800 RPM, Wp1, VHS" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO25S2BLF" ElseIf PartNumber = "HO25V2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 25 HP - 1800 RPM, Wp1, VHS" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO25V2BLF" ElseIf PartNumber = "HO25V2BLG" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "Missing" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO25V2BLG" ElseIf PartNumber = "HO25V2GLE" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 25 HP - 1800 RPM, Wp1, VHS, 575V" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO25V2GLE" End If ElseIf HP = "30 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = True Component.IsActive("PumpMotor P-Base 16.5 in:1") = False 'set list MultiValue.SetList("PartNumber", "PHO30P2BLF" , "PHO30P2BLG" , "HO30P3BLG" , "HO30S2BLF" , "PHO30V2BLF") 'set default value Parameter("PartNumber") = "PHO30P2BLF" If PartNumber = "PHO30P2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "MOTOR, VHS - 30 HP, 1800 RPM, 230-460/3/60" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "PHO30P2BLF" ElseIf PartNumber = "PHO30P2BLG" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 30HP - 1775 RPM, 460VAC" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "PHO30P2BLG" ElseIf PartNumber = "HO30P3BLG" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 30HP - 1785 RPM, 460VAC" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO30P3BLG" ElseIf PartNumber = "HO30S2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, 30HP - 1770 RPM, 460VAC" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "HO30S2BLF" ElseIf PartNumber = "PHO30V2BLF" Then iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Description") = "PUMP MOTOR, BF39 - 30HP, 1770 RPM, 460VAC" iProperties.Value("PumpMotor P-Base 12 in:1", "Project", "Part Number") = "PHO30V2BLF" End If ElseIf HP = "40 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "PHO40P2BLG" , "HO40V2BLF") 'set default value Parameter("PartNumber") = "PHO40P2BLG" If PartNumber = "PHO40P2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, VHS - 40HP, 1780 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO40P2BLG" ElseIf PartNumber = "HO40V2BLF" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, 40HP, 1800 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO40V2BLF" End If ElseIf HP = "50 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "PHO50P2BLG" , "PHO50P2BLGXYL" , "HO50S2BLG" , "PHO50V2BLF" , "HO50V2BLG" , "HO50V2GLG") 'set default value Parameter("PartNumber") = "PHO50P2BLG" If PartNumber = "PHO50P2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MTR, VHS - 50HP, US, PREM, 1775 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO50P2BLG" ElseIf PartNumber = "PHO50P2BLGXYL" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MTR, VHS - 50HP, US, PE, 1800R" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO50P2BLGXYL" ElseIf PartNumber = "HO50S2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 50HP, 1800 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO50S2BLG" ElseIf PartNumber = "PHO50V2BLF" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 50HP, 1800 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO50V2BLF" ElseIf PartNumber = "HO50V2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 50HP, 1800 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO50V2BLG" ElseIf PartNumber = "HO50V2GLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 50HP, 1800 RPM, 575V/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO50V2GLG" End If ElseIf HP = "60 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "PHO60P2BLG", "HO60S2BLG", "PHO60V2GLG", "PHO60V2SLG") 'set default value Parameter("PartNumber") = "PHO60P2BLG" If PartNumber = "PHO60P2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, 60HP, PREM EFF, VHS, 1800RPM, 460/3/60, NRR, 1-3/16 BX" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO60P2BLG" ElseIf PartNumber = "HO60S2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 60HP, 1800 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO60S2BLG" ElseIf PartNumber = "PHO60V2GLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 60HP, 1800 RPM, 575V/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO60V2GLG" ElseIf PartNumber = "PHO60V2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 60HP, 1800 RPM, 230/460VAC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO60V2SLG" End If ElseIf HP = "75 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "HO75E2G", "PHO75P2BLGXYL", "HO75S2BLG", "HO75V2GLG", "HO75V2SLG") 'set default value Parameter("PartNumber") = "HO75E2G" If PartNumber = "HO75E2G" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "VERTICAL MOTOR - 75 HP, 1775 RPM" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO75E2G" ElseIf PartNumber = "PHO75P2BLGXYL" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MTR, VHS - 75HP, US, PE, 1800RPM, 460/3/60, NRR, 1.1875IN" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO75P2BLGXYL" ElseIf PartNumber = "HO75S2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 75HP - 1800RPM, 460/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO75S2BLG" ElseIf PartNumber = "HO75V2GLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 75HP - 575/3/60, 1800RPM" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO75V2GLG" ElseIf PartNumber = "HO75V2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 75HP - 460/3/60, 1800RPM" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO75V2SLG" End If ElseIf HP = "100 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "HO100P2BLG", "PHO100P2SLG", "HO100S2BLG", "HO100V2SLG") 'set default value Parameter("PartNumber") = "HO100P2BLG" If PartNumber = "HO100P2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, 100HP, 1800RPM, 404T, 230/460V, TEF" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO100P2BLG" ElseIf PartNumber = "PHO100P2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, 100HP, 1800RPM, 230/460V, PE" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO100P2SLG" ElseIf PartNumber = "HO100S2BLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, 100HP, 1800RPM, 404T, 230/460V, TEF" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO100S2BLG" ElseIf PartNumber = "HO100V2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "MOTOR, 100HP, 3600RPM, 143T, 230/460V, TEFC" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO100V2SLG" End If ElseIf HP = "125 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "HO125P2SLG", "HO125V2SLG") 'set default value Parameter("PartNumber") = "HO125P2SLG" If PartNumber = "HO125P2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 125HP - 1800RPM, 460/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO125P2SLG" ElseIf PartNumber = "HO125V2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 125HP - 1800RPM, 460/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO125V2SLG" End If ElseIf HP = "150 HP" Then Component.IsActive("PumpMotor P-Base 12 in:1") = False Component.IsActive("PumpMotor P-Base 16.5 in:1") = True 'set list MultiValue.SetList("PartNumber", "PHO150P2SLG", "HO150S2SLG") 'set default value Parameter("PartNumber") = "PHO150P2SLG" If PartNumber = "PHO150P2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 150HP - 1800RPM, 460/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "PHO150P2SLG" ElseIf PartNumber = "HO150S2SLG" Then iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Description") = "PUMP MOTOR, 150HP - 1800RPM, 460/3/60" iProperties.Value("PumpMotor P-Base 16.5 in:1", "Project", "Part Number") = "HO150S2SLG" End If End If End Sub
Solved! Go to Solution.