Hola amigos he metido un ListView en mi formulario clientes y lo que quería es pasar lo datos del formulario al ListView con el BOTON AGREGAR QUE SE ME AÑADAN TODOS LOS CAMPOS en el BOTON ELMINAR CUANDO LE DE QUE ME ELIMINE EL ARCHIVO TB DEL LISTVIEW Y CUANDO DE AL BOTON MODIFICAR EN ALGUN CAMPO QUE MODIFICQUE QUE ME LO MODIFIQUE TB EN EL LISTVIEW.

He intentado poner las columnas o cabeceras en el listview pero en internet me dice que en propiedades sale COLUMNS y alli pones las columnas que tu quieras( Nombre-Edad etc...) pero no consigo saber donde esta eso:confused:.TENGO ESTE CODIGO EN EL BOTON AGREGAR AL FINAL TENGO LO DEL ListView )

Se que el (1) es la columna que tu pones pero no se si es la columna de la pagina de excel o la columna del listview.

( MUCHAS GRACIAS AMIGOS ASIGANTURA PENDIENTE CURSO DE EXCEL ) AJAJAJA

Private Sub cmd_Agregar_Click()

Alberto = txt_Nuevo ' VARIABLE

Aviso = ""

ComúnAgregarModificar Range("A" & Rows.Count).End(xlUp).Row + 1, True

If EsError = False Then

cmd_Nuevo_Click

CargarLista

Aviso = "El registro de " & Alberto & " ha sido agregado" 'USANDO LA VARIABLE

fotografia.Picture = LoadPicture("")

End If

ListView1.ListItems.Add(1).Text = txt_Nuevo.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Edad.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Direccion.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Población.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Provincia.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Alta1.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = cbo_Trabajo.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Telefono.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Email.Text

ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Observa.Text

Y aqui me falta la imagen que tab quiero poner en el listView pero no se como ponerla

End sub

Formulario Clientes Alberto.rar

Buenas,

En propiedades del listbox,rowsource. Aquí agregas el nombre de la tabla y inmediatamente modificas la tabla este listbox se va actualizando.

Anexo documento

Formulario Clientes Alberto.rar

Hola Amigo que tal muchas gracias!!.Ahora tengo un problemilla me sale un error.CUANDO LE DOY AL BOTON AGREGAR ME SALTA UN ERROR QUE ME DICE " SE HA PRODUCIDO UN ERROR '424' EN TIEMPO DE EJECUCION SE REQUIERE OBJETO" LE DOY A DEPURAR Y ME SALE EL FALLO EN LA PRIMERA LINEA DEL LISTVIEW:confused:.

El listView no se puede poner en el mismo formulario de clientes debajo de los botones.Es que esa es la idea ponerlo debajo no tener un nuevo formulario;)

Formulario Clientes Alberto.rar

Buenas,

En que parte esta este boton?

Todos los botones estan en el formulario clientes.

el error al que te refieres es aqui?

alberto = txt_Nuevo  ' VARIABLE

[/CODE]

OJO, si colocas los datos en la lista como te indique ya no debes poner

[CODE]ListView1.ListItems.Add(1).Text = txt_Nuevo.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Edad.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Direccion.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Población.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Provincia.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Alta1.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = cbo_Trabajo.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Telefono.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Email.Text
ListView1.ListItems.Item(1).ListSubItems.Add.Text = txt_Observa.Text
[/CODE]

Buenas.Esa variable la tengo que tener porque sino no me sale en el aviso el nombre del txt_Nuevo cuando le doy al boton agregar.

Como puedo hacer para que no me de ese error cambiar el nombre de la variable o que hago?

Y los campos del listboxt como los puedo ampliar por que se me cortan los datos dentro del listboxt.Por ejemplo la direccion no me entra toda ,las observaciones tampoco como puedo hacer eso.GRACIAS AMIGO MUCHAS GRACIAS!!!!!

Formulario Clientes Alberto.rar