Combobox related functions

Public Function ClearComboIfValNotCurrent(cboBox As Control, Optional SetToVal As Variant = Null) As Boolean

Clear the combo box if the currently selected value is no longer in the list. Returns True if the value was cleared.


Public Sub ComboDisableIfSingleRow(cboBox As Control)

Disable combo if it has exactly one row.
If the only choice is selected, there is no point enabling it

Public Function ComboHasSingleRow(cboBox As Control) As Boolean

Combo has exactly one row ?

Public Sub ComboHideIfSingleRow(cboBox As Control)

Hide combo if it has exactly one row.
If the only choice is selected, there is no point displaying it

Public Function CurrentValInComboList(cboBox As Control) As Boolean

Is the currently selected value still in the list ? (If a combo has been requeried the selected value may not be in the combo list any longer)

Public Function GetMeasurementInTwips(ColWidthStr As String) As Integer

Convert the string taken from a control's .Width setting to Twips

Public Sub RequeryCheckAndSelectIfSingle(cboBox As Control)

Requery the combo box, clear it if the currently selected value is no longer in the list,

Public Function SelectFirstIfSingleRow(cboBox As Control, Optional AddlEmptyVal As Variant = Null) As Boolean

If the combo has no selected value, and has exactly one row, select the row.

Public Function SelectFirstListVal(cboBox As Control, Optional ZeroIsEmpty As Boolean = False, Optional ForceSelect As Boolean = False) As Boolean

If the combo has no selected value, select the first row.


Public Sub SelectNextListVal(cboBox As Control)

Select the row after the currently selected row.
If at the last row, go to the first row and beep.


Public Sub SelectPrevListVal(cboBox As Control)

Select the row before the currently selected row.
If at the first row, go to the last row and beep.