[Resolvido]Erro CurrentDb.Execute strSQL

Bom dia Queridos

Estou com uma duvida cruel e não sei aonde arruma isso, já refiz a linha da TAG, porem nao obtive sucesso.

Seria um formulário de cadastro de txt não acoplados.


Esta dando erro 3346
numero de valores da consulta e campos  de destino não coincidem.

Alguem poderia dar um help? abraços

Private Sub Comando33_Click()
Dim strCodigo, strNome, strCpf, strCnpj, strRg, strEndereço, strNº, strCep, strBairro, strEstado, strCliente As String
Dim strSQL As String
strCodigo = Forms!FTInformações!Codigo
strNome = Forms!FTInformações!Nome
strCpf = Forms!FTInformações!Cpf
strCnpj = Forms!FTInformações!Cnpj
strRg = Forms!FTInformações!Rg
strEndereço = Forms!FTInformações!Endereço
strNº = Forms!FTInformações!Nº
strCep = Forms!FTInformações!Cep
strBairro = Forms!FTInformações!Bairro
strEstado = Forms!FTInformações!Estado
strCliente = Forms!FTInformações!Cliente

strSQL = "INSERT INTO TInformações (Codigo,Nome,Cpf,Cnpj,Rg,Endereço,Nº,Cep,Bairro,Estado,Cliente) VALUES('" & strCodigo & "','" & strNome & "', '" & strCpf & "', '" & strRg & "', '" & strEndereço & "', '" & strNº & "', '" & strCep & "', '" & strBairro & "', '" & strEstado & "', '" & strCliente & "')"
CurrentDb.Execute strSQL
Me.Lista35.Requery
MsgBox "CADASTRADO COM SUCESSO !!!", vbInformation, "Teste"

Simples amigo...

numero de valores da consulta e campos  de destino não coincidem.

Vc esta dizendo que irá inserir dados em 11 Campos da tabela, porem esta passando apenas 10 Valores.

Campos: (Codigo,Nome,Cpf,Cnpj,Rg,Endereço,Nº,Cep,Bairro,Estado,Cliente) 


Valores:('" & strCodigo & "','" & strNome & "', '" & strCpf & "', '" & strRg & "', '" & strEndereço & "', '" & strNº & "', '" & strCep & "', '" & strBairro & "', '" & strEstado & "', '" & strCliente & "')


Pulou o Campo CNPJ (Cpf,Cnpj,Rg -  '" & strCpf & "', '" & strRg & "')

Fabio meu queridooo

cara lhe agradeço de coração. obg estava cego. agr funcionou.

poderia me tirar um duvida a mais ?


por exemplo queria que o campo do codigo fizesse um random com a primeira letra inserida do nome com numeração sub-sequentes exemplo:

dados inseridos 1º vez
nome: Nathan
Codigo: n1

este n1 seria automatico entendeu?

dados inseridos 2º vez
Nome: Natanael
Codigo n2

O porque isso? quero cruzar os dados....
abraços

Basta esse campo Codigo, na tabela colocar ele como Numeração automatica.

Deve deixar ele fora do Insert, pois a medida que se add novo registro na tabela o Access ja se encarrega de adicionar o proximo numero...

Obrigado querido.


abraços.... resolvido

obg