COMO HACER UNA RUTINA QUE ELIMINE REGISTROS EN UN LISTBOX Y E LA BASE DE DATOS A LA VEZ
Publicado por Andres (14 intervenciones) el 06/02/2019 17:26:37
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Btn_Elimina_Click()
Dim Fila As Integer
Dim Final As Integer
If Me.Buscar_List.ListIndex = -1 Then
MsgBox "Debe seleccionar un registro"
Exit Sub
End If
'Buscamoos la última fila
Fila = 2
Do While Hoja2.Cells(Fila, 1) <> ""
Fila = Fila + 1
Loop
Final = Fila - 1
If MsgBox("¿Seguro que quiere eliminar este Registro?", vbQuestion + vbYesNo) = vbYes Then
For Fila = 2 To Final
If Hoja2.Cells(Fila, 1) = xEmpleado Then
Hoja2.Cells(Fila, 1).EntireRow.Delete
Exit For
End If
Next
Call UserForm_Initialize
MsgBox "Registro eliminado", vbInformation + vbOKOnly
Else
Exit Sub
End If
End Sub
Valora esta pregunta
0