Erro 32189 ao Gravar em BD Access 2010

Prezados;

Estou com o seguinte problema ao tentar gravar dados em uma tabela de meu sistema com formulários desvinculados.
Ao clicar em salvar o sistema apresenta a seguinte mensagem de erro:

"Erro em tempo de Execução '3219'
Operação Inválida.

O erro ocorre na linha do código em negrito abaixo.


Private Sub cmd_SalvarCadastro_Click()

If Not TestaCampos Then
Exit Sub
Else

Dim db1 As Database, rs1 As Recordset

If MsgBox("Confirma a Inclusão do Cliente?", vbYesNo + vbQuestion, "Confirmar") = vbYes Then

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("01_tbDadosCadastrais", dbOpenTable)
On Error GoTo Erro

' Abre um registro em branco na tabela
rs1.AddNew
' Inserindo valores dos controles do form nos campos de rs1

'Cabeçalho do Fomrulário

rs1("IDCadMAster") = Autonum() '/Código identificador do Cliente/Fornecedor no cadastro
rs1("DtaCadastro") = Now() '/Data de Cadastramento do Cliente/Fornecedor
rs1("IDGrpDivisao") = Me.grpDivisao '/Identifica a Divisão do Cliente
rs1("ModFicha") = Me.grpSISCoop '/Identifica o Modelo de Ficha para Fornecedor (1-COOP, 2-INNEOV, 3-SISMED, 4-LOreal BR) ou '/Cliente (1-COOP)
rs1("TpoSolicitacao") = Me.grpStatusFicha '/Identifica o Tipo de Solicitação para o Cadastro
'/Cliente - 1-Nova, 2-Filian, 3-Extensão, 4-Alteração, 5-Bloqueio, 6-Reativação
'/Fornecedor - 1-Inclusão, 4-Alteração, 5-Bloqueio, 6-Desbloqueio
rs1("TpoPessoa") = Me.grpTipoCadastro '/Se Pessoa Física (1), se Pessoa Jurídica (2)
rs1("GrpEcnmco") = Me.GrpEconomico '/Se cliente pertence a Grupo Econômico 1-SIM, 2-NÃO
rs1("DscGrpEcnmco") = Me.txtDscGrpEcnmco '/Nome do Grupo Econômico
rs1("OpcCmplmto") = Me.grpOpcEnvioRemessa '/Tipo de remessa - 1-Aceita Complemento, 2-Não Aceita, 3-Só Remessa Completa

'/Identificação dos SETORES DE ATIVIDADES

rs1("IDStrAtv_DPGP10") = Me.sel10LOREALPARIS
rs1("IDStrAtv_DPGP12") = Me.sel12GARNIER
rs1("IDStrAtv_DPGP13") = Me.sel13MAYBELLINE_COLORAMA
rs1("IDStrAtv_DPP20") = Me.sel20LP
rs1("IDStrAtv_DPP22") = Me.sel22REDKEN
rs1("IDStrAtv_DPP23") = Me.sel23KERASTASE
rs1("IDStrAtv_DPP25") = Me.sel25MATRIX
rs1("IDStrAtv_DPL31") = Me.sel31PeC
rs1("IDStrAtv_DPL32") = Me.sel32LANCOME
rs1("IDStrAtv_DPL33") = Me.sel33BIOTHERM
rs1("IDStrAtv_DPL34") = Me.sel34KIEHLS
rs1("IDStrAtv_DPL35") = Me.sel35YSL
rs1("IDStrAtv_DCA40") = Me.sel40VICHY
rs1("IDStrAtv_DCA41") = Me.sel41LRP
rs1("IDStrAtv_DCA42") = Me.sel41LRP
rs1("IDStrAtv_DCA44") = Me.sel44SKINCEUTICALS
rs1("IDStrAtv_DCA50") = Me.sel50INNEOV
rs1("VlrPrmCpra") = Me.txtVlrPrmCpra '/Valor da Primeira Compra
rs1("PrzPgto") = Me.cmbPrzPgto.Column(1) '/Valor do Prazo de Pagamento
rs1("TpoCadastro") = Me.grpTipoCadastro '/Tipo da Ficha: 1-Clientes ou 2-Fornecedores
rs1("IDCdgEmissor") = Me.txtIDCdgEmissor '/Código do emissor no SAP para o Cliente/Fornecedor

'/Corpo do Formulário

