MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Limpar todas as TextBox

    Compartilhe

    Ribar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/08/2013

    [Resolvido]Limpar todas as TextBox

    Mensagem  Ribar em Qui 20 Mar 2014, 16:25

    Olá, pessoal

    Tenho um formulário com várias textBox, todas com as iniciais "Txt_", necessito de fazer um botão que limpe todas as textBox, sem utilizar o exemplo do código abaixo, para não ficar extenso meu VBA.

    Txt_Data = ""
    Txt_Nome = ""
    Txt_End = ""
    Txt_CEP = ""
    Txt_Etc..........

    No aguardo mais um vez da ajuda

    Grato

    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Limpar todas as TextBox

    Mensagem  JPaulo em Qui 20 Mar 2014, 18:11

    Ola;

    teste por favor;

    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



    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Ribar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 12/08/2013

    [Resolvido] Limpar todas as Textbox

    Mensagem  Ribar em Qui 20 Mar 2014, 18:19

    Grato, JPaulo

    Perfeito
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Limpar todas as TextBox

    Mensagem  JPaulo em Qui 20 Mar 2014, 20:54

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 93
    Registrado : 14/03/2013

    Re: [Resolvido]Limpar todas as TextBox

    Mensagem  janettepires em Seg 16 Mar 2015, 13:12

    Bom dia!

    JPaulo,

    Não entendi como posso aplicar este código no meu banco.

    Tenho um form não acoplado frm_AberturaCamados e mais de 30 campos  txt_.... não acoplados nele.
    Como faço para que todos sejam limpos de uma só vez?

    Abs
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9255
    Registrado : 04/11/2009

    Re: [Resolvido]Limpar todas as TextBox

    Mensagem  JPaulo em Ter 17 Mar 2015, 15:01

    Ola;

    Exatamente como está escrito,

    No evento ao pressionar de um botão no seu formulario;

    Private Sub SeuBotao_Click()



    .................................................................................
    Contribua com o maximoaccess, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 93
    Registrado : 14/03/2013

    Re: [Resolvido]Limpar todas as TextBox

    Mensagem  janettepires em Ter 17 Mar 2015, 15:43

    Obrigada querido, o problema era que um campos chamava uma função na fonte do controle.

    Aproveitando JP, se eu quiser deixar um campo de fora como eu posso fazer?

      Data/hora atual: Dom 25 Jun 2017, 09:39