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]Pesquisa número de nota fiscal

    Compartilhe
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    [Resolvido]Pesquisa número de nota fiscal

    Mensagem  cafpr em 9/9/2017, 01:07

    Usei várias códigos para em formulário de pesquisa filtrar somente o número digitado, mas tras todos.

    Ex; digita: 2

    retorna: 122
    22
    1542

    é o correto seria todas, se houver número 2.

    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  ahteixeira em 9/9/2017, 01:12

    Olá,
    Retire o * antes e depois da variável do filtro.
    Será isso?
    Abraço
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  cafpr em 9/9/2017, 01:18

    Boa noite Alvaro, obrigado por responder.

    Não é isso, alias nos códigos que testei não há.

    Até utilizei alguns do forum, e o resultado são os mesmo que postei acima.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  ahteixeira em 9/9/2017, 11:00

    Olá Clóvis Augusto,
    Mostre o código que está a utilizar do que relatou na mensagem n. 1.
    Abraço
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  cafpr em 9/9/2017, 14:31

    Na cbo_NF_Pesquisa

    Private Sub Cbo_NF_Pesquisa_AfterUpdate()
    Call filtroCbo_NF_pesquisa
    End Sub


    Public Sub filtroCbo_NF_pesquisa()
    Dim f2 As Variant

    If Me.Cbo_NF_Pesquisa <> "" Then
    f2 = "[NumNf] Like '*" & Me.Cbo_NF_Pesquisa & "*'"
    Else
    f2 = ""
    End If

    Me.Filter = f2
    Me.FilterOn = True
    End Sub
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  ahteixeira em 9/9/2017, 15:54

    Olá Clóvis, tente alterando assim:

    f2 = "[NumNf] Like '" & Me.Cbo_NF_Pesquisa & "'"


    Se não der, tente assim:

    f2 = "[NumNf] = '" & Me.Cbo_NF_Pesquisa & "'"

    Abraço
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 963
    Registrado : 08/02/2011

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  cafpr em 9/9/2017, 16:46

    Boa tarde Alvaro.

    Você está correto, a mensagem 2.

    A primeira instrução, retirando após o else e f2 faz a pesquisa corretamente.

    Public Sub filtroCbo_NF_pesquisa()
    Dim f2 As Variant
       If Me.Cbo_NF_Pesquisa <> "" Then
           f2 = "[NumNf] Like '" & Me.Cbo_NF_Pesquisa & "'"
            End If
          Me.Filter = f2
       Me.FilterOn = True
    End Sub


    Muito obrigado Alvaro me ajudou e muito, abraço
    Deus lhe abençõe.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5619
    Registrado : 15/03/2013

    Re: [Resolvido]Pesquisa número de nota fiscal

    Mensagem  ahteixeira em 9/9/2017, 19:06

    Olá Clóvis Augusto,
    Fico feliz por ter ajudado.
    Obrigado pelo retorno.
    Abraço

      Data/hora atual: 16/12/2018, 18:30