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]Código para limpar campos

    Compartilhe

    dantasr
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 05/09/2013

    [Resolvido]Código para limpar campos

    Mensagem  dantasr em Dom 03 Nov 2013, 13:55

    Bom dia a todos, existe um código para eu colocar em um botao para que quando clicado limpe dois campos do formulario ?
    avatar
    dasilvabrito
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 18/08/2013

    Re: [Resolvido]Código para limpar campos

    Mensagem  dasilvabrito em Dom 03 Nov 2013, 16:52

    Amigo, você pode usar esse comando


    para chama - la: ClearTxt Me

    Public Sub ClearTxt(p_Form As Form)
    'Limpa todos ou alguns TextBox e ComboBox de um Formulário
    Dim campo As Control

    For Each campo In p_Form.Controls
    If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Then
    campo = ""
    End If
    Next campo
    End Sub

    créditos: [Você precisa estar registrado e conectado para ver este link.]

    dantasr
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 05/09/2013

    Re: [Resolvido]Código para limpar campos

    Mensagem  dantasr em Seg 04 Nov 2013, 01:29

    amigo nao consegui entender direito o comando, eu quero limpar os dados da caixa de texto txtcampo atraves do botao cmdLimpar
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Re: [Resolvido]Código para limpar campos

    Mensagem  HARYSOHN em Seg 04 Nov 2013, 16:20

    Boa tarde Dantas.. Este que ele te passou é uma função para aplicação Genérica.. e poderá ser utilizada em qualquer formulário.

    Resumindo, ele busca todos os controles do tipo TextBox no formulário e o limpa..

    Pode ser aplicado da seguinte maneira:

    Em um novo módulo cole a função:

    Public Sub ClearTxt(p_Form As Form)
    'Limpa todos ou alguns TextBox e ComboBox de um Formulário
    Dim campo As Control

    For Each campo In p_Form.Controls
    If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Then
    campo = ""
    End If
    Next campo
    End Sub


    No botão no formulário chamaria da seguinte maneira:
    Call Public Sub ClearTxt(me)


    Se deseja apenas para duas texBox:

    No botão:

    Me.NomeDaTextBox1 = ""
    Me.NomeDaTextBox2 = ""

    Cumprimentos.


    Última edição por HARYSOHN em Sab 01 Fev 2014, 10:41, editado 1 vez(es) (Razão : Tópico dado como resolvido por falta de resposta)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Código para limpar campos

    Mensagem  janettepires em Seg 16 Mar 2015, 13:30

    Poderia me ajudar? Esta aparecendo a msg: "Você não pode atribuir valor a este objeto" na linha campo = ""
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Código para limpar campos

    Mensagem  Roberto_1977 em Seg 16 Mar 2015, 13:33

    Boa tarde,

    Tenta trocar = "" por = NULL

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3616
    Registrado : 20/04/2011

    Re: [Resolvido]Código para limpar campos

    Mensagem  Silvio em Seg 16 Mar 2015, 14:08

    Bom dia....

    apenas um pitaco....

    Private Sub SeuBotao_Click() ' evento ao clicar do botão
    Dim X As Control ' dimensionando x como controle
    For Each X In Me.Controls
    If TypeOf X Is TextBox Then 'se o tipo de controle, for uma caixa de texto então
    X = Null ' o controle fica nulo, ou limpo
    End If
    Next X
    Me.SeuCampo.SetFocus ' qual campo vai receber o foco, após a limpeza.


    Código visto nesse tópico.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [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 : 105
    Registrado : 14/03/2013

    Re: [Resolvido]Código para limpar campos

    Mensagem  janettepires em Seg 16 Mar 2015, 14:42

    Descobri que o problema da mensagem era que uma Textbox, estava recebendo o valor de uma função. E por isso não conseguia colocar nulo nesse campo.

    Obrigada! bounce
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Código para limpar campos

    Mensagem  Roberto_1977 em Seg 16 Mar 2015, 14:46

    Ainda bem que Resolveu... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 24 Set 2017, 02:24