Limpar Campos

[Guest - ricardo -]

qual o comando para eu clikar em um botao e limpar todas os campos

eu uso uma msg "Deseja limpar todos os campos?"

Sim ou não

clik em sim limpa tudo , clik em não fica como esta

brigado =)

[kuroi]

Dim mControle As Control
    For Each mControle In Me.Controls
            If TypeOf mControle Is TextBox Then
                mControle.Text = ""
            End If
    Next

[daniel-ahmmg]

Kuroi,

Eu tentei aplicar esse comando para planilhas de excel e não funcionou...

Se eu quisesse fazer um procedimento semelhante (como você pode ter visto no meu tópico), como eudeveria proceder?

[kuroi]

Kuroi,

Eu tentei aplicar esse comando para planilhas de excel e não funcionou...

Se eu quisesse fazer um procedimento semelhante (como você pode ter visto no meu tópico), como eudeveria proceder?

sinto muito, cara mas eu não manjo nada de nada mesmo de VBA ou de Visual Basic com Excel.

[Guest Guest]

eu tb ia abrir um tópico sobre isto, mais aproveita q já tem aki

coloquei o comando , lipo os campos , mais não os combos check box e a grid

como faria isto?

[kuroi]

Dim mControle As Control
   For Each mControle In Me.Controls
           If TypeOf mControle Is TextBox Then
               mControle.Text = ""
           ElseIf TypeOf mControle Is CheckBox Then
               mControle.Value = 0
           ElseIf TypeOf mControle Is DataGrid Then
               Set mControle.DataSource = Nothing
           End If
   Next

essa é a logica, ve quais os controles q c quer limpar e adapte.

[Guest Guest]

ok vo fazer isso vlw

[Guest Guest]

como eu faco pra limpa uum listbox !? tentei text , value , caption

uhaeuhaeuheuhae num sei qual é não

alguém poderia me ajudar!? please

mui obrigado

[kuroi]

faca um for:

for i = 1 to List1.ListCount
List1.RemoveItem 0
Next

[Guest Guest]

eu defini o "i" como uma string , so q mesmo assim não funciono....

[kuroi]

em vez de string ponha como inteiro.

[Guest Guest]

fiz isso , so q ele acabo apagando tudo dentro da minha listbox

o problema e q eu tenho varios itens para selecionar estilo checkbox dentro da listbox , queria apenas limpa os "checks" dentro da list

esqueci de mencionar

[kuroi]

então faca assim:

    For i = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(i) Then List1.RemoveItem i
    Next