Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Check if relation exists
- Thread starter Kib
- Start date
Hi,
This will tell you if a relationship exists between Table1 and Table2:
Dim dbs As Database, fld As DAO.Field, prp As DAO.Property, booExists As Boolean
On Error GoTo Err_Relation
booExists = False
Set dbs = CurrentDb
Set fld = dbs.Relations("Table1Table2"
.Fields(0)
For Each prp In fld.Properties
On Error Resume Next
If prp.Value <> "" Then
booExists = True
End If
On Error GoTo 0
Next prp
Err_Relation:
MsgBox booExists
dbs.Close
Bill
This will tell you if a relationship exists between Table1 and Table2:
Dim dbs As Database, fld As DAO.Field, prp As DAO.Property, booExists As Boolean
On Error GoTo Err_Relation
booExists = False
Set dbs = CurrentDb
Set fld = dbs.Relations("Table1Table2"
.Fields(0)For Each prp In fld.Properties
On Error Resume Next
If prp.Value <> "" Then
booExists = True
End If
On Error GoTo 0
Next prp
Err_Relation:
MsgBox booExists
dbs.Close
Bill
- Status
Similar threads
- Locked
- Question
- Locked
- Question