[Resolvido]Erro 3061, eram esperados 1

Aí turma, já perdi dois dias de sono e não acho esse erro, o erro está nesta parte do código abaixo, a ajuda aqui tem sido primordial, de antemão obrigado a todos.

Private Sub subCrgListaVeiculos()
On Error GoTo trata_erro
Dim vTotValor As Double
Dim strSQL As String
Dim rs As DAO.Recordset


vTotValor = 0

strSQL = "SELECT "
strSQL = strSQL & " tbl_veiculos.identificação,"
strSQL = strSQL & " tbl_secao.nome_secao,"
strSQL = strSQL & " tbl_veiculos.marca_modelo,"
strSQL = strSQL & " tbl_veiculos.placa,"
strSQL = strSQL & " tbl_veiculos.ano_fabricação,"
strSQL = strSQL & " tbl_veiculos.valor_atual_mercado"
strSQL = strSQL & " FROM tbl_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_secao.id_secao = tbl_veiculos.id_secao"
strSQL = "SELECT "
strSQL = strSQL & " tbl_grupo.nome_grupo"
strSQL = strSQL & " FROM tbl_grupo"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_grupo.id_grupo = tbl_veiculos.id_grupo"

If vCampo = Empty And vPesq = Empty Then
strSQL = strSQL & " WHERE Identificação = 0"
Else
strSQL = strSQL & " WHERE " & vCampo & " LIKE '*" & vPesq & "*'"
End If
strSQL = strSQL & " ORDER BY tbl_secao.nome_secao"

Set rs = CurrentDb.OpenRecordset(strSQL, , 4)

Me.Lista_veiculos.RowSource = ""
Me.Lista_veiculos.AddItem "ID;SECOES;MARCA/MODELO;GRUPO;PLACA;ANO;VALOR"

iCnt = rs.RecordCount

Do Until rs.EOF
Me.Lista_veiculos.AddItem rs!Identificação & ";" & _
rs!nome_secao & ";" & _
rs!marca_modelo & ";" & _
rs!nome_grupo & ";" & _
rs!PLACA & ";" & _
rs!ano_fabricação & ";" & _
Format(rs!valor_atual_mercado, "#,##0.#0")
vTotValor = (vTotValor + rs!valor_atual_mercado)
rs.MoveNext
Loop
vTotValor = Format(vTotValor, "#,##0.#0")

Me.Txt_ValorTotal = vTotValor

rs.Close
Set rs = Nothing

Exit Sub

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

End Sub

Olá

a instrução está incorreta. Substitua por esta:

strSQL = "SELECT "
strSQL = strSQL & " tbl_veiculos.identificação,"
strSQL = strSQL & " tbl_secao.nome_secao,"
strSQL = strSQL & " tbl_veiculos.marca_modelo,"
strSQL = strSQL & " tbl_veiculos.placa,"
strSQL = strSQL & " tbl_veiculos.ano_fabricação,"
strSQL = strSQL & " tbl_veiculos.valor_atual_mercado"
strSQL = strSQL & " tbl_grupo.nome_grupo"
strSQL = strSQL & " FROM tbl_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_secao.id_secao = tbl_veiculos.id_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_grupo.id_grupo = tbl_veiculos.id_grupo"



[]'s

FIM

Alexandre bom dia,
Mudei exatamente como está na sua sugestão e agora aparece o erro (operador faltando) na expressão de consulta 'tbl_secao.id_secao=...

strSQL = "SELECT "
strSQL = strSQL & " tbl_veiculos.identificação,"
strSQL = strSQL & " tbl_secao.nome_secao,"
strSQL = strSQL & " tbl_veiculos.marca_modelo,"
strSQL = strSQL & " tbl_veiculos.placa,"
strSQL = strSQL & " tbl_veiculos.ano_fabricação,"
strSQL = strSQL & " tbl_veiculos.valor_atual_mercado,"
strSQL = strSQL & " tbl_grupo.nome_grupo"
strSQL = strSQL & " FROM tbl_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_secao.id_secao = tbl_veiculos.id_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_grupo.id_grupo = tbl_veiculos.id_grupo"

