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

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

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

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.



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

Tente isso.

Att,

Alexandre Fim

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

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.