ms-access - Access 2003: コマンド ボタン クエリの結果をフォームのテキスト ボックスに表示できない

Question

「GenderCount」というクエリに関連付けられたコマンド ボタンがあります。ボタンをクリックすると、サブテーブルに結果が表示されます。結果をフォーム (Text26) のテキスト ボックスに表示する必要があります。ここに私のコードがあります - 提案を事前に感謝します:

Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

    Dim stDocName As String

    stDocName = "GenderCount"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command21_Click:
    Exit Sub

Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click

End Sub

Answer 1

これはあなたが必要なものです

Private Sub Command21_Click()
On Error GoTo Err_Command21_Click

    me.txtField1 = dlookup("CountOfGender","GenderCount","Gender = M")
    me.txtField1 = dlookup("CountOfGender","GenderCount","Gender = F")

Exit_Command21_Click:
    Exit Sub

Err_Command21_Click:
    MsgBox Err.Description
    Resume Exit_Command21_Click

End Sub