rs1("Razão Social") = Me.txtNomeRzSocial '/Razão Social do Cliente
rs1("CPF") = Me.txtCPF '/Número do CPF do Cliente
rs1("CNPJ") = Me.txtCNPJ '/Número do CNPJ do Cliente
rs1("Nome Fantasia") = Me.txtNomeFantasia '/Nome Fantasia do Cliente
rs1("InscricaoEstadual") = Me.txtInscEstadual '/Inscrição Estadual do Cliente
rs1("Isento_IE") = Me.selIsentoIE '/Flag se Cliente é Isento da Inscrição Estadual
rs1("InscricaoMunicipal") = Me.txtInscMunicipal '/Inscrição Municipal do Cliente
rs1("Isento_Mncp") = Me.selIsentoMncp '/Flag se Cliente é Isento da Inscrição Municipal
rs1("End_Rua") = Me.txtEndereco '/Endereço do Clientes
rs1("Número") = Me.txtNrEndereco '/Número do Endereço do Cliente
rs1("Complemento") = Me.txtComplementoEndereco '/Complemento do endereço do Cliente
rs1("UF") = Me.cmbUF.Column(0) '/Estado do endereço do Cliente
rs1("Cidade") = Me.cmbCidade.Column(0) '/Cidade do endereço do Cliente
rs1("Bairro") = Me.txtBairro '/Bairro do Cliente
rs1("CEP") = Me.txtCEP '/CEP do Cliente
rs1("E-mail") = Me.txteMail '/Endereço de e-mail do Cliente
rs1("Home Page") = Me.txtHomePage '/Endereço da Home Page do Cliente
rs1("INSS/PIS") = Me.txtINSSPIS '/Inscrição INSS/PIS do Cliente
rs1("InscricaoSuframa") = Me.txtInscSuframa '/Inscrição Suframa
rs1("NroRGPF") = Me.txtNrRG '/Número do RG
rs1("OrgaoEmissosPF") = Me.txtOrgaoEmissorPF '/Orgão Emissor do documento do cliente
rs1("Telef_01") = Me.txtTelefone01 '/Telefone 1 do Cliente
rs1("Telef_02") = Me.txtTelefone02 '/Telefone 2 do Cliente
rs1("Telef_03") = Me.txtTelefone03 '/Telefone 3 do Cliente
rs1("Telef_04") = Me.txtTelefone04 '/Telefone 4 do Cliente
rs1("EstCivilPF") = Me.cmbEstadoCivil.Column(0) '/Estado Civil do Cliente
rs1("DataNasctoPF") = Me.txtDataNasctoPF '/Data de Nascimento do cliente
rs1("NomeConjugePF") = Me.txtNomeConjugePF '/Nome do Conjuge do cliente
rs1("DscTratamento") = Me.cmbDscTratamento.Column(0) '/Descrição da Forma de Tratamento do cliente
rs1("FzHorario") = Me.txtFzHorario '/Fuzo Horário do Cliente
rs1("DscPais") = Me.txtDscPais '/Descrição do País do Cliente
rs1("IDRepreCom") = Me.txtIDRepreCom '/Identificação do Representante Comercial do Cliente

'/Dados Bancários

rs1("CodBanco1") = Me.cmbCodCompBanco1.Column(0) '/Códígo de Compensação do Banco 1
rs1("CodAgc1") = Me.txtCodAgencia1 '/Código da Agência do Banco 1
rs1("CodNrCC1") = Me.txtNroCC1 '/Número da Conta Corrente do Banco 1
rs1("CodBanco2") = Me.cmbCodCompBanco2.Column(0) '/Códígo de Compensação do Banco 2
rs1("CodAgc2") = Me.txtCodAgencia2 '/Código da Agência do Banco 2
rs1("CodNrCC2") = Me.txtNroCC2 '/Número da Conta Corrente do Banco 2
rs1("CodBanco3") = Me.cmbCodCompBanco3.Column(0) '/Códígo de Compensação do Banco 3
rs1("CodAgc3") = Me.txtCodAgencia3 '/Código da Agência do Banco 3
rs1("CodNrCC3") = Me.txtNroCC3 '/Número da Conta Corrente do Banco 3
rs1("CodBanco4") = Me.cmbCodCompBanco4.Column(0) '/Códígo de Compensação do Banco 4
rs1("CodAgc4") = Me.txtCodAgencia4 '/Código da Agência do Banco 4
rs1("CodNrCC4") = Me.txtNroCC4 '/Número da Conta Corrente do Banco 4

'/Composição Societária
'/Dados da Composição Societária de até 4 Sócios

