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


    Erro insert INTO - 3134 - erro de sintaxe

    iberlucio
    iberlucio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 15/12/2015

    Erro insert INTO - 3134 - erro de sintaxe Empty Erro insert INTO - 3134 - erro de sintaxe

    Mensagem  iberlucio 17/2/2016, 16:29

    Povo,
    já verifiquei aqui no fórum e tem muitos comentários sobre esse erro, mas como são erros pontuais, não me atende.
    Chequei minha query de todas as formas e não encontrei o "erro de sintaxe".

    O resultado da query está na imagem anexo.

    Se alguém puder me ajudar...


    Dim strSQL As String
    '
    strSQL = "INSERT INTO [D:\UAMAGUARA\BDEXTERNO.accdb;].SOCEDUC"
    '
    strSQL = strSQL & " (UAMA_SOCEDU, NOME_SOCEDU, DTAENT_SOCEDU, CODSINASE_SOCEDU,"
    strSQL = strSQL & " SEXO_SOCEDU, DTANASC_SOCEDU, MAE_SOCEDU, PAI_SOCEDU,"
    strSQL = strSQL & " ENDERECO_SOCEDU, CIDADE_SOCEDU, ATENDENTE_SOCEDU, ESPECIALISTA_SOCEDU,"
    strSQL = strSQL & " TRABALHA_SOCEDU, MATRICULADO_SOCEDU, ESCOLA_SOCEDU, ESCOLARIDADE_SOCEDU,"
    strSQL = strSQL & " CURSOPROF_SOCEDU, INTERESSE_SOCEDU, PLANOIND_SOCEDU, SITUACAO_SOCEDU,"
    strSQL = strSQL & " DTADESV_SOCEDU, CAIXA_SOCEDU, DTTRAN_SOCEDU, TRANSFO_SOCEDU, OBS_SOCEDU)"
    '
    strSQL = strSQL & " VALUES"
    '
    strSQL = strSQL & " (" & WTAB_uama & ", ' " & WTAB_nome & " ',' " & WTAB_entr & " ',' " & WTAB_sina
    strSQL = strSQL & " ','" & WTAB_sexo & "',' " & WTAB_dtna & " ',' " & WTAB_mae & " ',' " & WTAB_pai
    strSQL = strSQL & " ','" & WTAB_ende & "'," & WTAB_cida & "," & WTAB_aten & "," & WTAB_espe
    strSQL = strSQL & ",'" & WTAB_trab & "','" & WTAB_matr & "'," & WTAB_esco & "," & WTAB_escr
    strSQL = strSQL & ",'" & WTAB_curs & "','" & WTAB_inte & "','" & WTAB_plan & "','" & WTAB_situ
    strSQL = strSQL & "','" & WTAB_dtad & "'," & WTAB_caix & ",' " & WTAB_dttr & " '," & WTAB_traO
    strSQL = strSQL & ",'" & WTAB_Obs & "')"
    '
    MsgBox (strSQL)

    CurrentDb.Execute strSQL ' , dbFailOnError

      Data/hora atual: 8/11/2024, 03:47