[Resolvido]Mover foco para campo vazio

Boa noite a todos..

Solicito a ajuda para o seguinte:
Tenho um formPagamentos e um subformParcelas
No formPagamentos tenho uma combo que seleciono Número do pagamento a dar baixa
Preciso que ao selecionar Número o foco fosse para subformParcelas, no campo dataPagto e que encontre o Primeiro campo dataPagto Vazio.

Aguardo a ajuda

Abraços

Celso

Acredito que esse subformulário seja continuo.

Esperimente:

Me.subformParcelas.Form!dataPagto.SetFocus


Abraços

Noob

Boa Noite Noob

Obrigado pela ajuda, mas chegar ate o subfrmParcelas e campo de DataPagto eu já tinha chegado
A Dificuldade esta em encontrar o primeiro registro com campo dataPagto Vazio, pois este pode ser exemplo o 10 registro Depende de quantas parcelas e de quantas já foram pagas

Nota: Preciso encontrar o primeiro registro com campo "dataPagto Vazio", e que o foco fique no campo dataPagto.

Abraços

Celso

Acredito que irá conseguir isso usando  o recordsetClone do subformulário.

Vou esboçar o código, logico que não irá funcionar, só para te dar uma direção

'==========
dim rst as recordset

set rst = Me.subformParcelas.Form.RecordsetClone

rst.move first

rst.FindFirst "[DataPgto]= ""

If Not rst.NoMatch Then ' Se encontrou
   Me.subformParcelas.Form.Bookmark = rst.Bookmark  ' vai para o registro

End If

Set rst = Nothing

===============
Creio que então para colocar o foco no controle ficará mais fácil

Abraços

Noob

Noob

Te peço desculpas mas não consegui o resultado, já fiz varias pesquisas e tentativas mas não consegui encontrar algo que me ajudasse.
Vamos imaginar um parcelamento com 10 parcelas e com 5 parcelas quitadas
preciso que ao efetuar próxima baixa selecionando o nº do documento o foco vá para sexta parcela no campo dataPagto

Aguardo Ajuda..

Eu entendi

Poste as tabelas com uns 5 registros sendo 2 com o campo data vazio e os dois formulários Principal e subformulário.
Assim eu posso testar aqui.

Noob

Boa tarde Noob

Primeiro quero te pedir desculpas pela demora em te dar retorno.
Depois te dizer que o meu conhecimento em vba é muito limitado ainda, mas estou aprendendo com a ajuda de todos aqui no fórum através de nossa dúvidas e sugestões apresentadas como neste caso.
Analizando o seu esboço de código apresentado por você e vendo oque ele fazia e oque não fazia fui alterando com pesquisas em outros tópicos e Resolvi com este código no evento ao receber foco da dataPagto.
Então quando ao selecionar Número do documento no formulário e mandar o foco para o subformulário no campo dataDoPagto que recebendo o foco executa e vai para registro com campo dataPagto vazio

Private Sub DataPagto_GotFocus()
Dim rs As Recordset
Set rs = Me.Recordset
If Not IsNull(Me.DataPagto) Then
With rs
rs.MoveNext
End With
End If
End Sub

Obrigado pela ajuda

Abraços e até a próxima Dúvida

Que ótimo Celso

Valeu pelo retorno


Boa sorte !

Noob