Tengo este código en el botón Aceptar del formulario
Private Sub CommandButton1_Click() Dim Ruta As String Ruta = Rutafrm.TextBox1.Value End Sub
Este otro ya es en la macro
'Definir la ruta de la base de datos PathDataBase = Me.Ruta.Text
Y ya esta es la conexión y consulta a la DB
Set cn = CreateObject("ADODB.connection") conexionBD = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathDataBase
'Realizar la consulta a la tabla que queremos consultaSQL = "Select * from Clientes where " & campotabla & complementobusqueda & "'" & nombrecliente & "'" cn.Open conexionBD Set datos = cn.Execute(consultaSQL)
En la linea cn.Open conexionBD me sale error de autentificación al ejecutar la consulta
Ruta = Userform1.Textbox1.Value
debería servirteMe.Ruta.Text
por el nombre de tuTextBox
, quizá:Me.TextBox1.Text
si es que asi se llama, luego desde el botón llamar a esa función solamenteCall Test
.