If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").Text = Tables("表A").Compute("sum(数量)")
End If