Jump to content

Search the Community

Showing results for tags 'acess'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • First visit?
    • Presentaciones
  • Dudas y consultas sobre Excel
    • Excel General
    • Macros y programación VBA
    • Power BI
    • Comparte tus aportes
  • Sobre ayudaexcel.com
    • Solicitud proyectos
    • Blog
    • Plantillas
    • Productos de ayudaexcel
    • Megaguías
  • Otras aplicaciones de Microsoft Office
  • Variedades
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
    • Access, Word, Power Point, Outlook etc...
  • Archive
  • Resources
    • Ideas y aportes

Categories

  • Tools
  • Add-ins
  • Store
  • Finance
  • Dpto. Admin
  • Purchasing
  • Agendas
  • Data registry

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Skype


Facebook


Twitter


Localización:


Interests

Found 1 result

  1. 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
×
×
  • Create New...

Important Information

Privacy Policy