Jump to content

mangelperu

Members
  • Content Count

    12
  • Joined

  • Last visited

About mangelperu

  • Rank
    Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola Jose Santos, gracias por tu apoyo, efectivamente la consulta es mas rápida. muchas gracias
  2. Gracias Sergio, seguí tus instrucciones y le puse un segundo de pausa, y ahora si puedo obtener los registros, muchas gracias por tu apoyo, así también gracias a Abraham y Luis Paz por su apoyo. Feliz Año Nuevo¡ para todos los miembros de ayudaexcel.com.
  3. Buenas noches Abraham me puedes apoyar con este tema https://ayudaexcel.com/foro/profile/162815-mangelperu/

    Gracias de antemano.

  4. Gracias Luis Paz, por tu apoyo con este tema, pero te comento que sigo teniendo el mismo problema, al ejecutar tu código con con F5 el código corre realiza la consulta en la web, pero no pasa los datos consultados a excel, pero si lo realizo paso a paso con F8 ahí si pasa los datos consultados a la web a excel.
  5. Buenas tardes, estoy tratando de acondicionar un código que encontré en la web, para hacer consulta DNI desde una pagina publica: 1. El código cargar a la pagina web el Numero de DNI y hace la consulta, pero no pasa la información a la hoja de excel. 2. Al ejecutar paso a paso con F8 desde el editor VBA para buscar el error, ahí si devuelve el resultado de la consulta. Adjunto archivo: https://1drv.ms/u/s!AnunMyzFZYqEmWTzwN2bS3ZcVNnn?e=28FSsU
  6. Hola Buenos días Abraham, gracias por tu atención y mil disculpas me equivoque al subir el archivo, https://1drv.ms/u/s!AnunMyzFZYqEmVwx_P52NiWbA0qM?e=2yKcFs; este es el correcto. 1. Ingreso datos de una boleta en el formulario UFBoleta (Ingresa correctamente y actualiza en la BD Access) y se Crea el Archivo PDF de la Boleta 2. Abro el formulario VisorPDF y busco la boleta y logro visualizar el PDF, https://1drv.ms/u/s!AnunMyzFZYqEmV4Z3D4R42HYrVsZ?e=pCVl4F 3. Al querer ingresar otra Boleta (Aquí me sale el error y excel se cierra) https://1drv.ms/u/s!AnunMyzFZYqEmV0DIoDiDbvpDdEN?e=BL9887 Gracias por tu apoyo
  7. Buenas noches tengo este problema, tengo un archivo Excel con conexión a una base de datos Access, que funciona bien solo, le adicione un visor de archivo pdf que encontré en la web. Al implementarlo en un solo archivo al ejecutar la macro para ingresar información a Access funciona bien; llamo al visor de pdf y visualizo correctamente, cierro el formulario. El Problema: se origina al ingresar información por segunda vez a Access. saliendo el siguiente error Microsoft Excel dejo de funcionar: Firma con problemas: nombre del evento de problema: BEX64 Nombre de la aplicación: EXCEL.EXE Versión de la aplicación: 16.0.12228.20364 Marca de tiempo de la aplicación: 5de9963 Nombre del modulo con errores: ACEOLEDB.DELL_unloaded Tengo excel 2016 de 64 bits Adjunto archivo para lo puedan revisar, y agradeceré su apoyo https://1drv.ms/u/s!AnunMyzFZYqEmVsXt0pJM7jslo82?e=16hrBs
  8. Buenos dias, amigos espero me puedan ayudar con este problema que encontre. Tengo abierto un formulario1 donde hay un listview, llamo al formulario2 donde ingreso los datos para el listview del formulario1, el problema es que al cerrar el formulario2, quisiera que el foco pase al listview, pero no lo consigo: Private Sub btnAceptar_Click() Call Agregar_Asientos_Voucher Unload Me UFVouchers.ListView1.SetFocus ''AQUI Mando el foco pero no lo reconoce End Sub Sub Agregar_Asientos_Voucher() Dim i As Integer With UFVouchers.ListView1 i = .ListItems.Count + 1 Rem MsgBox .ListItems.Count .ListItems.Add(i).Text = UFSubVouchers.txtCtaCble .ListItems.Item(i).ListSubItems.Add.Text = UFSubVouchers.txtDenominacion If UFSubVouchers.txtDebe <> "" Then .ListItems.Item(i).ListSubItems.Add.Text = UFSubVouchers.txtDebe Else .ListItems.Item(i).ListSubItems.Add.Text = " " End If If UFSubVouchers.txtHaber <> "" Then .ListItems.Item(i).ListSubItems.Add.Text = UFSubVouchers.txtHaber Else .ListItems.Item(i).ListSubItems.Add.Text = " " End If End With End Sub
  9. Gracias Alexhanders, me funciono tu aporte, igualmente gracias por tu apoyo Hector Miguel.
  10. Hola Hector, gracias por responder, realice lo que me indicaste, y el resultado es que del valor -1 lo vuelve positivo a 1, pero en la tabla tengo 4 registros, por lo que no esta contando todos los registros. haber si me pueden ayudar DBClientes.rar
  11. Buenas tardes, tengo una procedimiento que estoy modificando para contar los registros de una tabla access y verlos en un textbox de un formulario excel vba, pero el resultado siempre me sale -1 y en la tabla hay 4 registros. Sub Consulta_Registros() Dim conexion As ADODB.Connection Dim recordset As ADODB.recordset Dim Consulta As String Dim MiBase As String Set conexion = New ADODB.Connection MiBase = "\DBClientes.accdb" conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & Application.ThisWorkbook.Path & Application.PathSeparator & MiBase Consulta = "SELECT * FROM TClientes " Consulta = "SELECT COUNT(Razon_Social) FROM TClientes " Set recordset = New ADODB.recordset recordset.Open Consulta, conexion Dim total_reg As Integer recordset.MoveNext UserForm1.TextBox1.Value = recordset.RecordCount total_reg = 0 Set recordset = Nothing Set conexion = Nothing End Sub Espero me puedan apoyar, gracias. ContarRegistros.rar
  12. Hola javihng123 vi que hiciestes una pregunta en el foro Contar registros de tabla access y mostrarlos en la label de excel,   y que encontrastes la solucion no se si podrias compartirla, he hecho la misma pregunta y no me han podido encontrar respuesta, espero me puedas apoyar

    https://ayudaexcel.com/foro/messenger/2494/

    Gracias

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png