请教一个按纽不执行问题

yudayong

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

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
但为什么在窗体上点击这个按纽什么都不执行啊
我用的是ＡＣＣＥＳＳ２０００
谢谢各位，麻烦给看一下．不胜感激！！！！！

一点通

If IsNull([文本框1]) Then

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

End If

tz-chf

你调试一下不就知道了。

他还要求tag="1"呢

LucasLynn

以下是引用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

谢谢,已经解决了