MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]Código para limpar campos

    avatar
    dantasr
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código para limpar campos Empty [Resolvido]Código para limpar campos

    Mensagem  dantasr Dom 3 Nov - 6: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
    dasilvabrito
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  dasilvabrito Dom 3 Nov - 9: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: http://br.groups.yahoo.com/group/Microsoft-Access/message/7831
    avatar
    dantasr
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  dantasr Dom 3 Nov - 18:29

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


    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  Convidado Seg 4 Nov - 9: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 Sáb 1 Fev - 3:41, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  janettepires Seg 16 Mar - 7:30

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


    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  Convidado Seg 16 Mar - 7:33

    Boa tarde,

    Tenta trocar = "" por = NULL

    Abraço... Cool
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  Silvio Seg 16 Mar - 8: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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    janettepires
    janettepires
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  janettepires Seg 16 Mar - 8: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
    Convidado
    Convidado


    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  Convidado Seg 16 Mar - 8:46

    Ainda bem que Resolveu... Cool

    Conteúdo patrocinado


    [Resolvido]Código para limpar campos Empty Re: [Resolvido]Código para limpar campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 4:10