怎么实现这个功能

三水木　发表于：2011-01-09 13:20:33 　

当文本框"药名"中有输入时，打开窗体“fm_jhzycx”。

现在的问题是：我用退格键（backspace）将文本框"药名"的内容删除后，还会打开窗体“fm_jhzycx”

我的代码如下：

Private Sub 药名_KeyUp(KeyCode As Integer, Shift As Integer)

If Not IsNull(Me.药名.Text) Then
DoCmd.OpenForm "fm_jhzycx"
End If
Debug.Print Me.药名.Text
End Sub

我想实现，文本框有输入时，打开窗体“fm_jhzycx”。删除文本框的内容，不打开窗体“fm_jhzycx”。

请老师指点！

潘哥发表于：2011-01-09 15:22:25

当文本框"药名"中有输入时，打开窗体“fm_jhzycx”。

现在的问题是：我用退格键（backspace）将文本框"药名"的内容删除后，还会打开窗体“fm_jhzycx”

我的代码如下：

Private Sub 药名_AfterUpdate(KeyCode As Integer, Shift As Integer)

If Not IsNull(Me.药名.Text) Then
DoCmd.OpenForm "fm_jhzycx"
End If
Debug.Print Me.药名.Text
End Sub

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

Access交流中心