Πρόβλημα με συνδεδεμένη ΒΔ

[lefterisg]

Γεια σας. Είμαι νέο μέλος και ζητάω βοήθεια πρώτη φορά.
Έχω μία συνδεδεμένη ΒΔ στην οποία πρέπει να τσεκάρω με VBA την ενεργοποίηση ακεραιότητας αναφορών, αλλά και την διαδοχική ενημέρωση και την διαδοχική διαγραφή.
Ο παρακάτω κώδικας το κάνει αυτό, αλλά μόνο όταν είναι στην ίδια ΒΔ με τους πίνακες.

Option Compare Database
Option Explicit

Public Const dbRelationCascadeNull As Long = &H2000 'DAO bit for the Attributes of the Relation.


'DDL example
Function MakeRelJetADO1()
'Purpose: Create a Cascade-to-Null relation using DDL.
Dim strSql As String
strSql = "ALTER TABLE tblProduct ADD CONSTRAINT tblCategorytblProduct " & _
"FOREIGN KEY (CategoryID) REFERENCES " & _
"tblCategory (CategoryID) ON update cascade on DELETE cascade"
CurrentProject.Connection.Execute strSql
Debug.Print "Constraint created"
End Function

Function RelationExists(strRelName As String) As Boolean
'Purpose: Return True if the relation already exists.
On Error Resume Next
Debug.Print CurrentDb.Relations(strRelName).Attributes
RelationExists = (Err.Number = 0&)
End Function

Δεν το κάνει όταν τον εκτελώ από φόρμα συνδεδεμένης βάσης.
Παρακαλώ αν είναι δυνατόν για τη βοήθεά σας.
Σας ευχαριστώ, Λευτέρης.
Συνημμένα ανέβασα τις 2 ΒΔ