Los parametros son:
strTablaOrigen = Nombre de tabla del Back End
strOrigenDB = Ruta y nombre Back End
strTablaDestino = Nombre tabla que das en el Front End (Vinculada)
Private Function LinkarTabla(strTablaOrigen As String, strOrigenDB As
String, strTablaDestino As String)
Dim Db As DAO.Database
Dim tdf As DAO.TableDef
Set Db = CurrentDb
Set tdf = Db.CreateTableDef(strTablaDestino)
tdf.SourceTableName = strTablaOrigen
tdf.Connect = ";DATABASE=" & strOrigenDB & ";UID= Usuario;PWD=password"
tdf.Attributes = tdf.Attributes And dbAttachedTable
Db.TableDefs.Append tdf
Db.TableDefs.Refresh
End Function
----------------------------------------------------
Para vincular con la seguridad establecida a nive recurso:
'Aqu¡ solo hay una tabla, claro...
Private Sub Comando2_Click()
Dim mdb As Database
Set mdb = CurrentDb
Dim tdfVinculada As TableDef
Set tdfVinculada = mdb.CreateTableDef("PepeTabla") ' CREO MI TABLA
VINCULADA
tdfVinculada.Connect = ";DATABASE=C:\BaseConDatos.mdb;PWD=yuyu1969"
'LA
CONTRASE¥A (no se la digas a nadie !)
tdfVinculada.SourceTableName = "Pepetabla" ' LA TABLA ORÖGEN
mdb.TableDefs.Append tdfVinculada
mdb.TableDefs.Refresh ' Y LUEGO ME TOMO EL REFRESCO
End Sub
-------------------------------------------------------------------------
Estos dos código me fueron enviado por marjan y funcionan perfectamente,
otra cosa distanta para el primero es que no tuvieses los permisos
adecuados para ejecutar las acciones con la seguridad que tuvieses
establecidad.
-----------------------------------------------------------------------
A mi entender deberías de tener tanto el Front como el BackEnd con la
seguridad establecida a nivel usuario. Es la única manera de mantener una
base de datos lo suficientemente segura.
La seguridad a nivel recurso es muy facil de crackear.
"Federico Yacianci" <flia_y...@mundo-r.com> wrote in news:299201c1f91c
$eacbcd70$35ef2ecf@TKMSFTNGXA11: