转自:微软动力营 Billy Yao
1. 从系统表中直接获得
select szRelationship from Msysrelationships (where szRelationship Like .....)
(关系名一般是两个表的名字组合)
2. 通过DAO编程获得关系名:
Sub get_relation()
Dim DB As Database
Dim RS As Relations
Dim RT As Relation
Set DB = CurrentDb()
Set RS = DB.Relations
For Each RT In RS
Debug.Print "--------"
Debug.Print RT.Name 'relationship name
Debug.Print RT.Table
Debug.Print RT.ForeignTable
Next
Set RS = Nothing
Set DB = Nothing
End Sub
Access软件网交流QQ群(群号:198465573) |