Introducir desde un campo texto el valor de variable

Hola primero agardacerte por la ayuda y preguntándote otra cosa espero y me puedas volver a ayudar, mira tengo esta función que lo que hace es hacer un export de Excel a Access y lo que quisiera es que en lugar de definir directamente en la función el Path donde se encuentra el archivo que lo obtuviera de un campo de texto en el formulario aquí te dejo la función. Gracias
Private Sub Comando6_Click()
Dim sTablaOrigen As String, sTablaDestino As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
Dim ruta As String
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ghuerta\Polizas_comparar_2.mdb"
sTablaDestino = "[nueva5]" 'nombre de la nueva tabla
sTablaOrigen = "[test$]" 'hoja uno
' Importo la tabla a la base de datos «Activa»
sConnect = "'C:\ghuerta\test.xls' 'Excel 8.0;HDR=yes;'"
sSQL = "SELECT * INTO " & sTablaDestino & " FROM " & sTablaOrigen & " IN " & sConnect
cnnActiva.Execute sSQL
' Cierro la conexión
cnnActiva.Close
End Sub

1 respuesta

Respuesta
1
Yo acostumbro a construir el path sobre una variable del proceso para asegurarme que lleva bien las barras inclinadas (\)
Por lo que comentas creo que podrías poner:
    dim auxPath as string
    auxPath = nombreFormulario.nombreCampoPath ' Recupera el Path del formulario
    if right$(auxPath,1)<>"\" then auxPath = auxPath & "\" ' Si no tiene "\" lo añadimos
Despues, dónde pongas...
    C:\ghuerta\test...
Tendras que poner...
    " & auxPath & "\test...
Resumiendo, en lugar de la línea (copiada de tu código)
    sConnect = "'C:\ghuerta\test.xls' 'Excel 8.0;HDR=yes;'"
Tendrías que poner
    sConnect = "'" & auxPath & "\test.xls' 'Excel 8.0;HDR=yes;'"
Por cierto, ¿no le falta nada a esa línea? Me da la impresión que puede faltar alguna coma o punto y coma.
Ya he hecho los cambios pero al tratar de ejecutar me dice que se requiere un objeto, ¿así lo deje no se si falta algo? El error me marca al definir el auxPath = Formulario2. Ruta
Private Sub Comando6_Click()
Dim sTablaOrigen As String, sTablaDestino As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
Dim auxPath As String
 
auxPath = Formulario2.ruta  ' Recupera el Path del formulario
 
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\ghuerta\Polizas_comparar_2.mdb"
sTablaDestino = "[otra5]" 'nombre de la nueva tabla2
sTablaOrigen = "[test$]" 'hoja uno
' Importo la tabla a la base de datos «Activa»
  sConnect = "'" & auxPath & "\test.xls' 'Excel 8.0;HDR=yes;'"
sSQL = "SELECT * INTO " & sTablaDestino & " FROM " & sTablaOrigen & " IN " & sConnect
cnnActiva.Execute sSQL
' Cierro la conexión
cnnActiva.Close
End Sub
O el objeto del formulario no se llama 'ruta' (el nombre del objeto), o bien el formulario tiene otro nombre, o bien el formulario no está abierto cuando ejecutas el código.
Prueba a poner delante de esa instrucción estas otras:
msgbox "Nombre del formulario: " & formulario2.name
msgbox "Nombre del objeto: " & formulario2.ruta.name
Seguramente te de error en una de esas líneas y nos indicará cual de los dos está mal.
Bueno el error anterior ya quedo solucionado ahora al ejecutar me marca
Error de sintaxis en la calusula FROM y el error lo marca aquí : cnnActiva.Execute sSQL
Pero si comento la parte nueva y lo dejo funcionando introduciendo el path directamente si que funciona :s
Private Sub Comando2_Click()
Dim sTablaOrigen As String, sTablaDestino As String
Dim sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
Dim auxPath As String
auxPath = Form_Formulario3.ruta  ' Recupera el Path del formulario
 If Right$(auxPath, 1) <> "\" Then auxPath = auxPath & "\" ' Si no tiene "\" lo añadimos
Set cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\ghuerta\Polizas_comparar_2.mdb"
sTablaDestino = "[otra5]" 'nombre de la nueva tabla2
sTablaOrigen = "[test$]" 'hoja uno
sConnect = "'" & auxPath & " 'Excel 8.0;HDR=yes;'"
sSQL = "SELECT * INTO " & sTablaDestino & " FROM " & sTablaOrigen & " IN " & sConnect
cnnActiva.Execute sSQL
cnnActiva.Close
End Sub
La instrucción...
sConnect = "'" & auxPath & " 'Excel 8.0;HDR=yes;'"
... antes tenía el nombre del fichero excel (text.xls)
Lo que no sé es si permite importar una tabla de excel de esa forma (nunca lo he hecho).
Mira a ver si poniendo el nombre te funciona
Muchas gracias al final pude hacerlo pero tuve que cambiar el modo de hacer el export de excel a access. Y era más fácil aquí te lo dejo por si algún día lo llegas a ocupar Saludos
Dim filename As String
path = Form_Formulario4.via
 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, "Temporal", path, True

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas