[Resolvido]Navegação em Combo Visualizando registros...

Amigos.. aop clicar na Combo e ela expandir a lista... e com o teclado (seta Baixo/cima)

Como fazer que quando a linha tiva na Cbo mude, aplicar um código nesta mudança..

Como seria a sintaxe desse código... para poder dar um Start em outro código, com referencia a linha selecionada

Grato

Tente o evento "Ao alterar" da combo.

Amigo Criquio.. tentei assim e nao deu certo

Private Sub CboDetento_Change()
Selecionado = True
cmdCapturar_Click

End Sub

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.CboDetento.ListIndex
If Selecionado = True Then
ConsultaDetento
End If

End Sub

Coloque assim no evento "Ao receber foco" da combo: Me.NomeCombo.Dropdown

mas amigão.. eu expando ela manualmente...
creio que esse comando so a faz exapandi...
Eu clico e ela expande... eu presionos as teclas ou passo o mouse para ir selecionando a linha.. e não acontece nada

O que exatamente espera que seja feito? Notei que você está chamando alguns eventos ou funções. Se o resultado esperado encontra-se nesses eventos ou funções mas não estejam relacionados com a combo, eles não ocorrerão.

Quando passa de linha a linha na Cbo....

Ela fica selecionada (Preta)
ao passar para a proxima.. visualizar os registros

Como está a função que popula os campos? Ela tem a combo como referência?

Essa e a fa Combo.. creio que devo chamar ela primeiro antes da consultaDetento.. não?


Private Sub CboDetento_AfterUpdate()
On Error GoTo Err_CboDetento
' Encontrar o registro que coincide com o controle.
Dim rs As Object
Me.ID.Value = Me.CboDetento.Column(0)

'Me.TxtFaixa = Left(Me.TxtIdade, 1) & 0 & "/" & Left(Me.TxtIdade, 1) + 1 & 0
ConsultaDetento

Exit_CboDetento:
Exit Sub

Err_CboDetento:

MsgBox "Erro número: " & err.Number & vbLf & vbLf & err.Description, vbCritical, "Syspen!"

Resume Exit_CboDetento
End Sub

Amigao a sua observação anterior foi de muita Valia....

Ficou assim:

Private Sub CboDetento_Change()
Selecionado = True
cmdCapturar_Click

End Sub

Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.CboDetento.ListIndex
If Selecionado = True Then 'Se a linha é selecionada
Me.ID.Value = Me.CboDetento.Column(0) 'Coloca a ID do Detento em uma caixa texto no Form, para ser usada pelo SQL que é ligado ao recordset com a cláusula ( & "WHERE Detentos.ID = " & Me!ID & ";")
ConsultaDetento 'Chama a função do recordset
End If

End Sub

Assim ao passar linha a linha da combo se popula o campo referente ao registro no recordSet

Grato