Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Eliminar relación entre tablas con VB

499 views
Skip to first unread message

selo

unread,
Mar 29, 2010, 8:41:01 AM3/29/10
to
Estimados, estoy usando Access 2003 y mediante VBA necesito eliminar la
relación entre 2 tablas para luego eliminar a éstas. Cómo puedo eliminar la
relación entre ambas ???

Desde ya muchas gracias por su tiempo.
Un saludo.

Juan Carlos

unread,
Mar 29, 2010, 9:02:55 AM3/29/10
to

Yo lo hago mediante DAO. No se si te sirve te pongo 1 ejemplo.

selo

unread,
Mar 29, 2010, 10:06:05 AM3/29/10
to

Si no es molestia y lo tenés a mano postealo, haber si lo puedo aplicar.

Mucahs gracias.

"Juan Carlos" wrote:

> .
>

Patxi Sanz

unread,
Mar 29, 2010, 11:26:20 AM3/29/10
to
Otra posibilidad es usar sentencias SQL:

- http://support.microsoft.com/kb/116145/es

--
Un saludo,


Patxi Sanz
Tudela (NA)
http://www.pasa.es.tt/

Message has been deleted

selo

unread,
Mar 29, 2010, 1:20:02 PM3/29/10
to

Gracias Patxi, muy buena información.
Un saludo.


"Patxi Sanz" wrote:

> .
>

selo

unread,
Mar 29, 2010, 1:19:02 PM3/29/10
to

Gracias José, clarísimo.
Un saludo.


"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]
> .
>

Patxi Sanz

unread,
Mar 29, 2010, 1:59:46 PM3/29/10
to
De nada :-)

José Mª Fueyo

unread,
Mar 30, 2010, 4:04:02 AM3/30/10
to
De nada. Aunque me da la impresión que te lo he respondido
directamente en lugar de al grupo, al menos la has expuesto en tu
respuesta.
0 new messages