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 : 934
    Registrado : 08/02/2011

    [Resolvido]Pesquisa número de nota fiscal

    Mensagem  cafpr em Sab 09 Set 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 : 4530
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 09 Set 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Sab 09 Set 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 : 4530
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 09 Set 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Sab 09 Set 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 : 4530
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 09 Set 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 : 934
    Registrado : 08/02/2011

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

    Mensagem  cafpr em Sab 09 Set 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 : 4530
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sab 09 Set 2017, 19:06

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

      Data/hora atual: Sab 18 Nov 2017, 08:10