Desde ya muchas gracias por su tiempo.
Un saludo.
Yo lo hago mediante DAO. No se si te sirve te pongo 1 ejemplo.
Mucahs gracias.
"Juan Carlos" wrote:
> .
>
- http://support.microsoft.com/kb/116145/es
--
Un saludo,
Patxi Sanz
Tudela (NA)
http://www.pasa.es.tt/
"Patxi Sanz" wrote:
> .
>
"José Mª Fueyo" wrote:
> Hola
> Para borrar una relación por código, necesitas su nombre.
> Este código borra la relación establecida entre dos tablas. Ten en
> cuenta que tiene la limitación de usar relaciones campo a campo, y
> tienes que introducir primero el lado uno de la relación uno a varios
> <pego>
>
> Public Sub BorraRelacion(sTabla1 As String, sTabla2 As String)
> Dim db As DAO.Database, tdf As DAO.TableDef, rlts As
> DAO.Relations, rlt As Relation
> Dim sRelacion As String
> Set db = CurrentDb
> Set rlts = db.Relations
> For Each rlt In rlts
> If rlt.Table = sTabla1 And rlt.ForeignTable = sTabla2 Then
> sRelacion = rlt.Name
> End If
> Next
> rlts.Delete sRelacion
> End Sub
> </pego>
>
> Salu2
> --
> José Mª Fueyo
> [MS MVP Access]
> .
>