Erro de Tempo de Execução 3075
Enviado: 28 Mai 2020 às 11:11
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?!
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