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
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