大概这样吧
AfterOpenProject事件
If DataTables("表B").Compute("Count(姓名)","姓名 = '" & User.Name & "'") > 0 Then Forms("窗口1").OpenEnd If