2012-05-09 8 views
1

"GenderCount"というクエリにコマンドボタンが関連付けられています。ボタンをクリックすると結果がサブテーブルに表示されます。フォーム上のテキストボックスに結果を表示する必要があります(テキスト26)。ここに私のコードです - 任意の提案を事前に感謝:Access 2003:フォームのテキストボックスに表示されるコマンドボタンクエリの結果を取得できません。

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 
+0

?それは価値のあるレコードですか? 「ボタンをクリックすると結果がサブテーブルに表示されます。結果が必要です」 –

+0

性別CountOfGender M 1483 F 1505 2988結果は表形式で表示されます。それをペーストしてみましたが、これはペーストされた方法です。総額は合計で – JenPhyllisB

+0

ですので、結果はテキストボックスに表示されますか?それらのすべて? 1つのテキストボックスに入れる? –

答えて

0

これ何が必要GenderCountの結果は何

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 
+0

Hmmm ...私はそれを試み、 "コンパイルエラー:メソッドまたはデータメンバーが見つかりません"というエラーメッセージで ".txtField1 ="に固執する – JenPhyllisB

+0

最初のこと私はAccess VBAを読んでおくことをお勧めします...あなたが達成しようとしていることを学ぶために、Web上には膨大な量があります。それは私が学んだ方法です!つまり、フォームに2つのテキストフィールドを追加し、txtField1とtxtField2などと呼び、名前が一致することを確認する必要があります。 –