[Resolvido]Erro ao exportar dados do formulário para uma tabela

Prezados bom dia.

Antes de, dividir esse banco, o mesmo funcionava perfeitamente. Porem, divido as exigências e crescimento do cliente, precisei dividir o mesmo em BE e FE.

Tudo funciona perfeitamente, mas há uma tabela que não abre para a receber os dados. Abaixo o código ora utilizado.

Private Sub Encerrapgto_Click()

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("Confirma Fechamento do Atendimento ?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("Ateencerrado", dbOpenTable)---> Nessa linha ocorre o erro ( Erro em tempo de execução '3219')

With rs1

.AddNew
![Idcaixa] = Me.CodCaixa
![Proprietario] = Me.Proprietario
![Animal] = Me.Animal
![DataPagamento] = Me.DataPagamento
![Valor] = Me.Valor

.Update
End With
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.GoToRecord , , acNewRec
MsgBox "Fechamento confirmado !", vbOKOnly + vbInformation, "SIS CLIN"
End If
End Sub


Alguém pode me dar um luz ??

Essa tabela está na mesma parte em que se encontra o código ou está na outra parte da divisão? Como você dividiu o banco, suponho que o código esteja no FE e a tabela no BE, certo? Se assim for, você precisa passar o caminho do BE no lugar do CurrentDb, que significa o BD atual.

Bom dia Criquio.

Sim o banco está dividido. O BE está no servidor, o FE estão nas estações e no servidor também ! O erro ocorre inclusive no servidor, quando encerro um pgto por lá.

Criquio, me da uma luz, pois não estou conseguindo pensar logicamente.

Você disse: "...Se assim for, você precisa passar o caminho do BE no lugar do CurrentDb". Como fazer isso ? Seria algo assim: \\servidor\Pastadobanco\localdoBE ? ou \\pastadobanco\localdoBE ??

Por exemplo: o meu aqui esta em uma pasta denominada: "testes"

Mesmo aqui, no meu computador ( banco dividido ) ocorre o mesmo erro.

Quando queremos abrir uma tabela de outro banco, passamos o caminho mais ou menos assim:

Código:

Set db = DbEngine.WorkSpaces(0).OpenDatabase("\\Servidor\Pasta(s)\NomeBanco.accdb", False, False, "MS Access;PWD=SenhaDoBanco")

Criquio,

Agradeço muito a você pelo tempo dispensado! Matou a pau mesmo.
Ficou assim:

Set db1 = DBEngine.Workspaces(0).OpenDatabase("\testes\SIS CLIN 11_be.accdb", False, False, "MS Access;PWD=SenhaDoBanco") e funcionou perfeitamente.

Grato mestre !

Grato pelo retorno.