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]Limpar pesquisa

    Compartilhe

    alpedro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Limpar pesquisa

    Mensagem  alpedro em Sab 05 Mar 2016, 16:58

    Olá.
    Tenho um formulário pesquisa que insiro o nome, morada, etc e faz a pesquisa.
    Criei, seguindo um exemplo , um botão limpar para escrever de novo e fazer nova pesquisa, mas dá-me erro.
    O código é o seguinte:

    Private Sub btn_limpar_Click()
    Me.pesquisa_nome.SetFocus
    Me.pesquisa_nome.Text = ""
    Me.pesquisa_morada.Text = ""
    End Sub

    Se tiver o código abaixo, dá certo:

    Private Sub btn_limpar_Click()
    Me.pesquisa_nome.SetFocus
    Me.pesquisa_nome.Text = ""
    End Sub

    Como se resolve? Obrigado


    Última edição por alpedro em Dom 06 Mar 2016, 20:10, editado 2 vez(es)

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    Re: [Resolvido]Limpar pesquisa

    Mensagem  gilberlanio em Sab 05 Mar 2016, 17:44

    Já tentou assim?

    Private Sub btn_limpar_Click()
    Me.pesquisa_nome.Text = ""
    Me.pesquisa_morada.Text = ""
    Me.pesquisa_nome.SetFocus
    End Sub

    SetFocus por último


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

    alpedro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    Re: [Resolvido]Limpar pesquisa

    Mensagem  alpedro em Dom 06 Mar 2016, 19:46

    Olá de novo.
    Tentei e não deu.

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Limpar pesquisa

    Mensagem  Nogaro513 em Dom 06 Mar 2016, 19:56

    boa tarde amigo AlPedro, teria como postar ao menos parte de seu BD partes envolvidas para que possamos te ajudar, abraço Nogaro !

    alpedro
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    Re: [Resolvido]Limpar pesquisa

    Mensagem  alpedro em Dom 06 Mar 2016, 20:09

    olá, Nogaro e Gilberlânio.
    Descobri a solução:

    Private Sub btn_limpar_Click()

    Me.pesquisa_morada.SetFocus
    Me.pesquisa_morada.Text = ""
    Me.pesquisa_nome.SetFocus
    Me.pesquisa_nome.Text = ""

    ' por  pesquisa_nome em último para o começo do preenchimento

    End Sub


    Obrigado  Smile


    Última edição por alpedro em Seg 07 Mar 2016, 03:51, editado 2 vez(es)

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Limpar pesquisa

    Mensagem  Nogaro513 em Dom 06 Mar 2016, 20:11

    olá amigo AlPedro, que bom que Resolveu. abraço Nogaro !

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    Re: [Resolvido]Limpar pesquisa

    Mensagem  gilberlanio em Seg 07 Mar 2016, 02:23

    Valeu pelo reterno


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

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

    Loja virtual - Gilberlânio Rocha

      Data/hora atual: Dom 04 Dez 2016, 01:56