ENTER NO DBGRID
Faço uma busca de um determinado registro no DBGrid e quando encontrado
preciso selecionar e precionar a tecla enter no registro selecionado, e o mesmo será mostrado no form, para alteração, já utilizo uma rotina no dupo click.
Veja:
Preciso da mesma rotina para Tecla Enter.
Podem me ajudar???
Marcelino Neto
preciso selecionar e precionar a tecla enter no registro selecionado, e o mesmo será mostrado no form, para alteração, já utilizo uma rotina no dupo click.
Veja:
Private Sub DBGrid1_DblClick()
frmVendasBalcao.txtCodDestino = Me.txtCodigoBairro.Text
Unload Me
frmVendasBalcao.Enabled = True
frmVendasBalcao.txtCodDestino.SetFocus
End SubPreciso da mesma rotina para Tecla Enter.
Podem me ajudar???
Marcelino Neto
Private Sub DBGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo ErroX
If KeyCode = 13 Then
gAcao = "Consulta"
gCodigo = DBGrid1.Columns(0)
'
Select Case gConsulta
Case "Clientes"
Unload cClientes
cClientes.Show
.......
End If
On Error GoTo ErroX
If KeyCode = 13 Then
gAcao = "Consulta"
gCodigo = DBGrid1.Columns(0)
'
Select Case gConsulta
Case "Clientes"
Unload cClientes
cClientes.Show
.......
End If
Tópico encerrado , respostas não são mais permitidas