数据表窗体如何判断字段全为空?

njy6000

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

后补的例子,请老师们帮忙!!!!

Henry D. Sy

循环判断

njy6000

不懂呀,能不能给个例子看看!,先谢了.

Henry D. Sy

例子您来传

njy6000

例子放在上面主题帖子了,请老师指点!

Henry D. Sy

你的例子说明什么问题？

njy6000

查询数据组合,内容比较繁杂,主要达到在查询中或数据表窗体中隐藏没有数据的字段.

njy6000

希望有心者给予支持

Henry D. Sy

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

万分感谢,很好用.好象还得加一句:
Else
     Me.Controls(.Fields(i).Name).ColumnHidden = False