用项目事件CurrentTableChanged:
if forms("xxx").Opened Then
Forms("xxx").Controls("Label1").TExt = CurrentTable.Name
End if