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

    Ajuda em pesquisa utilizando botões de seleção

    avatar
    ClaudioL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 24/03/2023

    Ajuda em pesquisa utilizando botões de seleção Empty Ajuda em pesquisa utilizando botões de seleção

    Mensagem  ClaudioL 24/3/2023, 19:18

    Boa tarde, a todos,

    Poderiam me ajudar, preciso pesquisar a lista de transportadoras porém por Tipo de modal e Tipo de Carga, montei o seguinte código
    porém não funciona:

    Private Sub SubFiltrar()

    Dim strSQL As String

    'Variaveis
           Dim TipoModal, TipoCarga, TipoRegiao, TipoRisco, tpModal, tpCarga, tpRegiao, tpRisco As Boolean
           
           
           TipoModal = Me.TipoModal.Value
           TipoCarga = Me.TipoCarga.Value
           
    '
    'tipo definição do modal - rodoviario ou aerea
           Select Case TipoModal
               Case Is = 1
                     tpModal = "Seg1_rodoviario like '*1*'"
               Case Is = 2
                     tpModal = "Seg1_Aereo like '*1*'"
           End Select
             
    'tipo definição do modal carga Varejo, francionada, fechada

           Select Case TipoCarga
           Case Is = 1
           tpCarga = "Seg2_CargasparaVarejo like '*1*'"
           Case Is = 2
           tpCarga = "Seg2_CargasFrancionadas like '*1*'"
           Case Is = 3
           tpCarga = "Seg2_CargasFechada like '*1*'"
           End Select

    'tipo definição do modal Região

             
    'Busca pelo tipo de modal

       If Me.TipoModal = 1 Then
       
                   strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpModal & " order by RazaoSocial"                
                   Else                
                   strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpModal & " order by RazaoSocial"
       End If
    'Busca pelo tipo de carga
       If Me.TipoCarga = 1 Then
                       strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpCarga & " order by RazaoSocial"
               ElseIf Me.TipoCarga = 2 Then
                       strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpCarga & " order by RazaoSocial"
           Else
         strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora where " & tpCarga & " order by RazaoSocial"
              End If
     
    Me.Lbx.RowSource = strSQL

    gibegarcia gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Ajuda em pesquisa utilizando botões de seleção Empty Re: Ajuda em pesquisa utilizando botões de seleção

    Mensagem  Alexandre Fim 24/3/2023, 19:28

    Olá Claudio,

    Seja bem-vindo ao fórum.
    Para ficar mais fácil e rápido, por gentileza, disponibilize seu bd, somente objetos (tabelas/formulários/consultas/modulos e etc.,) envolvidos no problema para análise e solução.

    Veja o link na minha assinatura como postar anexos.

    Att,

    Alexandre Fim



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

    Ajuda em pesquisa utilizando botões de seleção Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Ajuda em pesquisa utilizando botões de seleção Empty Re: Ajuda em pesquisa utilizando botões de seleção

    Mensagem  Alexandre Fim 24/3/2023, 20:00

    Claudio,

    Do jeito que está, se vc tiver valore em TipoModal e TipoCarga, o sistema vai entender que vc vai montar a strSQL de Modal, e se tambem vai montar a de Carga, usando a mesma variavel strSQL, ou seja, a carga tá sobrescrevendo a modal.

    Ajuda em pesquisa utilizando botões de seleção Carga10

    Neste caso, é importante que um dos dois tem que vir ZERO, e ai vc consegue separar.

    Tente isso.

    Att,

    Alexandre Fim


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

    Ajuda em pesquisa utilizando botões de seleção Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Ajuda em pesquisa utilizando botões de seleção Empty Re: Ajuda em pesquisa utilizando botões de seleção

    Mensagem  Alexandre Fim 24/3/2023, 20:54

    Olá,

    Copie e cole o código abaixo, e faça os teste:

    Código:

    Sub SubFiltrar()
    On Error GoTo trata_erro
    Dim strSQL As String
    Dim TipoModal, TipoCarga, TipoRegiao, _
        TipoRisco, tpModal, tpCarga, tpRegiao, tpRisco As Boolean
        
        
        TipoModal = Me.TipoModal.value
        TipoCarga = Me.TipoCarga.value
        
        '
        'tipo definição do modal - rodoviario ou aerea
        Select Case TipoModal
            Case 1: tpModal = "Seg1_rodoviario like '*1*'"
            Case 2: tpModal = "Seg1_Aereo like '*1*'"
        End Select
          
        'tipo definição do modal carga Varejo, francionada, fechada
        
        Select Case TipoCarga
            Case 1: tpCarga = "Seg2_CargasparaVarejo like '*1*'"
            Case 2: tpCarga = "Seg2_CargasFrancionadas like '*1*'"
            Case 3: tpCarga = "Seg2_CargasFechada like '*1*'"
        End Select


        '-- SELECT INCLUINDO AS 2 CONDIÇÕES
        strSQL = "Select RazaoSocial,Contato,telefone,Celular,e_mail from tbl_transportadora "
        strSQL = strSQL & " WHERE " & tpModal & " "
        strSQL = strSQL & " AND " & tpCarga & " "
        strSQL = strSQL & " ORDER BY RazaoSocial"

        '-- define a fonte de dados
        Lbx.RowSource = strSQL
        '-- atualiza listbox
        Lbx.Requery
        
        
        Exit Sub

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




    É isso

    Boa sorte

    Att,

    Alexandre Fim


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

    Ajuda em pesquisa utilizando botões de seleção Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    ClaudioL
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 24/03/2023

    Ajuda em pesquisa utilizando botões de seleção Empty Tentei colocar mais um grupo de botão e dá erro

    Mensagem  ClaudioL 25/3/2023, 18:19

    Caros, boa tarde

    Inicialmente muito obrigado pela rápida resposta, peço novamente a ajuda, porque eu alterei conforme orientado e funcionou perfeitamente
    porem eu complementei com mais um grupo de botões e apresenta erro abaixo, seria possivel me ajudar novamente.

    Aparece o Erro de compilação: Método ou membro de dados não encontrado.

    Estou anexando o arquivo.
    Anexos
    Ajuda em pesquisa utilizando botões de seleção Attachmentbuscatransportador.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (294 Kb) Baixado 18 vez(es)

    Conteúdo patrocinado


    Ajuda em pesquisa utilizando botões de seleção Empty Re: Ajuda em pesquisa utilizando botões de seleção

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/5/2024, 00:04