Office中国论坛/Access中国论坛

标题: 请教一个按纽不执行问题 [打印本页]

作者: yudayong 时间: 2006-5-23 18:50
标题: 请教一个按纽不执行问题
我用窗体自设计器自动生成了一个窗体，用的表里的字段有数字型,有文本型,有日期型,然后做了一个按纽，我想单击按纽后窗体所有空白框里都填上我定义好的汉字，对按纽的编程如下:

Private Sub 命令18_Click()
Dim qdf As Control, IfFind As Boolean
CurrentDb.QueryDefs.Refresh
' If RecentHires query exists, delete it.
IfFind = False

For Each qdf In Controls
      'If IsNull(qdf.Tag) = False Then
         If qdf.Tag = "1" Then qdf.Value = "< 哈哈 >"
      'End If
Next qdf
End Sub
但为什么在窗体上点击这个按纽什么都不执行啊
我用的是ＡＣＣＥＳＳ２０００
谢谢各位，麻烦给看一下．不胜感激！！！！！

作者: 一点通 时间: 2006-5-23 19:15
If IsNull([文本框1]) Then

Me.文本框1 = "<哈哈>"

End If

作者: tz-chf 时间: 2006-5-23 19:18
你调试一下不就知道了。

他还要求tag="1"呢

作者: LucasLynn 时间: 2006-5-23 21:09

以下是引用yudayong在2006-5-23 10:50:00的发言：

我用窗体自设计器自动生成了一个窗体，用的表里的字段有数字型,有文本型,有日期型,然后做了一个按纽，我想单击按纽后窗体所有空白框里都填上我定义好的汉字，对按纽的编程如下:

Private Sub 命令18_Click()
Dim qdf As Control, IfFind As Boolean
CurrentDb.QueryDefs.Refresh
' If RecentHires query exists, delete it.
IfFind = False

For Each qdf In Controls
      'If IsNull(qdf.Tag) = False Then
         If qdf.Tag = "1" Then qdf.Value = "< 哈哈 >"
      'End If
Next qdf
End Sub
但为什么在窗体上点击这个按纽什么都不执行啊
我用的是ＡＣＣＥＳＳ２０００
谢谢各位，麻烦给看一下．不胜感激！！！！！

Private Sub Command0_Click()
Dim qdf As Control

For Each qdf In Controls
      If qdf.ControlType = acTextBox Then
         If IsNull(qdf.Value) Then qdf.Value = "< 哈哈 >"
      End If
Next qdf
End Sub

PS：不需要标记Tag

作者: yudayong 时间: 2006-5-24 00:53
谢谢,已经解决了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)