[Resolvido]Localizar e Marcar o registro em um Subformulario nao acoplado

Boa Noite Senhores,

Estou com um problema, já procurei nos tópicos mas achei com SubForm acoplado.
Tenho um FormPrincipal e dentro dele tem um SubForm, eu gostaria de localizar um registro no SubForm fazendo com que quando localizasse somente marcaria esse registro, eu consegui mais ou menos usando filter, mas eu nao queria que filtrasse e sim somente marcasse esse registro.

Usei tb o DoCmd.FindRecord mas não deu certo.

OBS: Pode ser colocando um botao no formPrincipal.

Não sei se fui claro, eu acho que tentando resolver a questão, eu vou me explicando melhor.

Obrigado
Abraços...

Bom dia ;

Veja o simples;

http://dl.dropbox.com/u/771097/Ivair.rar

Bom dia JPaulo tudo bem

Então deu certo obrigado pela ajuda. Outra duvida estou com meu BD em rede e eu queria que SubForm Atualizasse automaticamente (pq quando outro usuario alterasse a tabela eu já via as mudanças), ai eu coloquei no Timer no FormPrincipal a linha MeuSubForm.Requery o problema é que quando estou em um registro e o MeuSubForm é atualizado o Cursor do mouse vai para o primeiro registro, será possivel atualizar o SubForm em rede mas ficar marcada a linha que o usuario estava antes de atualizar?

Obrigado

Abraços...

O Requery inicia, mas o recalc ou o refresh não.

Teste com um destes;


Me.SeuSubForm.Form.Refresh
Me.SeuSubForm.Form.Recalc

Oi Tudo bem

Então JPaulo eu testei com os dois procedimentos REFRESH E RECALC,quando vc altera um registro ja cadastrado ele atualiza beleza mas quando adiciona um novo registro ele não atualiza. não aparece no SubForm.

Esquisito...

Abraços...

Se for um novo tem de dar um Requery mesmo.

Após o Requery, chame o código que lhe passei, pode até transformar em Public o Private onde está o código, e chamar com o Call.

OI JP

Entao aquele codigo que vc me passou eu coloquei dentro do Timer do FormPrincipal,
e eu colocando o REQUERY ele volta para o primeiro registro sempre que atualiza.

Ex(1): Esse exemplo esta atualizando somente quando é Edição do Registro

Private Sub Form_Timer() "ESSE É O FORM PRINCIPAL"
Tempo = Tempo + 1
If Tempo = 2 Then
Me.SCConsultaSub.Form.Refresh "ATUALIZA O SUBFORM"
Tempo = 0
END IF

End sub

Ex(2) : Esse exemplo esta atualizando Adição é Edição do Registro, mas volta sempre para o Primeiro registro


Private Sub Form_Timer() "ESSE É O FORM PRINCIPAL"
Tempo = Tempo + 1
If Tempo = 2 Then
Form_SCConsultaSub.Requery "ATUALIZA O SUBFORM"

Tempo = 0
END IF

End sub





Vc poderia me passar um exemplo dessa ideia com o Call.

Abraços...

Pelo exemplo que eu lhe fiz, será mais ou menos assim, tudo dentro do VBA do form;



Public Sub PesquisaEmarca()
Dim rst As Recordset
If Not IsNull(Me.txtPesquisa) Then
Set rst = Forms!frmExemplo!subformExemplo.Form.RecordsetClone
rst.FindFirst "Nome = '" & Me.txtPesquisa & "'"
If Not rst.NoMatch Then
Forms!frmExemplo!subformExemplo.Form.Bookmark = rst.Bookmark
Forms!frmExemplo!subformExemplo.Form!Nome.SetFocus
Else
Me.txtPesquisa.SetFocus
Exit Sub
End If
End If
Set rst = Nothing
End Sub


Private Sub Form_Timer()
Me.subformExemplo.Form.Refresh
Call PesquisaEmarca
End Sub

Oi JP.
Então eu fiz como vc falou os codigos são os que estão abaixo, só que esteticamento o SubForm ficou meio esquisito pq quando atualizar ele move para o Primeiro Registro e depois volta para o registro que estava o Curso, ai quando tem muitos registros o SubForm fica Piscando e se Movendo entre os Registros .Fui Claro.

Private Sub Form_Timer()
Dim ReGI As Long

'Guarda na variavel ReGI o numero da Solicitacao de Compra onde esta o cursor
ReGI = Form_SCConsultaSub.SCNO
Tempo = Tempo + 1
If Tempo = 2 Then
Form_SCConsultaSub.Requery 'Altualizar o SubForm
Call BuscaRegistro 'Rotina que ira localizar o nemuro da SC guardada na variavel e retornar o curso para o Registro
Tempo = 0 'Zera a label para iniciar novamente a atualização
End If
End Sub

Public Sub BuscaRegistro()
Dim Rst As DAO.Recordset
If Not IsNull(ReGI) Then
Set Rst = Forms!consultasolicitacao!SCConsultaSub.Form.RecordsetClone
Rst.FindFirst "scno = " & ReGI
If Not Rst.NoMatch Then
Forms!consultasolicitacao!SCConsultaSub.Form.Bookmark = Rst.Bookmark
Forms!consultasolicitacao!SCConsultaSub.Form!SCNO.SetFocus
End If
Rst.Close
Set Rst = Nothing
End If
End Sub

Boa tarde
Amigos.
Desculpe a demora, vou dar como encerrado esse topico, eu deixei do jeito que eu expliquei no meu ultimo post.

Obrigado.

Até mais...