Jump to content

Cargar cabeceras en listview


Recommended Posts

Saludos cordiales a todos,de nuevo por aca ,me pregunto como es posible ahorrarse estas lineas de configuracion de encabezados en el listview:

.ColumnHeaders.Add Text:="ID", Width:=60
.ColumnHeaders.Add Text:="CODIGO", Width:=60
.ColumnHeaders.Add Text:="COLOR", Width:=60
.ColumnHeaders.Add Text:="ID_DEP", Width:=0
.ColumnHeaders.Add Text:="DEPOSITO", Width:=100
.ColumnHeaders.Add Text:="EXISTENCIA", Width:=60
.ColumnHeaders.Add Text:="MINIMO", Width:=60

intente con este codigo pero aunque no manda un error no me trae las cabeceras:

With Vista

Abrir_Rs

Sql = "select* from saproducto"

Rs.Open Sql, Cnn, 1, 1

If Rs.RecordCount > 0 Then

For i = 0 To Rs.Fields.Count - 1
Vista.ColumnHeaders.Add , , Rs.Fields(i).Name
Next
End If

End With

Si me pueden decir que puede estar mal con el codigo se los agradeceria mucho
 

 

Link to post
Share on other sites
En 20/11/2019 at 14:01 , avalencia dijo:

Creo que será más fácil  ayudarte si envías el archivo, ya que lo otro es reproducir todo y no sé si alguien tenga el tiempo. Ah, si la conexión es a MySQL o SQL Server, envía en una hoja una muestra de los datos.

Gracias crei que con el codigo era suficiente Abraham disculpa... aqui el archivo saludos cordiales

Libro1.xlsm Libro1.xlsm

Link to post
Share on other sites

Hola nuevamente

Yo no programaría como andas haciendo, conectas y desconectas demasiadas veces, pero bueno, esa finalmente es cosa tuya. Ojo, en tu Textbox, tal como esta, en algún momento el mismo registro se repetirá varias veces-

Mira bien lo que he usado y lo que he "movido" y repetido para evitar que el mismo encabezado se use varias veces y que se pueda sacar el nombre de los campos del RecordSet. Estabas cerca pero andas un poco enredado con eso de conectar y desconectar jejeje.

 

Libro1AV.xlsm

Link to post
Share on other sites
Hace 15 horas, avalencia dijo:

Hola nuevamente

Yo programaría como andas haciendo, conectas y desconectas demasiadas veces, pero bueno, esa finalmente es cosa tuya. Ojo, en tu Textbox, tal como esta, en algún momento el mismo registro se repetirá varias veces-

Mira bien lo que he usado y lo que he "movido" y repetido para evitar que el mismo encabezado se use varias veces y que se pueda sacar el nombre de los campos del RecordSet. Estabas cerca pero andas un poco enredado con eso de conectar y desconectar jejeje.

 

Libro1AV.xlsm 32 kB · 1 descarga

Muchas Gracias,esta bueno,con respecto a las conexiones normalmente me conecto al abrir el userform(Initialize) y desconecto al salir del formulario,por error deje varia conexiones ,mil gracias hermano saludos que estes muy bien

Link to post
Share on other sites
Guest
This topic is now closed to further replies.


  • Posts

    • Hola @Serch! Adjunto una alternativa empleando una columna auxiliar! Saludos! Ejemplo busqueda de valor correspondiente para cada semana.xlsx
    • Hola buenos dias, solicito de su apoyo ya que necesito encontrar un valor "ID" de una "Tienda" a lo largo de 1 mes y que me de como resultado para cada semana el "ID" de la persona que fue a visitar esa tienda.   Espero me puedan ayudar, adjunto ejemplo e instrucciones dentro de este.   mil gracias y saludos.¡¡¡ Ejemplo busqueda de valor correspondiente para cada semana.xlsx
    • saludos. estoy desarrollando un formulario en los deseo calcular varios textbox y mostrar el resultado en otros, el problema radica cuando los coloco con formato de miles los cálculos no funcionan; por favor si alguien me puede dar una ayuda o indicarme el procedimiento. ya he utilizado el cdbl(replace((.. obteniendo el mismo resultado. adjunto enlace. https://drive.google.com/drive/folders/1mPjlo-c7rCrwALgK9pF20e3J-XQG8Wk6?usp=sharing muchas gracias por su pronta colaboración.
    • Bueno!!, logre hacer que funcione. Este seria el codigo final. ' Modulo NoCoincidencia Dim SerialNoAuditado As Variant On Error GoTo IngresarSerialNoAuditado: SerialNoAuditado = Worksheets("Reg. N-Auditados").Range("B5").Value Resultado = Application.WorksheetFunction.Match(SerialNoAuditado, Worksheets("Laptop").Range("D6:D40005"), 0) If Resultado > 0 Then GoTo SerialAuditado: Else GoTo IngresarSerialNoAuditado: End If ' Aqui es para indicar que el serial esta auditado SerialAuditado: MsgBox "Este equipo fue auditado, por favor registrelo en el modulo correspondiente 'Reg. Entradas o Reg. Salidas'" Borrar_Campos Range("B5").Select Exit Sub IngresarSerialNoAuditado: 'Inicio insertar linea en la hoja registro de equipos no auditados Las etiqueta "NuevoIngreso:" fueron eliminadas. Por favor indiquenme si hay algun error o se puede mejorar el codigo. Agradecido de antemano
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy