MSアクセス、VBAでのクエリの書き込み、テキストボックスに結果を表示

Question

私はこの問題を解決しました。

このクエリをAccess VBAに書きたいと思います。このクエリを実行すると、私のフォームのテキストフィールドに結果が表示されます。 私のフォームに私は "結果"名前のテキストボックスを持っています だから私は "結果"名前です私のテキストボックスに表示するこのクエリを実行するが、私はVBAでこれを記述したい。どうやってするか？

SELECT ORDINACIJA.Exam, Count(*) AS total 
FROM ORDINACIJA 
WHERE ORDINACIJA.Exam='EHO ABDOMENA' AND ORDINACIJA.month='JANUARY' 
GROUP BY ORDINACIJA.Exam; 

Answer 1

これにはSQLは必要ありません。

Dim lngCount As Long 

lngCount = DCount("Exam", _ 
        "ORDINACIJA", _ 
        "ORDINACIJA.Exam='EHO ABDOMENA' AND ORDINACIJA.month='JANUARY'") 

Result.Text = lngCount 

しかし、よりよい解決策は、以下のテキストボックスの「コントロールソース」プロパティを設定することです：

=DCount("Exam", "ORDINACIJA", "ORDINACIJA.Exam='EHO ABDOMENA' AND ORDINACIJA.month='JANUARY'") 

そのように、テキストボックスの値VBAでは、あなたはDCount機能を使用することができます値を更新する必要があるたびに（テーブルのデータが変更された場合など）だけVBAで次のコマンドを実行し、さらにフォームを開くときに正しいこと、およびます：

Result.Requery 

Answer 2

あなたは、文字列変数に、彼のクエリを割り当て、その後、そのように、クエリを実行するためにCurrentDB.OpenRecordsetを使用することができます：VBAでSQLクエリを書いて実行すると合理的にシンプルですが

sub DoMyQuery() 
dim S as String 
dim R as recordset 
    S = "SELECT ORDINACIJA.Exam, Count(*) AS total "& _ 
     "FROM ORDINACIJA "& _ 
     "WHERE ORDINACIJA.Exam='EHO ABDOMENA' AND ORDINACIJA.month='JANUARY' "& _ 
     "GROUP BY ORDINACIJA.Exam;" 
    Set R = CurrentDB.OpenRecordset(S) 
    ' do what ever needs to be done with data returned here 
    R.close 
end Sub