em um formulário de consulta tenho três combobox, e estou criando um botão de comando para limpar os campos para poder fazer novas consultas.
estou fazendo assim:

Private Sub cmdlimpa_Click(Index As Integer)

If cmbperiodo.Text = "" And cmbsolicitante(1).Text = "" And cmbtiposerviço(0).Text = "" Then
MsgBox "Os três campos já estão vazios!", vbInformation, "Informação"

Else

cmbperiodo.Text = ""
cmbsolicitante(1).Text = ""
cmbtiposerviço(0).Text = ""

End If

End Sub

só que dá o seguinte erro:
run-time error '383'
'text' property is read-only

como faço para resolver?

Ats,
Marcelo

Isso Acontece pq a propriedade Style do combo eh 2-Dropdown List.

Para resolver isso passe a propriedade para 0-Dropdown Combo ou faça

   cmbperiodo.ListIndex = -1

   cmbsolicitante(1).ListIndex = -1

   cmbtiposerviço(0).ListIndex = -1

 

Te +

Falae...

vc tem 2 opções...

remover os itens ou colocá-los numa posição que ele fique vazio ..

faça assim ...

 

        cmbperiodo.RemoveItem (3)

        cmbperiodo.ListIndex = -1

 

espero ter ajudado

 

 AndrePaulo

Valeu!!!, AndrePaulo e Waldirjr

 

deu certo!!

 

Ats,

Marcelo