Error '424' Se requiere un Objeto

[omarinho23]

Buenas con todos consultando de nuevo con uds y les agradesco por adelantado la respuesta o guia q me den trato d abrir los datos de mi BD con un ListView y me sale este error los pasos son estos:

1ro - abro la BD con el LV
2do - ago clic en cual dato del LV ( ejemplo el dato nº 7 )
3ro - sale un form q sale que opcion de modificacion debo seleccionar ( mi codigo es )

Código: [Seleccionar]

Private Sub ChameleonBtn1_Click()

    Dim i As Integer
   
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.ListItems.Count = 0) Then               <<<<<<<<<< ahi sale el error
       MsgBox "No hay ningún regisro para editar", vbInformation
       Exit Sub
    End If
    If (LV.SelectedItem Is Nothing) Then
       MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
       Exit Sub
    End If
   
    With frmImpresionCIT3
        ' obtiene el elemento seleccionado
        .lblID = LV.SelectedItem.Text
        For i = 1 To 18
             .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
       
        .lblFecha = LV.SelectedItem.ListSubItems(1).Text
        .IdRegistro = LV.SelectedItem.Text
        .ACCION = editar_registro
       
        .Show
   
     End With
End Sub

algo he omitido? alguna correcion. gracias!

[LeandroA]

Realmente tu Listview ser llama LV?

Saludos.

[omarinho23]

si mi listview tiene nombre LV

[omarinho23]

alguien q me ayude o me saque de dudas por favor?

[wolf_kof]

Creo que es problem del LV, ya sea que no se llame asi y que le tienes al caption LV y al name otro nombre o que la función de la base de datos no es correcta para conectar con el LV puede ser el objeto de visual basic o puede ser un campo o tabla de la base de datos. tienes que rebisar bien.

[ssccaann43]

Buenas con todos consultando de nuevo con uds y les agradesco por adelantado la respuesta o guia q me den trato d abrir los datos de mi BD con un ListView y me sale este error los pasos son estos:

1ro - abro la BD con el LV
2do - ago clic en cual dato del LV ( ejemplo el dato nº 7 )
3ro - sale un form q sale que opcion de modificacion debo seleccionar ( mi codigo es )

Código: [Seleccionar]

Private Sub ChameleonBtn1_Click()

    Dim i As Integer
   
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.ListItems.Count = 0) Then               <<<<<<<<<< ahi sale el error
       MsgBox "No hay ningún regisro para editar", vbInformation
       Exit Sub
    End If
    If (LV.SelectedItem Is Nothing) Then
       MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
       Exit Sub
    End If
   
    With frmImpresionCIT3
        ' obtiene el elemento seleccionado
        .lblID = LV.SelectedItem.Text
        For i = 1 To 18
             .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
       
        .lblFecha = LV.SelectedItem.ListSubItems(1).Text
        .IdRegistro = LV.SelectedItem.Text
        .ACCION = editar_registro
       
        .Show
   
     End With
End Sub

algo he omitido? alguna correcion. gracias!

Cual es el error que te da?

[omarinho23]

estuve viendo y me ayudaron y agrege unos datos

Código: [Seleccionar]

Private Sub ChameleonBtn1_Click()

    Dim i As Integer
    On Error Resume Next  <<< agregue esto
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.ListItems.Count = 0) Then
       MsgBox "No hay ningún regisro para editar", vbInformation
       Exit Sub
    End If
    If (LV.SelectedItem Is Nothing) Then
       MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
       Exit Sub
    End If
   
    With frmImpresionCIT3
        ' obtiene el elemento seleccionado
        .lblID = LV.SelectedItem.Text
        For i = 1 To 10
             .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
       
        .lblFecha = LV.SelectedItem.ListSubItems(1).Text
        .IdRegistro = LV.SelectedItem.Text
        .ACCION = editar_registro1
       
        .Show
   
     End With
End Sub

y ahora no sale error si no que ahora el punto es q no reconoce el ListView o no se si es la base de datos me sale q no hay registro.!