[Resolvido]Querys muito longas

Olá pessoal, estou tendo dificuldades em quebrar as linhas de um Insert Into e um Updade muito longos. Já tentei vbCrLF, "_", ou combinados, entretanto só dá erro exigindo fim da expressão, caracteres inválidos, e assim por diante. Gostaria que dessem uma olhada. Valeu.!!
Segue:

CurrentDb.Execute "Insert into tbAvaliacao(IDConta, TemAgua, TemLuz, TemTelefone, TemInternet, & _"
TemBanheiro, TemEsgoto, CodMoradia, CodConstrucao, NroPecas, CodProfissao, CodEmpresa, TemCadun, & _
NroCadUnico, TemBolsa, ValorBolsa,TemAuxilio, ValorAuxilio, TemDoenca, DescDoenca, TemDeficiencia, & _
DescDeficiencia, TemMedicamento, DescMedicamento, TemBPC, NomeBeneficiarioBPC, Renda, RendaBruta, & _
RendaPc,Obs) values (" & txtCodResponsavel & ",'" & cxSelAgua & "','" & cxSelLuz & "','" & cxSelTel & "', & _
'" & cxSelInternet & "','" & cxSelBanheiro & "','" & cxSelEsgoto & "'," & txtCodMoradia & "," & txtCodConstrucao & ", & _
" & txtNroPecas & "," & txtCodProfissao & "," & txtCodEmpresa & ",'" & txtRendaMensal & "'," & txtRendaBruta & ", & _
'" & txtRendaperCapita & "','" & txtObs & "')"


CurrentDb.Execute "UPDATE tbAvaliacao SET TemAgua='" & cxSelAgua & "',TemLuz='" & cxSelLuz & "', _
TemTelefone='" & cxSelTel & "',TemInternet='" & cxSelInternet & "',TemBanheiro='" & cxSelBanheiro & "',TemEsgoto='" & cxSelEsgoto & "',_
CodMoradia=" & txtCodMoradia & ",DescMoradia='" & txtDescMoradia & "',CodConstrucao=" & txtCodConstrucao & ",NroPecas=" & _
& txtNroPecas & ",CodProfissao=" & txtCodProfissao & ",CodEmpresa=" & txtCodEmpresa & ",TemCadun='" & txtTemCaDun & "',NroCadUnico=" & _
& txtNroCadUnico & ",TemBolsa=" & txtTemBolsa & ",ValorBolsa='" & txtValorBolsa & "',TemAuxilio=" & txtTemAuxilio & ",ValorAuxilio='" & _
& txtValorAuxilio & "',TemDoenca=" & txtTemDoenca & ",DescDoenca=" & txtDescDoenca & ",TemDeficiencia=" & txtTemDeficiencia & "," & _
& DescDeficiencia=" & txtDescDeficiencia & ",TemMedicamento=" & txtTemMedicamento & ",DescMedicamento='" & _
& txtDescMedicamento & "',TemBPC=" & txtTemBPC & ",NomeBeneficiarioBPC='" & txtNomeBeneficiarioBPC & "',Renda='" & txtRendaMensal & "',RendaBruta='"
& txtRendaBruta & "',RendaPc='" & txtRendaperCapita & "',Obs='" & txtObs & "' WHERE CodAvaliacao=" & Me.txtCodAvaliacao


ALAN

Olá Alexandre Fim, a modificação no insert ACHO que deu certo pois não dá erro apontando para essa parte do código. Entretanto também tenho de modificar o UPDATE. Modifiquei semelhante ao que estava no insert, mas só da erro de sintaxe. Fiz vários ajustes no form para que seja compativel com os campos, mas até agora nada. Veja como fiz, inclusive tentei variações e sempre o mesmo erro. Segue:

sSQL = "UPDATE tbAvaliacao SET "
sSQL = sSQL & "',TemAgua='" & cxSelAgua
sSQL = sSQL & "',TemLuz='" & cxSelLuz
sSQL = sSQL & "',TemTelefone='" & cxSelTel
sSQL = sSQL & "',TemInternet='" & cxSelInternet
sSQL = sSQL & "',TemBanheiro='" & cxSelBanheiro
sSQL = sSQL & "',TemEsgoto='" & cxSelEsgoto
sSQL = sSQL & ",CodMoradia=" & txtCodMoradia
sSQL = sSQL & "',DescMoradia='" & txtDescMoradia
sSQL = sSQL & ",CodConstrucao=" & txtCodConstrucao
sSQL = sSQL & ",NroPecas=" & txtNroPecas
sSQL = sSQL & ",CodProfissao=" & txtCodProfissao
sSQL = sSQL & ",CodEmpresa=" & txtCodEmpresa
sSQL = sSQL & ",TemCadun=" & txtTemCaDun
sSQL = sSQL & ",NroCadUnico=" & txtNroCadUnico
sSQL = sSQL & ",TemBolsa=" & txtTemBolsa
sSQL = sSQL & "',ValorBolsa='" & txtValorBolsa
sSQL = sSQL & ",TemAuxilio=" & txtTemAuxilio
sSQL = sSQL & "',ValorAuxilio='" & txtValorAuxilio
sSQL = sSQL & ",TemDoenca=" & txtTemDoenca
sSQL = sSQL & "',DescDoenca='" & txtDescDoenca
sSQL = sSQL & ",TemDeficiencia=" & txtTemDeficiencia
sSQL = sSQL & "',DescDeficiencia='" & txtDescDeficiencia
sSQL = sSQL & ",TemMedicamento = " & txtTemMedicamento
sSQL = sSQL & "',DescMedicamento='" & txtDescMedicamento
sSQL = sSQL & ",TemBPC=" & txtTemBP
sSQL = sSQL & "',NomeBeneficiarioBPC='" & txtNomeBeneficiarioBPC
sSQL = sSQL & "',Renda='" & txtRendaMensal
sSQL = sSQL & "',RendaBruta='" & txtRendaBruta
sSQL = sSQL & "',RendaPc='" & txtRendaperCapita
sSQL = sSQL & "',Obs='" & txtObs
sSQL = sSQL & "' WHERE CodAvaliacao=" & Me.txtCodAvaliacao
CurrentDb.Execute sSQL

ALAN

Usei as dicas do tópico neste link e percebi o problema que a segunda linha causa

Veja.

Código:

sSQL = "UPDATE tbAvaliacao SET "
sSQL = sSQL & "',TemAgua='" & cxSelAgua
...

Substituindo na segunda linha o conteúdo da primeira linha

sSQL = "UPDATE tbAvaliacao SET ',TemAgua='" & cxSelAgua...

A sintaxe fica realmente errada. Retire o destacado em vermelho. Ficando.

Código:

sSQL = "UPDATE tbAvaliacao SET "
sSQL = sSQL & "TemAgua='" & cxSelAgua
...

Final fica montado
sSQL = "UPDATE tbAvaliacao SET TemAgua='" & cxSelAgua...

Bom dia amigos Alexandre Fim e DamascenoJr, agora deu certo, entretanto tive de fazer umas modificações: no geral fiz o UPDATE como o Alexandre sugeriu, mas na parte inicial alterei como o DamascenoJr demonstrou e deu certo. No meio do caminho descobri um controle com nome errado: no form tava txtTemBp e o certo é txtTemBPC, ajustei e daí fechou todas.
Sendo assim caros colegas, RESOLVIDO, obrigado pelas dicas, que já estão anotadas, e até a próxima!!!

ALAN