[Resolvido]Insert Into com erro de instrução

galera me da uma luz aqui.
Estou fazendo em 2 tipos praticamente diferente
Um código fala que with não definida outro fale que é erro de instrução. Eu não sei onde está o erro.

Código:

CurrentDb.Execute "INSERT INTO Tbl_Ano_Temp (Nome,Curso Turma,Valor,Tpo de PG,Data,Data do lançamento)" _
                & " Values(""" & Me.txtNome.Value & """,""" & Me.txtCursoTurma.Value & """,""" & StrValorParc & """,""" & Me.cboTipoDePG & """,#" & Format(StrDateAdd, "mm/dd/yyyy") & "#,""" & Me.txtDataDoLancamento.Value & """);"
    
    

Tópico movido da sala de repositório de exemplos por não ser exemplo para estudo.

Crysostomo,

Sempre que for criar uma instrução SQL, quebre-a em várias linhas, pois pode gerar confusão com ASPAS e ASPAS DUPLAS na hora de separar os valores.
Outro detalhe que já é muito discutido aqui no fórum:
Nome de coluna separado por ESPAÇO. Isso atrapalha na hora de criar instruções e expressões.

Outro detalhe:
Em instrução SQL, não é utilizado o "#" para datas.

Tente isso:

Código:



    Dim sSQL As String
    
    sSQL = "INSERT INTO Tbl_Ano_Temp "
    sSQL = sSQL & "("
    sSQL = sSQL & " Nome"
    sSQL = sSQL & ",[Curso Turma]"
    sSQL = sSQL & ",Valor"
    sSQL = sSQL & ",[Tpo de PG]"
    sSQL = sSQL & ",Data"
    sSQL = sSQL & ",[Data do lançamento]"
    sSQL = sSQL & ")"
    sSQL = sSQL & " VALUES "
    sSQL = sSQL & "("
    sSQL = sSQL & " '" & Trim(Me.txtNome.Value) & "'"
    sSQL = sSQL & ",'" & Me.txtCursoTurma.Value & "'"
    sSQL = sSQL & ",'" & Replace(Format(StrValorParc, "#########0.#0"), ",", ".") & "'"
    sSQL = sSQL & ",'" & Me.cboTipoDePG & "'"
    sSQL = sSQL & ",'" & Format(StrDateAdd, "mm/dd/yyyy") & "'"
    sSQL = sSQL & ",'" & Format(Me.txtDataDoLancamento.Value, "mm/dd/yyyy") & "'"
    sSQL = sSQL & ")"
    CurrentDb.Execute sSQL



É isso

Att,

Alexandre Fim

Bom dia Alexandre.
Então. Quando estava fazendo assim  deu erro como bloco with não definido. Não vi aonde estava esse erro.
Eu sempre fiz os nomes das colunas juntos por esse caso também que sempre priorizava, mas somente dessa vez eu coloquei separado para aparecer no cabeçalho.
No caso se eu colocar dataDeLancamento ele vai aparecer assim e o usuário final vai ter dificuldade na leitura.
Teria algum código para que os nome das colunas apareça de forma viável? Ex.
Na tabela eu colocar dataDeLancamento e na lista aparecer Data de Lançamento.

Crysostomo,

Se possível, manda seu bd, somente objetos envolvidos no problema, para analsie e solução.

OBS: Não precisa colocar o nome da coluna entre espaços, (Ex.: Data de Nascimento).
Na tabela, existe uma propriedade do campo chamada "Legenda", e o Access utiliza essa legenda como rótulo de campo, cabeçalho de listbox, de folha de dados e etc.

Exemplo:





É isso.

Att,

Alexandre Fim

Eita, esqueci da legenda.
A parte do with sem bloco não definida seria por qual motivo?
Obg.

Preciso ver o codigo de toda a rotina para entender o contexto.
Por gentileza, manda o bd somente com este problema pra eu analisar.

Att,
Alexandre Fim

O único erro agora é que  o arredondamento de  preço está acontecendo mesmo mexendo comnúmeros double, já fiz e refiz outros codigos e nesse não está dando certo.
vou continuar mexendo aqui, se não der certo até mais tarde vou anexar..
At.te

Tentei aqui de varias maneiras.
Estou querendo evitar que ele arredonde nem um centavo
drive.google.com/drive/folders/1rDUGQSMd8fyrK3JBUllSM1uUG9T-SN-V?usp=share_link

O fórum não deixa eu colocar foto.

ex.;
80,00/3 = 26,66 ele esta colocando 2,6666666667 e nos outros códigos ele coloca 26,67 não tem como controlar pagamento 0,01 centavos de varias contas é praticamente morte, rs