Automatizar la vinculación de tablas en access
Hola David:
Estoy estuduando la forma de vincular unas tablas de FoxPro en access, mediante alguna macro que me facilite el trabajo.
Las tablas (diario, cuentas, documentos, están en varias carpetas dentro del mismo ordenador), tengo que vincularlas manualmente, si estoy en la ofician o en casa, ¿cómo puedo preparar una macro como las de excel para realizar este trabajo fácilmente?
Estoy estuduando la forma de vincular unas tablas de FoxPro en access, mediante alguna macro que me facilite el trabajo.
Las tablas (diario, cuentas, documentos, están en varias carpetas dentro del mismo ordenador), tengo que vincularlas manualmente, si estoy en la ofician o en casa, ¿cómo puedo preparar una macro como las de excel para realizar este trabajo fácilmente?
Respuesta de denciso
1
No he visto este tipo de trabajo, pero porque no grabas la macro en forma automática y después generas el código necesario en un botón para que realice el proceso.
Sugiero ver la siguiente liga:
Sugiero ver la siguiente liga:
Gracias, seguiré buscando, por ahora he avanzado con esta macro pero me da error, te agradeceré todo lo que hagas.
'------------------------------------------------------------
' vincular_tabla de FoxPro
'
'------------------------------------------------------------
Function Vincular_tabla()
On Error GoTo vincular_tabla_Err
'---------------
DoCmd.TransferDatabase acLink, _
"ODBC", _
"ODBC;DSN=Visual FoxPro Database;SourceDB=e:\GrupoSP\COE06R01\EMP53;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;;TABLE=diario.dbf", _
acTable, "e:\GrupoSP\COE06R01\EMP53\diario.dbf", "midiario"
'---------------
vincular_tabla_Exit:
Exit Function
vincular_tabla_Err:
MsgBox Error$
Resume vincular_tabla_Exit
End Function
'------------------------------------------------------------
' vincular_tabla de FoxPro
'
'------------------------------------------------------------
Function Vincular_tabla()
On Error GoTo vincular_tabla_Err
'---------------
DoCmd.TransferDatabase acLink, _
"ODBC", _
"ODBC;DSN=Visual FoxPro Database;SourceDB=e:\GrupoSP\COE06R01\EMP53;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;;TABLE=diario.dbf", _
acTable, "e:\GrupoSP\COE06R01\EMP53\diario.dbf", "midiario"
'---------------
vincular_tabla_Exit:
Exit Function
vincular_tabla_Err:
MsgBox Error$
Resume vincular_tabla_Exit
End Function
