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 pesquisa

    Compartilhe
    avatar
    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 Mar 05, 2016 5:58 pm

    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 Mar 06, 2016 9:10 pm, editado 2 vez(es)
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Limpar pesquisa

    Mensagem  gilberlanio em Sab Mar 05, 2016 6:44 pm

    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


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

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

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    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 Mar 06, 2016 8:46 pm

    Olá de novo.
    Tentei e não deu.
    avatar
    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 Mar 06, 2016 8:56 pm

    boa tarde amigo AlPedro, teria como postar ao menos parte de seu BD partes envolvidas para que possamos te ajudar, abraço Nogaro !
    avatar
    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 Mar 06, 2016 9:09 pm

    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 Mar 07, 2016 4:51 am, editado 2 vez(es)
    avatar
    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 Mar 06, 2016 9:11 pm

    olá amigo AlPedro, que bom que Resolveu. abraço Nogaro !
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Limpar pesquisa

    Mensagem  gilberlanio em Seg Mar 07, 2016 3:23 am

    Valeu pelo reterno


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

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

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

      Data/hora atual: Ter Out 17, 2017 10:33 am