[Resolvido]limpar vários campos

Bom dia, rapaziada.

Tô tentando adaptar esse código do JPaulo para limpar todos os campos de uma única vez, mas quando chega no campo que contém a
numeração automática, dispara a mensagem: "Você não pode atribuir um valor a esse objeto"
Como faço pra deixar só esse campo de fora e apagar todo o restante?

Private Sub SeuBotao_Click()
Dim X As Control
For Each X In Me.Controls
If TypeOf X Is TextBox Then
X = Null
End If
Next X
Me.SeuCampo.SetFocus
End Sub

Bom dia,

Troque "X = Null" por "X = Empty"

É isso

Att

Alexandre

Não deu também; esse campo com numeração automática não aceita alteração.
Só excluindo, mas não posso excluir porque eu preciso da autonumeração.

Sim, não aceita.
Este campo você deve desconsiderar.
Utilize a propriedade Marca (tag) do controle, e informe o valor "*" em todos os campos textbox, exceto o campo autonumerico.

Copie e cole a instrução abaixo:

Código:



Private Sub SeuBotao_Click()
Dim x As Control

    For Each x In Me.Controls
        If TypeOf x Is TextBox Then
            If x.Tag = "*" Then
                x.Value = Empty
            End If
        End If
    Next x
    Me.SeuCampo.SetFocus
   
End Sub




E isso

Espero ter ajudado

Att,

Alexandre Fim

Perfeito, Alexandre.

Obrigado.

Valeu Dori,

O forum agradece.

Sucesso