Vc substituiu tudo ou somente a parte que eu te mandei?
É somente a parte

Substituí somente a parte recomendada. Essa aqui:

strSQL = strSQL & " tbl_grupo.nome_grupo"
strSQL = strSQL & " FROM tbl_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_secao.id_secao = tbl_veiculos.id_secao"
strSQL = strSQL & " INNER JOIN tbl_veiculos"
strSQL = strSQL & " ON tbl_grupo.id_grupo = tbl_veiculos.id_grupo"

Faz o seguinte, substitua toda instrução por esta:

Código:



Private Sub subCrgListaVeiculos()
On Error GoTo trata_erro
Dim vTotValor       As Double
Dim strSQL          As String
Dim rs             As DAO.Recordset

   vTotValor = 0

   strSQL = "SELECT "
   strSQL = strSQL & "  tbl_veiculos.identificação"
   strSQL = strSQL & " ,tbl_secao.nome_secao"
   strSQL = strSQL & " ,tbl_veiculos.marca_modelo"
   strSQL = strSQL & " ,tbl_veiculos.placa"
   strSQL = strSQL & " ,tbl_veiculos.ano_fabricação"
   strSQL = strSQL & " ,tbl_veiculos.valor_atual_mercado"
   strSQL = strSQL & " ,tbl_grupo.nome_grupo"
   strSQL = strSQL & " FROM tbl_secao"
   strSQL = strSQL & " INNER JOIN tbl_veiculos ON tbl_secao.id_secao = tbl_veiculos.id_secao"
   strSQL = strSQL & " INNER JOIN tbl_veiculos ON tbl_grupo.id_grupo = tbl_veiculos.id_grupo"
   If vCampo = Empty And vPesq = Empty Then
      strSQL = strSQL & " WHERE tbl_veiculos.Identificação = 0"
   Else
      strSQL = strSQL & " WHERE " & vCampo & " LIKE '*" & vPesq & "*'"
   End If
   strSQL = strSQL & " ORDER BY tbl_secao.nome_secao"

   Set rs = CurrentDb.OpenRecordset(strSQL, , 4)
   Me.Lista_veiculos.RowSource = ""
   Me.Lista_veiculos.AddItem "ID;SECOES;MARCA/MODELO;GRUPO;PLACA;ANO;VALOR"

   iCnt = rs.RecordCount
   Do Until rs.EOF
      Me.Lista_veiculos.AddItem rs!Identificação & ";" & _
                          rs!nome_secao & ";" & _
                           rs!marca_modelo & ";" & _
                          rs!nome_grupo & ";" & _
                           rs!PLACA & ";" & _
                           rs!ano_fabricação & ";" & _
                          Format(rs!valor_atual_mercado, "#,##0.#0")
      vTotValor = (vTotValor + rs!valor_atual_mercado)
   rs.MoveNext
   Loop
   vTotValor = Format(vTotValor, "#,##0.#0")
   Me.Txt_ValorTotal = vTotValor

   rs.Close
   Set rs = Nothing

   Exit Sub

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

End Sub



Veja se funciona.

[]'s


FIM

Alexandre, mudei conforme sua sugestão e continua o erro veja anexo.

Waldemar,

Disponibiliza a versão aqui.

[]'s

FIM

Alexandre, segue projeto.

Waldemar,

Segue versão ajustada.

OBS: A isntrução SQL estava equivocada. Sugiro que você se aprofunde nos conhecimentos de VBA para entender melhor a logica e a funcionalidade da linguagem.

Boa sorte.

[]'s


FIM

Obrigado. Realmente necessito me atualizar. Abraço

Boa sorte.
O fórum agradece.