[Resolvido]Definir para que registro vai o foco quando abrir um formulário Contínuo

Olá Amigos

MeuFormsContínuo temmais de 5000 registro. Entre outros, tenho um campo "Data". Gostaria, ao abrir o MeuFormsContínuo, que o foco fosso para o registro cujo o valor do campo "data" fosse igual a Data() ou que mais se aproximasse. É possível?

Obrigado pela atenção

Um bom dia a todos

Olá!

Tente algo assim:

No evento Open ou Load do formulário

Dim rst As DAO.Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "SeuCampoData = " & Date
Me.Bookmark = rst.Bookmark

Precisa incrementar mais para achar a data mais próxima da atual

Valeu amigo

Mas não funcionou!

Fiz exatamente como sugeriu.

Você teria uma sugestão?

Muito obrigado

Luiz Gustavo

Ao Carregar do seu formulario;

Altere apenas o que está a AZUL.

Private Sub Form_Load()
Dim frm As Form, rst As Recordset, CampoData As String, x As Date
Set frm = Forms![SeuFormulario]
CampoData = "SeuCampoData"
Set rst = frm.Recordset
x = DMax("SeuCampoData", "SuaTabela")
rst.MoveFirst
While Not rst.EOF
If rst(CampoData) = Date Then
Me.SetFocus
DoCmd.GoToControl "SeuCampoData"
ElseIf rst(CampoData) <> Date Then
DoCmd.FindRecord x, , True, , True
Me.SetFocus
DoCmd.GoToControl "SeuCampoData"
Exit Sub
End If
rst.MoveNext
Wend
End Sub

Oi
João Paulo

O código fez o foco ir para MeuCampoData, no entando foi para a data mais antiga do formulário e não para a data de hoje ou mais próxima de hoje. Ficou assim, fiz algo errado?

Private Sub Form_Load()
Dim frm As Form, rst As Recordset, CampoData As String, x As Date
Set frm = Forms![Consultar de Pedidos Listagem Inativos]
CampoData = "DataNNF"
Set rst = frm.Recordset
x = DMax("DataNNF", "Emissão de Pedidos")
rst.MoveFirst
While Not rst.EOF
If rst(CampoData) = Date Then
Me.SetFocus
DoCmd.GoToControl "DataNNF"
ElseIf rst(CampoData) <> Date Then
DoCmd.FindRecord x, , True, , True
Me.SetFocus
DoCmd.GoToControl "DataNNF"
Exit Sub
End If
rst.MoveNext
Wend
End Sub

Obrigado

Aqui funfou com nota 10

Verifique se no formulario o nome do campo está é mesmo DataNNF

Verifique o formato da data na tabela.

Verifique se o nome do formulário está correto.

Veja o simples;
http://dl.dropbox.com/u/771097/Luiz_III.rar

Oi
JPaulo

Acessei o link mas não é um video!
Você pode dar uma olhada.
Obrigado

Oi
JPaulo

Verifiquei e o nome do campo na tabela e no Forms é "DataNNF"
Ambos estão no formato dd/mm/aa
No forms em quetão a data Mínima que tenho é 03/01/80 e a máxima é 06/12/11 e o foco esta indo para o campo DataNNF do registro que estiver na primeira linha do forms continuo.

Não consegui abrir o link que me mandou.
Você pode me mandar novamente

Obrigado

Algo está a fazer de errado,

Veja o simples;

http://dl.dropbox.com/u/771097/Luiz_III.mdb

Oi
JPaulo

Realmente o código não está funcionando.

Estou postando o mesmo exemplo que me mandou. Não fiz nehuma alteração, só inclui mais registros na tabela. Você vai observar que o foco vai para o registro cujo o campo xData tem o maior valor e não para xdata = data().

Grato pela atençao

Abraços

Luiz Gustavo

Coloque assim, por agora:

Private Sub Form_Load()
Dim frm As Form, rst As Recordset, CampoData As String, x As Date
Set frm = Forms![frmExemplo]
CampoData = "XData"
Set rst = frm.Recordset
rst.MoveFirst
Do While Not rst.EOF
If rst(CampoData) = Date Then
Me.SetFocus
DoCmd.GoToControl "XData"
Exit Sub
End If
rst.MoveNext
Loop
rst.Close
End Sub


Depois arranjo isso para pegar a data mais proxima.

Olá
JPaulo

O Access é realmente um grande quebra cabeças, não? É simplismente empolgante. É um desafio atrás do outro.

Sinto Amigo, mas gerou outro erro!!!

Se não houver pelo menos um registro cujo campo xData seja = Data(), dá erro.

Experimente excluir o registro 14.

Abraços

Falta-me tempo....


Private Sub Form_Load()
Dim frm As Form, rst As Recordset, CampoData As String, x As Date
Set frm = Forms![frmExemplo]
CampoData = "XData"
Set rst = frm.Recordset
rst.MoveFirst
While Not rst.EOF
If rst(CampoData) = Date Then
Me.SetFocus
DoCmd.GoToControl "XData"
Exit Sub
End If
rst.MoveNext
Wend
End Sub

Éh!
Realmente tempo hoje é escasso!!!

Não se deixe se atrapalhar por mim. Você já me ajudou em muito, e muito lhe sou grato.

Já não da mais o erro, no entanto a ídéia era dar foco no campo com valor = Data() ou, caso nenhum campo fosse = data() o foco ir para uma data anterior ou posterior mais próxima de Data().

No exemplo atual, se não houver xData=Data() o foco não vai pra campo algum.

Jão Paulo, não esquenta não, um dia destes que você tiver mais tranquilo você da uma olhada com calma. Não quero atrapalha-lo.

Um forte Abraço

E muito obrigado

Oi JPaulo

Desculpe-me se falar "bobamgem" mas, a solução não seria usar um looping (next), caso não haja xData=Data()ele procura o xData+1 ou xData -1?

Esclareço que pergunto porque não tentei.
Não tentei porque não sei.

Abraços

Só para datas = Hoje ou maiores que hoje, caso contrario não marca o foco;


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

JPaulo

Se sem tempo você escreve códigos assim, nem cosigo imaginar o que consegue quando tem tempo!!!
O título de Mestre lhe cae bem.

Muito Obrigado.

Um forte abraço

Luiz Gustavo

Olá
JPaulo

Não sei se você ainda está acompanhando este tópico, mas caso sim, peço-lhe uma gentileza.

O código e o exemplo que me passou funciona perfeitamente. Ocorre que o formulário acabou virando um subformulário e agora da erro. Tentei diversas alterações no código e também alternar entre o evento ao carregar do Forms e do FormsSub, mas não obtive êxito.

Você pode me orientar?
Obrigado

Nesse caso tem de ser assim;

Private Sub Form_Load()
Dim frm As Form, rst As Recordset, CampoData As String

Set frm = Me.Form
CampoData = "XData"
Set rst = frm.Recordset

rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
If rst(CampoData) = Date Then
Me.SetFocus
DoCmd.GoToControl "XData"
Exit Do
ElseIf rst(CampoData) > Date Then
DoCmd.GoToControl "XData"
Exit Do
End If
rst.MoveNext
Loop
End Sub

Valeu JPaulo
Obrigado

Em Tempo:
Estou a estudar aquele seu código de formatação condicional já há alguns dias e estou ficando doido! Do um passo afrente e dois atrás. Rsrsr

Abraços

Obrigado pelo retorno este está resolvido.

Precisando de ajuda na formatação condicional, abra novo tópico por favor.

Ok
JPaulo

Vou aceitar a sugestão e abrir novo tópico obrigado
Abraços