amigos tengo este proc para llenar un listview con lo datos dela tabla clientes, pero al llamrlo se detiene en
tLi1.SubItems(1) = .Fields("ncliente") & ""
y devuelve el error "380 el valor de la propiedad no es valido"
alguien podría decirme por que?
Private Sub llena_lista_clie()
Dim RT1 As Recordset
Dim tLi1 As ListItem
Set tRs1 = a.OpenRecordset("select * from clientes", dbOpenDynaset)
' Comprobar que hay datos en el recordset
With tRs1
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No hay información de clientes registrados"
Else
' Mostrar los datos hallados
ListView.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set tLi1 = ListView.ListItems.Add()
tLi1.SubItems(1) = .Fields("ncliente") & ""
tLi1.SubItems(2) = .Fields("acliente") & ""
tLi1.SubItems(3) = .Fields("idcliente") & ""
.MoveNext
Loop
End If
End With
End Sub
