Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por leegrj
#55329
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord