Eliminar registro desde formulario eficientemente

[Gerson Pineda]

Hola

Yo aqui de nuevo con algo mas... se trata de "Eliminar un Registro" de una base de datos, eficientemente, desde un formulario, el codigo realmente es muy sencillo/entendible/corto

Espero les sea de mucha utilidad

Saludos

Eliminar registro desde formulario eficientemente_GP.zip

Eliminar registro desde formulario eficientemente_GP.zip

[Antoni]

Está muy bien la idea de usar la tecla Supr para eliminar, me gusta, me lo guardo.

[Potter08]

Muy bueno, vale la pena tenerlo en la base de consultas, saludos

[Gerson Pineda]

Si es muy util y practico utilizar este metodo desde luego se puede mejorar y restringir para que no borre de golpe!

Tal que:

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
f = Me.ListBox1.ListIndex + 1
If f > 1 And KeyCode = VBA.vbKeyDelete Then
If MsgBox("Seguro Desea Eliminar Registro de la BD?", _
vbInformation + vbYesNo, "Eliminar...") = vbYes Then
With Sheets("BD")
    .Rows(f).EntireRow.Delete
    uf = .Range("A" & Rows.Count).End(xlUp).Row
End With
With Me.ListBox1
    .ColumnCount = 2
    .RowSource = "BD!A1:B" & uf
End With
End If
End If
End Sub[/PHP]

KeyCode puede resultarnos muy eficiente a la hora de implementarlo en los formularios, de modo que el usuario tenga la opcion de usar el tecleado y no solo botones

Saludos