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 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)
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 646
    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
    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 06 Mar 2016, 19:46

    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 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 !
    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 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)
    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 06 Mar 2016, 20:11

    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 : 646
    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 25 Jun 2017, 09:43