rs1("NomeSocio1") = Me.txtNomeSocio1
rs1("CPFSocio1") = Me.txtCPFSocio1
rs1("CapitalSocio1") = Me.txtCapitalSocio1
rs1("PercentSocio1") = Me.txtPorcentSocio1
rs1("NomeSocio2") = Me.txtNomeSocio2
rs1("CPFSocio2") = Me.txtCPFSocio2
rs1("CapitalSocio2") = Me.txtCapitalSocio2
rs1("PercentSocio2") = Me.txtPorcentSocio2
rs1("NomeSocio3") = Me.txtNomeSocio3
rs1("CPFSocio3") = Me.txtCPFSocio3
rs1("CapitalSocio3") = Me.txtCapitalSocio3
rs1("PercentSocio3") = Me.txtPorcentSocio3
rs1("NomeSocio4") = Me.txtNomeSocio4
rs1("CPFSocio4") = Me.txtCPFSocio4
rs1("CapitalSocio4") = Me.txtCapitalSocio4
rs1("PercentSocio4") = Me.txtPorcentSocio4

'/Dados relacionados a Grupo de Preços, Grupo de Vendas e Escritório de Vendas

rs1("GrpClientes") = Me.cmbGrpClientes.Column(1) '/Informa o Id do Grupo de Clientes
rs1("GrpPrecos") = Me.cmbGrpPrecos.Column(1) '/Informa o Id do Grupo de Preços
rs1("GrpVendedores") = Me.txtNomeVendedor '/Informa o Nome do Vendedor
rs1("IDVendedor") = Me.cmbIDVendedor.Column(1) '/Informa o ID do nome do Vendedor
rs1("VlrPrcColor") = Me.txtVlrPrcColor '/Informa o valor do Preço da Coloração
rs1("NrCadeiras") = Me.txtNrCadeiras '/Informa o Número de Cadeiras do Salão
rs1("CdgClasse") = Me.txtCdgClasse '/Retorna o código relativo a Classe do Salão
rs1("DscCmntVnd") = Me.txtCmntVnd '/Campo para comentários do Vendedor
'/Dados relacionados a Zona de Transporte e Perioridade de Remessa
rs1("DscCidadeZnTrnsp") = Me.cmbCidadeZnTrnsp '/Cidade da Zona de Transporte
rs1("DscZnTrnspt") = Me.txtZnTrnspt '/Zona de Transporte associada a Cidade
rs1("IdTrnspt") = Me.cmbIdTransportadora.Column(1) '/Id da Transportadora associada a Cidade
rs1("PrdRemessa") = Me.cmbPrdRemessa.Column(1) '/Informa a Prioridade de remessa passada pelo SAC

'Atualizando a tabela
rs1.Update
rs1.Close
Set rs1 = Nothing
Set db1 = Nothing

MsgBox "Registro incluído com sucesso!", vbInformation ', strTítulo
'Limpa formulário para nova inclusão
LimpaForm
Else
If MsgBox("Deseja cancelar este cadastro?" & vbCrLf & "Escolha ""OK"" para CANCELAR ou ""ESC"" para manter o cadastro.", vbOKCancel + vbQuestion, "ESCOLHA") = vbOK Then
Call LimpaForm
Exit Sub
End If
End If
End If

Sai:
rs1.Update
Set rs1 = Nothing
Set db1 = Nothing
Exit Sub
Erro:
MsgBox " Erro ocorrido: " & Err.Number & Err.Description
Resume Sai:

End Sub


Desde já agradeço a ajuda dos amigos.
Atenciosamente

Luiz Antonio Farias
lasfarias@hotmail.com

Olá Amigo

Bem vindo ao Fórum.

O aplicativo está dividido em BasedeDados (BE) e FrontEnd (FE)?

Se sim o erro está aqui:

Set db1 = CurrentDb ' No lugar de CuurentDb, colocar o caminho completo do BE.

Se um único aplicativo, mude o nome da tabela para uma instruçãoSQL (consulta seleção):

Set rs1 = db1.OpenRecordset("instrução SQL da tabela em questão", dbOpenTable)[/i

Espero que seja uma das opção acima, se não for, retorne

Abraços

Olá Balem;

Obrigado pelo retorno.

Sim. O aplicativo está dividido em BE e FE.

Teria como postar um exemplo do código SQL para que possa ajustá-lo o meu exemplo?

Se codificar o SQL para Set rs1 = db1.OpenRecordset("instrução SQL da tabela em questão", dbOpenTable), como ficaria a linha para Set db1 = CurrentDb.
Mais uma vez obrigado pela ajuda..

Luiz Antonio Farias
lasfarias@a3info.com.br

É como eu expliquei no post anterior:

Set db1 = DBEngine.Workspaces(0).OpenDatabase("caminho\NomeBE.mdb")
Set rs1 = db1.OpenRecordset("01_tbDadosCadastrais", dbOpenTable)


Onde Caminho é a localização de onde está o BE
Ex.:
"C:\PastaAplicação\NomedoBE.mdb"


Abraços