[Resolvido]Selecionar uma caixa de seleção com uma tecla

Ola pessoal,eu tenho em um formulario uma caixa de seleção, que para efetuar uma pagamento tenho que selecionar essa caixa com o mouse claro,tem como eu selecionar com uma tecla?

Olá Kaynan,

Tente assim, considerando que sua caixa de seleção tem este nome "Quitado" e haja um campo chamado "Quitado" também na tabela tblTeste:

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyF1 Then
 Call Quitar      'Ou Tente Quitado = -1
 
 KeyCode = 0
End If
End Sub


Public Sub Quitar()
On Error Resume Next
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tblTeste", dbOpenTable)

Do While Not rs.EOF
rs.Edit
If rs("Quitado") = False Then
rs("Quitado") = True
Else
rs("Quitado") = False
End If
rs.Update
rs.MoveNext
Loop
Set rs = Nothing

End Sub

Ola Good,não deu certo,da uma olhadinha pra ai no bd, e no Frm_Lancamento. caixa seleção Recebido;
A senha é 1234



https://www.dropbox.com/s/gi0rtocsw03e3bz/Financeiro_Venda2.rar?dl=0

Olá Kaynan,

Esqueci de informar que você tem que selecionar Visualizar Teclas como "Sim".
O código fica melhor assim:

Código:


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next

If KeyCode = vbKeyF4 Then
 Quitado = -1
 KeyCode = 0
End If
End Sub

Funfou muito bem aqui !!!

Perfeito good,consegui agora,muito obrigado valeu mesmo.

Olá Kaynan,

Você fez assim? Desse jeito funfou legal !!!

Código:


On Error Resume Next

If KeyCode = vbKeyF4 Then
 Quitado = -1
 Me.SuaCombobox.SetFocus
 Me.SuaCombobox.dropdown
 KeyCode = 0
End If


Assim mesmo good,ficou perfeito.
Obrigadão.