ERRO EM CONSULTA

[Leandro.Athlos 0]

BOM DIA,

ESTOU TENTANDO FAZER UMA CONSULTA PARA QUANDO EU SELECIONAR UM REGISTRO  NO COMBOBOX(ACCESS) ELE ME RETORNA O CADASTRO REFERENTE AO REGISTRO EM OUTROS CAMPOS MAS ELE DÁ UMA ERRO QUE FALAT SITAXE, ALGUEM PODERAI ME AJUDAR: SEGUE O CODIGO QUE CRIEI, ALGUEM PDOERAI ANALISAR E ME AJUDAR, O ERRO QUE DÁ É NA EXPRESSÃO EM NEGRITO.

Private Sub ExecutaConsulta()

    Dim strSELECT As String, strFROM As String, strWHERE As String, strORDER_BY As String, strSQL As String, frm As Form
    strSELECT = _
    "[CADASTRO_ACIDENTADO].REGISTRO_GESTOR, [CADASTRO_ACIDENTADO].NOME_GESTOR, [CADASTRO_ACIDENTADO].GERENCIA_GESTOR, [CADASTRO_ACIDENTADO].SUPERINT_GESTOR, " & _
    "[CADASTRO_ACIDENTADO].CARGO_GESTOR, [CADASTRO_ACIDENTADO].EMPRESA_GESTOR"


    strFROM = "[CADASTRO_ACIDENTADO] "
    strWHERE = ""
    strORDER_BY = " ORDER BY [CADASTRO_ACIDENTADO].REGISTRO_GESTOR"
    
    If Me.cbx_registro <> "" Then
       strWHERE = " AND [REGISTRO_GESTOR] ='" & Me.cbx_registro & "'"
    End If
      
    'If Len([cbx_registro]) > 0 Then
        'strWHERE = " AND [REGISTRO_GESTOR] = " & Me.cbx_registro
   ' End If
    
            
    strSQL = "SELECT " & strSELECT
    strSQL = strSQL & "FROM " & strFROM
    
    If strWHERE <> "" Then strSQL = strSQL & " WHERE " & Mid$(strWHERE, 6) & strORDER_BY
    
   Set frm = Me.Form
  [b] frm.RecordSource = strSQL[/b]
    
   Set frm = Nothing
    
    If Me.Form.RecordsetClone.RecordCount = 0 Then
    MsgBox "Não existem registros com os critérios inseridos.", 48, "Cadastro Acidentado"
    Me.cbx_registro.SetFocus
    End If
    
End Sub

[FreiNando 22]

deves verificar o conteudo da variavel strsql quando dá o erro. vai à janela locals activando-a no menu ver, ou faz um debug.print strsql antes da instrução que dá erro, e activa a janela imediate.

vejo que esqueceste de colocar um espaço " " antes de "from ". pode ser daí o erro.

nota:  eu usei apenas minusculas, mas ainda assim fica bem mais legivel do usar apenas maiusculas. não é gritando que a ajuda será mais rápida

[Leandro.Athlos 0]

bOM DIA QUE From vc fala que está sem espaço? não consigo enxergar?

obrigado

[FreiNando 22]

Não foi você quem escreveu esse código?

Na linha onde diz:  strSQL = strSQL & "FROM " & strFROM

[Leandro.Athlos 0]

Ok foi sim, eu já resolvi o problema, obrigado