Jump to content

Eliminar entrada de listbox y base de datos


Recommended Posts

Hola buenas tardes,

Me gustaría que me puedan ayudar para eliminar un registro del ListBox y base de datos.

Tengo un código hecho y me salta un "Error no especificado"

  • Function EliminarRegistros()
    
        If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then
    
            For a = Me.listboxpalau.ListCount - 1 To 0 Step -1
        
                If Me.listboxpalau.Selected(a) = True Then
                
                    For I = 2 To Sheets("BD").Range("a65536").End(xlUp).Row
                    
                If Sheets("BD").Range("a" & I).Value = Val(Me.listboxpalau.List(a, 0)) Then
                                           
                    Sheets("BD").Rows(I).Delete
                
                End If
                            
                    Next I
                    
                Me.listboxpalau.RemoveItem a
                
                End If
            Next a
        End If
    End Function

Me.listboxpalau.RemoveItem a

Adjunto archivo para que puedan revisar

 

Saludos, 

Javier

Link to comment
Share on other sites

A la espera del permiso para descargar el archivo, prueba a ver si funciona:

Function EliminarRegistros()
With listboxpalau
   If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", _
              vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then
      For a = .ListCount - 1 To 0 Step -1
         If .Selected(a) = True Then
            Set celda = Columns("A").Find(.List(a, 0), , , xlWhole)
            Sheets("BD").Rows(celda.Row).Delete
            .RemoveItem a
         End If
      Next
   End If
End With
End Function

 

Link to comment
Share on other sites

Prueba y comenta, es aplicando el código del Maestro Antoni con una pequeñísima modificación que por supuesto sin ver tu archivo imposible que la detecte.

Function EliminarRegistros()

    With ListBox1
   If MsgBox("Estas seguro de que quieres eliminar el registro seleccionado?", _
              vbYesNo + vbQuestion, "Eliminar resgitros") = vbYes Then
      For a = .ListCount - 1 To 0 Step -1
         If .Selected(a) = True Then
            Set celda = Sheets("BD").Columns("B").Find(.List(a, 1), , , xlWhole)
            Sheets("BD").Rows(celda.Row).Delete
            cargadatos
         End If
      Next
   End If
End With
End Function

 

GIF.gif

111 Prueba 1.xlsm

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy