[Resolvido]Ajuda Recordset

Oi pessoal,

Queria uma ajuda na função recordset que estou usando no meu bd.
Tenho dois formulários vinculados. O primeiro possui os dados do cliente e um campo com as informações de situação(frmcliente). Coloquei nesse formulário um botão com o comando recordset que grava os dados das situações no segundo formulário criando uma espécie de histórico do cliente.
Passei a usar o bd em rede, dividi em back end e front end, mas agora a função não está funcionando, e eu acho que deve ser por que o comando não reconhece mais a tabela que está no back end. Vejamos:

Dim db As Database
Dim rs As Recordset

If MsgBox("Deseja gravar Situação em Histórico?", vbYesNoCancel, "Opções") = vbYes Then
Set db = CurrentDb()
Set rs = db.OpenRecordset("Historico", dbOpenTable)
rs.AddNew
rs("situacao") = Me!Isituacao
rs.Update
rs.Close
Set rs = Nothing
Set db = Nothing
MsgBox "Registo gravado", vbInformation, "Concluído"
Else: Exit Sub
End If

Nos meus poucos conhecimentos de vba, não consegui modificar a linha do comando para que ele abrisse o formulário historico ao invés da tabela. Será que é possível fazer a alteração? Alguém pode me ajudar?

Obrigado

Você revinculou as tabelas nos frontends?

SIM, Fiz todo o processo de ir nas tabelas dos front end, gerenciador de tabelas vinculadas e vinculei. Realmente não entendo pq o comando não está funcionando.

Oi pessoal,

Voltando pra dizer que consegui resolver. Pesquisei um pouco, vi algumas dicas inclusive aqui no fórum e adaptei o comando para ao invès de incluir novos dados na tabela, incluir no formulário.
Por algum motivo, o comando com as tabelas não funciona nos front end. Eu acho que deve ser porque as tabelas estão na verdade no back end, e somente um vínculo nos front. De toda forma, o comando ficou assim:

If MsgBox("Deseja gravar Situação em Histórico?", vbYesNoCancel, "Opções") = vbYes Then
DoCmd.OpenForm "Historico"
DoCmd.RunCommand acCmdRecordsGoToNew
Form_SubFrmSituacao.codcliente.Value = Me.Icodcliente.Value
Form_SubFrmSituacao.situacao.Value = Me.Isituacao.Value
Form_SubFrmSituacao.datasituacao.Value = Me.Idatasituacao.Value
Form_SubFrmSituacao.ultimaprovidencia.Value = Me.Iultimaprovidencia.Value
Form_SubFrmSituacao.DataProvidencia.Value = Me.Idataprovidencia.Value
Form_SubFrmSituacao.providenciacbn.Value = Me.ProvidênciaCBN.Value
Form_SubFrmSituacao.providenciacliente.Value = Me.ProvidênciaCliente.Value
DoCmd.Close
MsgBox "Registo gravado", vbInformation, "Concluído"
Else: Exit Sub
End If

Com as dicas que pesquisei aí consegui adaptar e fiz o comando como eu queria. So não é mais um recordset.
Valeu!

Agradecemos o retorno e ter partilhado connosco. Um bem haja.

Ah, então você queria igualar os dados do form ao do subform.
Bom que resolveu.

Também poderia ter usado SQL com uma BD externa e enviado os dados do histórico para lá, não seria má ideia, mas resolveu bem.