Error!!!
Publicado por Isa (1 intervención) el 08/05/2007 18:05:21
Hola! Disculpen las molestias. Me a surgido el error 380 Invalid property value y no se como solucionarlo. El codigo donde me surge el error es el siguiente
'Crea una nueva entrada en el ListView.
Set NewItem = frmVerListadoArticulos.ListView1.ListItems.Add(, , CStr(User!Num))
'Añade el resto de los campos de la consulta al ListView.
If Not IsNull(User!Descripcion) Then
NewItem.SubItems(1) = CStr(User!Descripcion)
End If
If Not IsNull(User!Cod_art) Then
NewItem.SubItems(2) = CStr(User!Cod_art) AQUI ES DONDE ME SALE EL ERROR!!!!!!!!!!!
End If
Descripcion es de tipo texto, cod_art es tambien de tipo texto
Muchas gracias de antemano
Un saludo
'Crea una nueva entrada en el ListView.
Set NewItem = frmVerListadoArticulos.ListView1.ListItems.Add(, , CStr(User!Num))
'Añade el resto de los campos de la consulta al ListView.
If Not IsNull(User!Descripcion) Then
NewItem.SubItems(1) = CStr(User!Descripcion)
End If
If Not IsNull(User!Cod_art) Then
NewItem.SubItems(2) = CStr(User!Cod_art) AQUI ES DONDE ME SALE EL ERROR!!!!!!!!!!!
End If
Descripcion es de tipo texto, cod_art es tambien de tipo texto
Muchas gracias de antemano
Un saludo
Valora esta pregunta
0