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
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