Access DCount関数

こちらは、Accessで作成した、データ入力用のサンプルフォームです。DCount関数を使って、業者コードと日付ごとをひとまとまりとして、ページ番号を振っていくようにします。

DCount関数

指定したテーブルまたはクエリの特定のフィールドのレコード数をカウントします。

コードの記述

入力フォームの[業者ID]コンボボックスと、[txt日付]テキストボックスにデータを入力したあと、[txt日付]のフォーカス喪失後イベントにコードを記述します。

Private Sub txt日付_LostFocus()
Dim cJkn As String
Dim pCnt As Integer

DoCmd.RunCommand acCmdSaveRecord
cJkn = "業者ID = '" & 業者ID & "' and 日付 = #" & txt日付 & "#"
pCnt = DCount("ID", "T_main", cJkn)
If IsNull(Me.テキスト3) Then
    Me.テキスト3 = pCnt
End If

Me.sub.SetFocus
Me.sub.Form.cmd担当.SetFocus

End Sub

1. DCount関数の抽出条件を格納する変数cJknをString型で宣言します。
2. DCount関数の戻り値を格納する変数pCntをInteger型で宣言します。
3. [業者ID]と[txt日付]に入力したあと、DoCmd.RunCommand acCmdSaveRecordを使って、今入力しているレコードを保存します。
4. 抽出条件に、レコードの業者IDフィールドと日付フィールドの値がフォームの[業者ID]と[txt日付]の値と一致するレコードを指定して、変数cJknに格納します。
5. DCount関数でテーブルT_mainのIDフィールドの数を抽出条件をcJknに指定して、変数pCntに格納します。
6. Ifステートメントを使って、ページ番号を表示する[テキスト3]がNullの時、変数pCntの値を[テキスト3]に代入します。
7. 最後に、フォーカスをサブフォーム[sub]の担当入力ボタン[cmd担当]に移します。

ポイント

ここでは、業者IDと日付を指定したレコード数をDCount関数で取得して、その値をページ番号に充てています。