Office中国论坛/Access中国论坛

标题: 数据表窗体如何判断字段全为空? [打印本页]
作者: njy6000    时间: 2009-3-5 20:31
标题: 数据表窗体如何判断字段全为空?
本帖最后由 njy6000 于 2009-3-8 13:34 编辑

如题,请问在数据表窗体中,如何判断某字段的值全为空,如何写代码?
因为每个字段都有空的记录,而是判断字段值全是空.谢谢!!!!

后补的例子,请老师们帮忙!!!!
作者: Henry D. Sy    时间: 2009-3-5 22:03
循环判断
作者: njy6000    时间: 2009-3-6 20:44
不懂呀,能不能给个例子看看!,先谢了.
作者: Henry D. Sy    时间: 2009-3-7 07:31
例子您来传
作者: njy6000    时间: 2009-3-8 13:37
例子放在上面主题帖子了,请老师指点!
作者: Henry D. Sy    时间: 2009-3-8 19:47
你的例子说明什么问题？
作者: njy6000    时间: 2009-3-8 22:18
查询数据组合,内容比较繁杂,主要达到在查询中或数据表窗体中隐藏没有数据的字段.
作者: njy6000    时间: 2009-3-10 09:09
希望有心者给予支持
作者: Henry D. Sy    时间: 2009-3-11 06:55
  1. Private Sub Form_Load()
  2.     Dim rs As DAO.Recordset
  3.     Dim i As Integer, intNull As Integer
  4.     Dim intCount As Integer
  5.     Set rs = Me.RecordsetClone
  6.     With rs
  7.         .MoveLast
  8.         intCount = .RecordCount
  9.         For i = 0 To .Fields.Count - 1
  10.             Do While Not .BOF
  11.                 If .Fields(i).Type = 4 Then
  12.                     If IsNull(.Fields(i)) Then
  13.                         intNull = intNull + 1
  14.                     End If
  15.                 End If
  16.                 .MovePrevious
  17.             Loop
  18.             If intNull = intCount Then
  19.                 Me.Controls(.Fields(i).Name).ColumnHidden = True
  20.             End If
  21.             .MoveLast
  22.             intNull = 0
  23.         Next
  24.         .Close
  25.     End With
  26.     Set rs = Nothing
  27. End Sub
复制代码
作者: njy6000    时间: 2009-3-13 03:07
万分感谢,很好用.好象还得加一句:
Else
     Me.Controls(.Fields(i).Name).ColumnHidden = False
作者: njy6000    时间: 2009-3-16 00:57
If .Fields(i).Type = 4 Then
请问红数字是什么意思?
作者: Henry D. Sy    时间: 2009-3-16 08:01
dao记录集字段的数据类型
作者: njy6000    时间: 2009-4-15 21:06
请问记录集字段的数据类型为"双精度型",应该等于几?
作者: Henry D. Sy    时间: 2009-4-15 22:47
7
作者: njy6000    时间: 2009-4-15 23:47
谢谢.



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3