Sveinbjorn El Rojo

Veo que sigues insistiendo en rellenar un listbox a base de recordsets... Pregunto yo: el código que tienes ¿te funciona o no? ¿Te da algún error o no? ¿Qué error y descripción? ¿En qué parte del código te lo marca? Además, te deberías a acostumbrar...

Hace unos años resolví esta misma cuestión. Mira la pregunta siguiente: Contar líneas en un cuadro de texto Un saludo ____________________ nksvaccessolutions.com/Foro/

Plantéalo al revés: en vez de pasar los datos del primer formulario al segundo (lo que no te funciona por el acDialog), coge los datos desde el segundo (siempre que no cierres el primer formulario), por ejemplo: Private Sub Form_Load()...

Usando la constante vbCrLf puedes insertar un salto de línea. También con chr(13) & chr(10) La idea sería coger el texto existente en el textbox, y añadirle esa constante antes del valor del cuadro de lista, por ejemplo: If nz(Me.NombreTxtBox,"")=""...

Como te dije en la otra pregunta, pon el mismo código en el subformulario.

Prueba con: Forms("Factura").Inventario.Form.IdProducto=Me.Idproducto Y me cuentas. Un saludo

Cambia esta línea: CadenaSQL = CadenaSQL + "" & departamento & ")" por esta otra, porque entiendo que "Departamento" es un dato de texto: CadenaSQL = CadenaSQL + "'" & departamento & "')" Un saludo

No uses la propiedad Text, sino Value, o como es la propiedad por defecto, no le añadas nada: text1.Value= Format(text1.Value, "$ ###,###,###") text1= Format(text1, "$ ###,###,###")

Intenta "compactar y reparar" tu BD, a ver si eso lo arregla. Si no lo hace, crea una BD nueva y vete importando uno a uno todos tus objetos (tablas, consultas, formularios...) a ver si hay alguno que "cascó". En ese caso, no te va a quedar más...

¿Y por qué no le asignas directamente la tabla como origen, ya sea en las propiedades del cuadro e lista o por código en el RowSource? Por código sería simplemente poner esto: Me.modeloz.RowSource="SELECT costo FROM " & ids Suponiendo, claro está,...