Access - Integridad refencial en access-97

 
Vista:

Integridad refencial en access-97

Publicado por Angel (4 intervenciones) el 16/10/2006 18:58:38
Hola, sabe alguien si mediante código se puede establecer integridad referencial con respecto a tablas vinculadas en acces-97, pues se que de otra forma no funciona, cuando al establecer una relación con una tabla vinculada intentamos establecer la integridad referencial, no es posible los cuadros que deberíamos marcar no están activos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Establecer Integridad Referencial con Tablas Vinculadas en Access 97

Publicado por Alejandro (4142 intervenciones) el 26/07/2023 21:36:13
En Access 97, debido a ciertas limitaciones en la interfaz de usuario, es posible que los cuadros para establecer la integridad referencial no estén activos al intentar establecer una relación con una tabla vinculada. Sin embargo, aún es posible establecer la integridad referencial mediante código utilizando Visual Basic for Applications (VBA). A continuación, se proporciona un ejemplo de cómo hacerlo:

1. Abre la base de datos de Access 97 y presiona ALT + F11 para abrir el Editor de Visual Basic.

2. En el Editor de Visual Basic, selecciona "Insertar" en la barra de menú y luego elige "Módulo" para crear un nuevo módulo.

3. En el nuevo módulo, ingresa el siguiente código para establecer la integridad referencial entre las tablas:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function EstablecerIntegridadReferencial()
    Dim db As Database
    Dim rel As Relation
 
    ' Cambia "TablaOrigen" y "TablaVinculada" por los nombres reales de las tablas
    Set db = CurrentDb
    Set rel = db.CreateRelation("NombreRelacion", "TablaOrigen", "TablaVinculada")
 
    ' Cambia "CampoOrigen" y "CampoVinculado" por los nombres reales de los campos relacionados
    rel.Fields("CampoOrigen").ForeignName = "CampoVinculado"
 
    ' Establecer otras propiedades de la relación, si es necesario
    ' rel.Attributes = dbRelationXXXX
 
    db.Relations.Append rel
 
    ' Confirma los cambios en la base de datos
    db.Close
    Set db = Nothing
 
    MsgBox "Integridad referencial establecida con éxito.", vbInformation
End Function

4. Cierra el Editor de Visual Basic y regresa a la base de datos.

5. Presiona ALT + F11 nuevamente para abrir el Editor de Visual Basic, y luego selecciona "Herramientas" en la barra de menú y elige "Referencias".

6. En la lista de referencias, asegúrate de que esté marcada la opción "Microsoft DAO 3.5 Object Library" para que el código funcione correctamente.

7. Ahora, puedes ejecutar la función `EstablecerIntegridadReferencial` desde la ventana de Macro o desde un botón en un formulario para establecer la integridad referencial entre las tablas vinculadas.

Nota: Recuerda hacer una copia de seguridad de tu base de datos antes de realizar cualquier cambio importante, como establecer integridad referencial mediante código. Además, ten en cuenta que Access 97 es una versión muy antigua, y sería recomendable actualizar a una versión más reciente si es posible, ya que ofrece mejoras en funcionalidades y seguridad.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar