Prezados, bom dia/boa tarde/boa noite !
Estou "batendo cabeça" aqui em um projeto.
Preciso mover o foco para o primeiro registro vazio depois do ultimo preenchido em um subformulário.
Tenho um botão de comando, ao clicar nele tento mover o foco para esse ultimo registro no campo "qtd", para que ao clicar na LstBox o mesmo registro seja preenchido com os dados oriundos dessa lstbox.
Abaixo uma das inúmeras rotinas que estou tentando.
Private Sub bt_inserir_Click()
Call desbloqueioParcial
' Mova o cursor para o próximo registro vazio após o último preenchido
Forms!FrmVendas!FrmSVendas.SetFocus
If Forms!FrmVendas!FrmSVendas.qtd Is Null Then
Forms!FrmVendas!FrmSVendas!qtd.SetFocus
Else
Exit Sub
End If
' Reposicione lstdados fazendo uma chamada no botão limpar
Call bt_limpar_Click
End Sub
Se algum dos colegas poderem me dar uma luz, fico agradecido.
Abraços !!
em tempo...
Formulário principal....FrmVendas
Subformulário....FrmSvendas
Lstbox...LstDados
Estou "batendo cabeça" aqui em um projeto.
Preciso mover o foco para o primeiro registro vazio depois do ultimo preenchido em um subformulário.
Tenho um botão de comando, ao clicar nele tento mover o foco para esse ultimo registro no campo "qtd", para que ao clicar na LstBox o mesmo registro seja preenchido com os dados oriundos dessa lstbox.
Abaixo uma das inúmeras rotinas que estou tentando.
Private Sub bt_inserir_Click()
Call desbloqueioParcial
' Mova o cursor para o próximo registro vazio após o último preenchido
Forms!FrmVendas!FrmSVendas.SetFocus
If Forms!FrmVendas!FrmSVendas.qtd Is Null Then
Forms!FrmVendas!FrmSVendas!qtd.SetFocus
Else
Exit Sub
End If
' Reposicione lstdados fazendo uma chamada no botão limpar
Call bt_limpar_Click
End Sub
Se algum dos colegas poderem me dar uma luz, fico agradecido.
Abraços !!
em tempo...
Formulário principal....FrmVendas
Subformulário....FrmSvendas
Lstbox...LstDados