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

¿Como hacer funcionar opción "todos" en cuadro combinado?

Tengo un combo "estudiantes" que realiza filtro por nombre apellido y también un combo "año" -basado en campo fecha_inscripción_anual- que filtran en un subformulario la trayectoria educativa del estudiante según el año. Mediante la consulta sql de...
2 respuestas

Crear un botón en un formulario para que borre todos los registros de una tabla

Necesito crear un comando para borrar los registros de una tabla, y otro para lanzar una carga de una importación, ahora tengo access 2016 y no sé como hacerlo
3 respuestas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

¿Se puede compartir base de datos access 2007?

Tengo una pequeña duda. He estado leyendo por foros y otras páginas acerca de la posibilidad de compartir bases de datos, pero en ninguna he visto nada acerca de hacerlo de forma simultanea, es decir, que si yo creo un registro desde un ordenador, el...
2 respuestas

Capacidad de Microsoft Access

Quisiera saber si alguien de ustedes sabe hasta cuantos registros soporta una tabla en una base de datos en Access... Me servirá de mucha la ayuda de alguien...
2 respuestas

Problemas convertir SQL SERVER

Estoy intentando pasar a SQlServer una base de datos de access, lo que hago es utilizar la opción que ofrece Access pero me sale un informe con el "mensaje se paso por alto o fallo la exportación", y lo curioso es que me crea bien la nueva base de...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Contar los registros en formulario con un valor de cero

Como digo en la pregunta es posible contar los registros con un valos cero, y si es así cual es la instrucción para ello. ¿Algún experto me puede ayudar. A parte de esto cuando quiero ebaular alguna respuesta se produce error no se si les ecurre a...
2 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas