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]Erro 3061, eram esperados 1

    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 30/06/2021

    [Resolvido]Erro 3061, eram esperados 1 Empty [Resolvido]Erro 3061, eram esperados 1

    Mensagem  wal97 Qui Set 09, 2021 1:01 pm

    Mad Mad
    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3061, eram esperados 1 Empty Re: [Resolvido]Erro 3061, eram esperados 1

    Mensagem  Alexandre Fim Qui Set 09, 2021 2:02 pm

    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
    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 30/06/2021

    [Resolvido]Erro 3061, eram esperados 1 Empty Erro 3075

    Mensagem  wal97 Qui Set 09, 2021 2:16 pm

    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"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3061, eram esperados 1 Empty Re: [Resolvido]Erro 3061, eram esperados 1

    Mensagem  Alexandre Fim Qui Set 09, 2021 2:33 pm

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

    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 30/06/2021

    [Resolvido]Erro 3061, eram esperados 1 Empty parte

    Mensagem  wal97 Qui Set 09, 2021 2:37 pm

    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"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3061, eram esperados 1 Empty Re: [Resolvido]Erro 3061, eram esperados 1

    Mensagem  Alexandre Fim Qui Set 09, 2021 2:58 pm

    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
    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 30/06/2021

    [Resolvido]Erro 3061, eram esperados 1 Empty erro 3075

    Mensagem  wal97 Qui Set 09, 2021 3:13 pm

    Alexandre, mudei conforme sua sugestão e continua o erro veja anexo.
    Anexos
    [Resolvido]Erro 3061, eram esperados 1 Attachmenterro.docx
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3061, eram esperados 1 Empty Re: [Resolvido]Erro 3061, eram esperados 1

    Mensagem  Alexandre Fim Qui Set 09, 2021 3:15 pm

    Waldemar,

    Disponibiliza a versão aqui.

    []'s

    FIM
    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 30/06/2021

    [Resolvido]Erro 3061, eram esperados 1 Empty Versão

    Mensagem  wal97 Qui Set 09, 2021 3:18 pm

    Alexandre, segue projeto.
    Anexos
    [Resolvido]Erro 3061, eram esperados 1 AttachmentBCVEICULOSap (2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (817 Kb) Baixado 2 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3061, eram esperados 1 Empty Re: [Resolvido]Erro 3061, eram esperados 1

    Mensagem  Alexandre Fim Qui Set 09, 2021 3:39 pm

    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
    Anexos
    [Resolvido]Erro 3061, eram esperados 1 AttachmentBCVEICULOSap_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (504 Kb) Baixado 5 vez(es)

    wal97 gosta desta mensagem

    avatar
    wal97
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 30/06/2021

    [Resolvido]Erro 3061, eram esperados 1 Empty OK

    Mensagem  wal97 Qui Set 09, 2021 5:01 pm

    Obrigado. Realmente necessito me atualizar. Abraço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3061, eram esperados 1 Empty Re: [Resolvido]Erro 3061, eram esperados 1

    Mensagem  Alexandre Fim Qui Set 09, 2021 5:08 pm

    Boa sorte.
    O fórum agradece.

      Data/hora atual: Sab Set 18, 2021 3:59 pm