CurrentChanged事件
If Forms("窗口1").Opened Then If Tables("SelfInquiry").Current("询价状态")= "已公示" AndAlso Tables("SelfInquiry").Current("询价状态")<> Nothing Then Forms("窗口1").Controls("公示").Enabled = False Else Forms("窗口1").Controls("公示").Enabled = True End IfEnd If