[Resolvido]Consulta VBA não adiciona os dados na Tabela

Bom dia

Tenho um formulário de cadastro de clientes que é totalmente desvinculado, criei uma função Insert Into, mais ela não funciona. Alguém pode me ajudar?

Código:


If IsNull(Me!txtCodCliente) Or Me!txtCodCliente = "" Then
Dim ser, NovoCod As Integer
NovoCod = 1

CurrentDb.Execute "INSERT INTO tblClientes (IdCliente, idEmpresa, NomeCliente, Endereco, Bairro, Doc1, Doc2, Email," & _
"Telefone1, Telefone2, DescricaoServico, DataInicioContrato, DataFinalContrato, ValorVirgente, Obs, Ativo, CEP, Cidade," & _
"UF )Values(""" & Me.txtCodCliente & """, """ & Me.txtCodEmpresa & """, """ & Me.txtNomeCliente & """," & _
"""" & Me.txtEndereco & """, """ & Me.txtBairro & """, """ & Me.txtDoc1 & """, """ & Me.txtDoc2 & """, """ & Me.txtEmail & """," & _
"""" & Me.txtTel1 & """, """ & Me.txtTel2 & """, """ & Me.txtServico & """, """ & Me.txtDtInicio & """, """ & Me.txtDtFinal & """," & _
"""" & Me.txtValorServico & """, """ & Me.txtObs & """, """ & Me.cboAtivo & """, """ & Me.txtCEP & """, """ & Me.txtCidade & """," & _
"""" & Me.txtUF & """)"

Me.txtCodCliente = DLast("IdCliente", "tblClientes")
MsgBox ("Cliente Gravado Com Sucesso!"), vbInformation, "Cadastro de Produtos"
Else

....


Olá amigo,

Na cláusula VALUES, coloque um apóstrofo antes das aspas. Tem três aspas antes do e comercial (&), certo? Tire duas aspas e coloque o apóstrofo:

CurrentDb.Execute "INSERT INTO tblClientes (IdCliente, idEmpresa, NomeCliente, Endereco, Bairro, Doc1, Doc2, Email," & _
"Telefone1, Telefone2, DescricaoServico, DataInicioContrato, DataFinalContrato, ValorVirgente, Obs, Ativo, CEP, Cidade," & _
"UF )Values('" & Me.txtCodCliente & "', '" & Me.txtCodEmpresa & "', '" & Me.txtNomeCliente & "','" & _
Me.txtEndereco & "', '" & Me.txtBairro & "', '" & Me.txtDoc1 & "', '" & Me.txtDoc2 & "', '" & Me.txtEmail & "','" & _
Me.txtTel1 & "', '" & Me.txtTel2 & "', '" & Me.txtServico & "', '" & Me.txtDtInicio & "', '" & Me.txtDtFinal & "','" & _
Me.txtValorServico & "', '" & Me.txtObs & "', '" & Me.cboAtivo & "', '" & Me.txtCEP & "', '" & Me.txtCidade & "','" & _
Me.txtUF & "')"

Olá amigo... Estou estranhando o excesso de aspas e os tipos de campos:

""" & Me.txtServico & """

O correto seria:

'" & Me.txtServico &  "'

Assim seria para campos string
Aspas simples (apóstrofos) envolvendo as aspas

e campos datas

""" & Me.txtDtInicio & """

O correto seria:

#" & Me.txtDtInicio & "#
# envolvendo as aspas

Para campos do tipo integer

" & Me.txtCodCliente & "
apenas aspas

Tente revisar sua função e determinar os dados corretos para que o Access consiga interpretar e fazer o insert corretamente.

Eduardo, postamos juntos... (ainda bem que estamos concordando na sintaxe, rs)

Olá Marcelo,

Vamos esperar que resolva o problema do colega...

Muito obrigado amigos. Funcionou perfeitamente.

Grato pelo retorno amigo!
Obrigado pela dica Avelino. É vivendo e aprendendo

Olá Function,

Posta aí o código para sabermos como ficou sua solução. Agradecemos desde já o retorno !!!