joa
08 de Febrero del 2006

hola q tal gente tengo un problema con la funcion keydown :
el problema es q cuando presiono la tecla supr para eliminar una celda de mi flexgrid las 2 o 3 primeras veces hace caso pero luego ya no entra a mi funcion:
Private Sub mshEntidades_KeyDown(KeyCode As Integer, Shift As Integer)
despues de presionar supr en diferentes celdas ya no hace caso espero q me puedan ayudar

mvallejos
08 de Febrero del 2006

Coloca el codigo que tengas del evento KeyDown, para que podamos ver mejor que es lo que pasa.

Saludos

joa
08 de Febrero del 2006

Private Sub mshEntidades_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyDelete Then
cmdEliminar_Click
End If
End Sub

// este emi codigo de eliminar trabajo con un mshflexgrid q muestra datos de una consulta y yo quiero eliminar una celda de ahi pero despues de moverme por 6 celdas y presionar supr ala 7 ya no responde

Private Sub cmdEliminar_Click()
Dim a As Integer, b As Integer
Dim rpta As Integer
Dim eliminar As Boolean
Dim verificar As Boolean
Dim subcadena2 As String
Dim cadena2 As String
b = mshEntidades.Row

Dim cantidad As Boolean
If mshEntidades.TextMatrix(b, 9) = "S" Then
cantidad = ENT_CONSULTAS.BuscarCodigoEnt_Agen(Trim$(mshEntidades.TextMatrix(b, 1)))
If cantidad Then

MsgBox "No se puede eliminar la entidad," & vbCrLf & _
"esta relacionado a agencias", vbInformation, "Eliminar"
mshEntidades.SetFocus
Else
eliminar_entidad
End If
Else

If mshEntidades.TextMatrix(b, 3) <> "G" Then

If mshEntidades.TextMatrix(b, 8) = "" Or mshEntidades.TextMatrix(b, 8) <> "" Then
eliminar_entidad
End If

Else
verificar = ENT_CONSULTAS.BuscarCodigoEnt_CodGrup(Trim$(mshEntidades.TextMatrix(b, 1)))
If verificar Then
MsgBox "No se puede eliminar la entidad," & vbCrLf & _
"esta relacionado a otras entidades", vbInformation, "Eliminar"
mshEntidades.SetFocus
Else
eliminar_entidad
End If
End If
End If
End Sub