Encontrei esse código aqui acho que vai resolver
Dim lLoc As Long
lLoc = Me.cmbcliente.ListIndex
'check for a valid entry
If lLoc = -1 Then
Me.cmbcliente.SetFocus
MsgBox "Please enter a valid location"
Exit Sub
End If
Tentar não é saber, é ter a certeza que vai descobrir
Dicas excel, vba, Access http://vbaedit.blogspot.com.br/
Postado : 31/08/2015 4:39 pm