サブフォームの並べ替えをしたい

質問

どうしても出来ないのでお知恵をお貸しください。

【１】「オートフォーム：データーシート」で、テーブル１を紐付けて、
子フォームを作成しました。

【２】「デザインビュー」で親フォームを作り、
その子フォームをドロップアンドドラッグしてサブフォームにしました。

【３】親フォームにコマンドボタンを一つ設置しました。
（図参照）

【４】コマンドボタンのイベントプロシージャーに
Private Sub コマンド1_Click()
Forms("親").Controls("子").Controls("入金").SetFocus
DoCmd.RunCommand acCmdSortAscending '昇順並べ替え
End Sub
とコードを書きました。

そして、親フォームを開き、コマンドボタンを押すと、

実行時エラー2046
「コマンドアクション"昇順で並べ替え" は無効です」
となってしまいます。

しかし、図のように
子フォームのデータシート上のどれかの値にフォーカスがある状態で
標準モジュールに書き写した
Sub test1()
Forms("親").Controls("子").Controls("取引日").SetFocus
DoCmd.RunCommand acCmdSortAscending '昇順並べ替え
End Sub
を実行すると
問題なく並び替えがされます。

RunCommand を使わなくてもいいので
「コマンドボタンを押したら、サブフォームの並び替えをする」には
どうすればいいのでしょうか。

ご教授よろしくお願い致します。（アクセス2003）

回答No.1

kmetu · ベストアンサー

Forms("親").Controls("子").Controls("入金").SetFocus
Forms("親").Controls("子").SetFocus
DoCmd.RunCommand acCmdSortAscending '昇順並べ替え

にしてください。

お礼

すばらしい！できました。有難うございました。