MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Código não executa

    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Código não executa Empty [Resolvido]Código não executa

    Mensagem  Finformática 24/3/2022, 17:09

    Grandes Mestres, boa tarde!

    Peço-lhes gentilmente que apontem onde está o erro do código abaixo que não aparece erro nem faz nada. Parte do banco anexo.

    Private Sub TxtF_Change()
    Call SubFiltrar
    End Sub

    Private Sub SubFiltrar()
    Dim StrSQL As String
    If Me.Opg = 1 Then
       StrSQL = "SELECT * FROM TbContrato WHERE Tipo LIKE ' * " & Me.TxtF.Text & " * ' ORDER BY [Data Compra]"
    Else
       StrSQL = "Select * FROM TbContrato WHERE Descrição LIKE ' * " & Me.TxtF.Text & " * ' Order by [Data Compra]"
    End If
    Me.Lbx.RowSource = StrSQL
    End Sub



    Muito grato,

    Forte Abraço
    Anexos
    [Resolvido]Código não executa AttachmentFiltro_Tabela.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (491 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Código não executa Empty Re: [Resolvido]Código não executa

    Mensagem  Alexandre Fim 24/3/2022, 18:06

    Olá,

    São os espaços excessivos entre o apóstrofo e o asterisco.

    Aproveitei e fiz uns ajustes, colocando o tratamento de erro:

    Código:


    Private Sub SubFiltrar()
    On Error GoTo trata_erro
    Dim StrSQL As String
       
        If Me.Opg = 1 Then
            StrSQL = "SELECT * FROM TbContrato WHERE Tipo LIKE '*" & Me.TxtF.Text & "*' ORDER BY [Data Compra]"
        Else
            StrSQL = "Select * FROM TbContrato WHERE Descrição LIKE '*" & Me.TxtF.Text & "*' Order by [Data Compra]"
        End If
       
        Me.Lbx.RowSource = StrSQL
       
        Exit Sub

    trata_erro:

        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub

       
    End Sub


    É isso

    Abs


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Código não executa Setinf11
    Sistemas e Tecnologia Ltda
    Finformática
    Finformática
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 847
    Registrado : 23/03/2010

    [Resolvido]Código não executa Empty Re: [Resolvido]Código não executa

    Mensagem  Finformática 24/3/2022, 18:49

    Valeu Alexandre, resolvido, muito grato, forte abraço.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Código não executa Empty Re: [Resolvido]Código não executa

    Mensagem  Alexandre Fim 24/3/2022, 19:29

    Valeu amigo. O fórum agradece.
    Sucesso !!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Código não executa Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 25/9/2022, 14:15