Visual Basic para Aplicaciones - COMO HACER UNA RUTINA QUE ELIMINE REGISTROS EN UN LISTBOX Y E LA BASE DE DATOS A LA VEZ

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de Andres
Val: 26
Ha aumentado su posición en 3 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder