Microsoft Access /计数字

Question

如何计算Access列中的单词？ 示例我有33个单词“Rec”，20个单词是“NoRec”，我希望数字显示在两个文本框中，一个用于Rec，另一个用于NoRec。

Answer 1

我不认为你需要VBA来做到这一点，你可以使用TOTALS查询来获得你想要的理想的结果。

SELECT 
    Sum(IIF(yourColumnName = "Rec", 1, 0)) As TotalRec, 
    Sum(IIF(yourColumnName = "NoRec", 1, 0)) As TotalNonRec 
FROM 
    YourTableName 

Answer 2

访问列是访问表的列。所以你选择该表的所有行，将你想要的列放入一个字符串中并计算该字符串中的字数。假设列myColumn和表myTable：

Private Sub Test() 
Dim dbs As Database 
Dim rst1 As Recordset 
Dim s As String 

    Set dbs = CurrentDb 
    With dbs 
     ' Select all records 
     Set rst1 = .OpenRecordset("SELECT myColumn FROM myTable;", dbOpenDynaset) 
     While (Not rst1.EOF) 
      s = rst1.Fields("myColumn") 
      ' now analyse s 
      ' 
      rst1.MoveNext 
     Wend 
     rst1.Close 
    End With 
    Set dbs = Nothing 
End Sub