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

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

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

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