| ebolo |  |
|
2007-11-09 17:12 - Respuestas: 37 - Tema nº: 2478159
Me alegro que te haya funcionado. Ahora en cuanto a lo de los 8 segundos, pues yo que sé; yo lo que haría es ir pasando del excel, que para muchas cosas esta bien, pero como base de datos pues como que no, e ir creándote las tablas necesarias en access. Evidentemente eso poco a poco.
Cierra el access y vuelve abrirlo, a ver si va algo más rápido.
Podrías hacer una prueba de ponerte 2 campos más en la tabla y usarlos como origen de datos de cuadros de texto del informe, y mirar el tiempo en que te aparece el informe. Lo puedes hacer sobre una copia del informe original para no tocarlo el que ya te funciona.
2. Los datos los saco del archivo de excel llamado foto.xls, pero tambien necesito sacar datos de otro archivo llamado play.xls, Intente hacerlo siguiendo el codigo que me enviaste pero entonces me muestra los datos del archivo de play.xls y los de foto.xls no...... como hago para que me los muestre en el mismo informe ?
Lo que debes de hacer es cerrar la conexión y volverla a abrir con el nuevo .xls, pero una vez hayas dado valor a los cuadros de texto.
Supongo que tienes cuadros de texto distintos para esos nuevos valores.
Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
Dim objWorkBook As Object
Dim xls As Object
Dim txtlibro As String
'Datos para un libro
txtlibro = "C:\Documents and Settings\compucopiasok\Mis documentos\BD COMPUCOPIAS\foto.xls"
Set xls = CreateObject("Excel.Application")
Set objWorkBook = xls.Workbooks.Open(txtlibro)
Me.Texto28 = objWorkBook.worksheets("Informe Noviembre").Range("AB36")
Me.Texto26 = objWorkBook.worksheets("Informe Noviembre").Range("V36")
objWorkBook.Close
'Abrimos el nuevo libro
txtlibro = "C:\Documents and Settings\compucopiasok\Mis documentos\BD COMPUCOPIAS\play.xls"
Set objWorkBook = xls.Workbooks.Open(txtlibro)
Me.TEXTONUEVO1 = objWorkBook.worksheets("Informe Noviembre").Range("AB36")
Me.TEXTONUEVO2 = objWorkBook.worksheets("Informe Noviembre").Range("V36")
objWorkBook.Close
Set xls = Nothing
Set objWorkBook = Nothing
End Sub
SAludos.
| |
|
|
| nestor |  |
|
Re: Combinar Access y Excel - 2007-11-14 16:01 - Respuesta 22
Hola ebolo, listo salio perfecto...
Pero ahora tengo un problemita y no se como solucionarlo de forma efectiva...
La BD maneja la venta de productos de papeleria, todos los dias al finalizar la jornada saco un informe de las ventas o movimientos del dia(cantidades, detalle, valor unitario, valor total, etc.), tambien registro cuando algunos clientes abonan a cuentas que deben de igual forma se registra cuando se saca dinero de la caja principal (Esto lo estoy registrando como si fuera un producto que se vende) el inconveniente es que lo que saca el informe del dia pues no coinside ni con el informe de la caja principal que es el valor total desde que se monto la aplicacion ni con el informe diario ?
Como puedo solucionar esto? depronto otro campo? como puedo registrar eso en el formulario?
Gracias por la ayuda.. | |
|
|
| ebolo | |
|
Re: Combinar Access y Excel - 2007-11-15 12:14 - Respuesta 23
Hola nestor; la verdad que desde aquí es difícil solucionar eso, sin ver donde se guardan todos los registros. Me da a mí que es un problema de diseño del informe, donde no se ponen los datos correctos, pero es por decir algo.
Un saludo.
| |
|
|
| nestor | |
|
Re: Combinar Access y Excel - 2007-11-19 15:34 - Respuesta 24
Hola, voy a revisar y le cuento....Gracias | |
|
|
| nestor | |
|
Re: Combinar Access y Excel - 2007-11-23 15:53 - Respuesta 25
Hola ebolo, cree una tabla donde registro todos los gastos o prestamos que se realizan y con eso solucione el poblema, pero ahora para sacar el informe necesito sumar todos los subtotales que me salen en el informe para un gran total, lo hice igual que con el informe diario este lo realice en OFFICE 2003, =Suma([Valortotal]), pero resulta que lo estoy corriendo en otro equipo que tiene office 2007 y cuando corro el nuevo infome que realice en Ofice 2007 me sale un cuadro de dialo que dice: Valor y un cuado de texto para digitar.... lo coloque de esta menera: =suma([Valor])....
Cuando corri el programa en Ofice 2007 no me funciona de forma adecuada, me salen valores en cero, las cantidades en cero, cea registros falsos etc.
Espero me colabores... como hago esa sumatoria en Ofice 2007 ?
| |
|
|
|
