有关VBA

FK　发表于：2009-08-04 15:18:24 　

各位老师好，在附件中的窗体中，当我在状态中选择“暂缓”时，一定要在“备注”中输入原因，否则不能在其他字段中继续输入。该怎么做啊？谢谢大家。

PS：当在状态中选择其它状态时，可以不输入东西也可以输入东西。

蟹仔发表于：2009-08-04 18:44:18

Private Sub 状态_LostFocus()
If Me.状态 = "暂缓" Then
Me.暂缓原因.SetFocus
End If

Private Sub 暂缓原因_LostFocus()
If Me.状态 = "暂缓" And Nz(Me.暂缓原因) = "" Then
MsgBox "备注不能为空"
Me.状态.SetFocus
Me.暂缓原因.SetFocus
End If
End Sub

End Sub
看看这样行不行？

总记录：1篇页次：1/1 9 1 :

Access交流中心