[Resolvido]Problema para abrir a partir da caixa de listagem ultimo registro quando abro sistema em rede

Essa duvida precisa ser testada com pelo menos duas maquinas em rede

utilizo um exemplo postado nesse forum pelo Criquio para executar consulta em um formulario tudo fuinciona perfeitamente, entretanto

Quando abro o sistema em dois computadores e adciono um novo registro no form de cadastro pelo PC 1 e efetuo a busca pelo novo registro no form de pesquisa no PC 2 ao clicar(caixa de listagem) no novo registro para edição ,caso o form de cadastro esteja aberto tambem no PC 2 é preciso fecha-lo do contrario o que é exibido no form cadstro (ao clicar na caixa de listagem no form pesquisa) é o 1º registro da tabela e não o ultimo registrado.

adciono pelo PC 1

58 beltrano
59 sicrano
60 Steve

se eu clicar no PC 2 no registro Steve

ele aponta para 1º registro da tabela

para tentar resolver uso

Private Sub Lista18_DblClick(Cancel As Integer)

' codigo do criquio para pegar registro da caixa de listagem e abri no formulario de Cadastro para edita-lo

DoCmd.OpenForm "DocumentosExternos"
' adcionei
'_____________________________________________
[color=red]DoCmd.Close[/color]
DoCmd.OpenForm "DocumentosExternos"
'_____________________________________________
Dim rst As DAO.Recordset
Set rst = Forms!DocumentosExternos.RecordsetClone
rst.FindFirst "Cod_Cad = " & Lista18
Forms!DocumentosExternos.Bookmark = rst.Bookmark

Exit Sub

End Sub

se houver uma solução mais elegante sou todos ouvidos ja tentei

DoCmd.RunCommand acCmdRefresh

DoCmd.RunCommand acCmdRedo

DoCmd.RunCommand acCmdUndo

não rolou, deem uma olhada no exemplo, ele funciona ok na maquina local mas se alguem tiver oportunidade para testar em rede ai da esse probleminha

Limpe o seu código e teste assim;


Dim rst As DAO.Recordset
'abre normalmente o form DocumentosExternos
DoCmd.OpenForm "DocumentosExternos"
'aplica uma actualização ao form DocumentosExternos
Forms!DocumentosExternos.Requery
'abre o recordset
Set rst = Forms!DocumentosExternos.RecordsetClone
rst.FindFirst "Cod_Cad = " & Lista18
'envia para o ultimo registo do form DocumentosExternos
DoCmd.GoToRecord acDataForm, "DocumentosExternos", acLast
'aplica o Bookmark
Forms!DocumentosExternos.Bookmark = rst.Bookmark

Valeu Jpaulo!!!!

Era justamente o que eu precisava.Obrigado tambem pelo detalahamento do codigo Excelente.

Obrigado pelo retorno, o fórum agradece.