Este fórum está sendo desativado

[leegrj]

Erro de Tempo de Execução '3075": Erro de sintaxe na cadeia na expressão de consulta "",").
Esse erro dá quando tempo salvar um nome no cadastro. Alguém pode me da um Help?!

Código: Selecionar todos

Private Sub ButtonSalvar_Click()



sql = "insert into [Dados$] (ID_CLIENTE,DATA_CADASTRO,NOME,DATA_NASCIMENTO,CPF,RG,SEXO,IDADE,ENDEREÇO,NUMERO,COMPLEMENTO,BAIRRO,CIDADE,UF,TELEFONE_CONTATO1,TELEFONE_CONTATO2,TELEFONE_CONTATO3,TELEFONE_CONTATO4,TELEFONE_CONTATO5,CLASSIFICAÇÃO_1,CLASSIFICAÇÃO_2,CLASSIFICAÇÃO_3,CLASSIFICAÇÃO_4,CLASSIFICAÇÃO_5,MELHOR_CONTATO1,MELHOR_CONTATO2,MELHOR_CONTATO3,MELHOR_CONTATO4,MELHOR_CONTATO5,BANCO_RECEB,AGENCIA,CONTA_CORRENTE,DIB,SALARIO,ORGAO_PAGADOR,MARGEM,ORGAO_MANUTENÇÃO,MEIO_PAGAMENTO,EMAIL,OBSERVAÇÕES)"
sql = sql & " VALUES ("
sql = sql & "'" & Me.TextIdCliente & "','"
sql = sql & "'" & Me.TextDataCads & "','"
sql = sql & "'" & Me.TexNme & "','"
sql = sql & "'" & Me.TextDataNasc & "','"
sql = sql & "'" & Me.TextCpf & "','"
sql = sql & "'" & Me.TextRg & "','"
sql = sql & "'" & Me.ComboSexo & "','"
sql = sql & "'" & Me.TextIdade & "','"
sql = sql & "'" & Me.Textendereco & "','"
sql = sql & "'" & Me.TextNum & "','"
sql = sql & "'" & Me.TextCompl & "','"
sql = sql & "'" & Me.TextBairro & "','"
sql = sql & "'" & Me.TextCidade & "','"
sql = sql & "'" & Me.ComboUF & "','"
sql = sql & "'" & Me.TextCont1 & "','"
sql = sql & "'" & Me.TextCont2 & "','"
sql = sql & "'" & Me.TextCont3 & "','"
sql = sql & "'" & Me.TextContato4 & "','"
sql = sql & "'" & Me.TextContato5 & "','"
sql = sql & "'" & Me.TextClas1 & "','"
sql = sql & "'" & Me.TextClas2 & "','"
sql = sql & "'" & Me.TextClas3 & "','"
sql = sql & "'" & Me.TextClassif4 & "','"
sql = sql & "'" & Me.TextClassi5 & "','"
sql = sql & "'" & Me.TextMelhor1 & "','"
sql = sql & "'" & Me.TextMelhor2 & "','"
sql = sql & "'" & Me.TextMelhor3 & "','"
sql = sql & "'" & Me.TextMelhor4 & "','"
sql = sql & "'" & Me.TextMelhor5 & "','"
sql = sql & "'" & Me.ComboBancorec & "','"
sql = sql & "'" & Me.TextAgc & "','"
sql = sql & "'" & Me.TextContaC & "','"
sql = sql & "'" & Me.TextDib & "','"
sql = sql & "'" & Me.TextSalario & "','"
sql = sql & "'" & Me.TextOrgaoPag & "','"
sql = sql & "'" & Me.TextMarg & "','"
sql = sql & "'" & Me.TextOrgManu & "','"
sql = sql & "'" & Me.TextMeioPag & "','"
sql = sql & "'" & Me.TextMail & "','"
sql = sql & "'" & Me.TextObs & "','"
sql = sql & "')"

banco.Execute sql



End Sub

[JCabral]

Experimenta tirar a plica depois da virgula

Código: Selecionar todos

.....
sql = sql & "'" & Me.TextIdCliente & "','"       ~~> sql = sql & "'" & Me.TextIdCliente & "',"
.....

e tirar a ultima virgula em :

Código: Selecionar todos

Sql = Sql & "'" & TextObs & "'"