Function ClearRelations()
Set Relations = CurrentDb().Relations
Do While Relations.Count > 0
Relations.Delete Relations(0).Name
Loop
End Function
ACCESS数据表关系重置
最新推荐文章于 2023-10-31 12:20:54 发布
Function ClearRelations()
Set Relations = CurrentDb().Relations
Do While Relations.Count > 0
Relations.Delete Relations(0).Name
Loop
End Function