Display Message "Empty" when Combbox1 has no values or rather Empty

[NimishK]

Anyone

in user Forfm

Private Sub UserForm_Initialize()
  combobox1.dropstyle =  1-FrmDropButtonStyleArrow
  'when UserForm is Intialized or activated  the 
  combobox1.value = ""   'or  
  combobox1.text = ""
End Sub

1. When clicked on above combobox1 or on the arrowbutton of the combobox1 i want a msg that combobox is Empty and the list is also empty and gives the option to select from another combobox2 ----- How to achieve this ?

I tried the below in Combobox1_Change event nothing worked also in Combobox1_Click Event it did not work

'If cmbProdCode Is Nothing Then
'If cmbProdCode.ListIndex = -1 Then
'If cmbProdCode = vbNullString Then
'If cmbProdCode.Value = "" Then
'   MsgBox "Empty" , vbOKOnly
'End If

Thanks in Advance


NimishK

 

[dmt32]

Hi,
try using the controls listcount property and see if this does what you want

  If Me.ComboBox1.ListCount = 0 Then
        'do something
        
    Else
    
        'do something else
        
    End If

Dave

 

[NimishK]

Dave

this also does not work

NimishK