MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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, 10:55

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

    dasilvabrito
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Código para limpar campos

    Mensagem  dasilvabrito em Dom 03 Nov 2013, 13: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 Dom 03 Nov 2013, 22:29

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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Código para limpar campos

    Mensagem  HARYSOHN em Seg 04 Nov 2013, 13: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, 07: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.]

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Código para limpar campos

    Mensagem  janettepires em Seg 16 Mar 2015, 10:30

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

    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, 10: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.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Código para limpar campos

    Mensagem  Silvio em Seg 16 Mar 2015, 11: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.]

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Código para limpar campos

    Mensagem  janettepires em Seg 16 Mar 2015, 11: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

    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, 11: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: Seg 05 Dez 2016, 13:29