Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1102 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8783】requeryでスクロール smith 06/11/8(水) 12:08 質問[未読]
【8784】Re:requeryでスクロール 小僧 06/11/8(水) 13:15 回答[未読]
【8785】Re:requeryでスクロール smith 06/11/8(水) 15:51 お礼[未読]
【8783】requeryでスクロール
質問  smith E-MAIL  - 06/11/8(水) 12:08 -
引用なし
パスワード
   Accessについて質問します。
表形式のフォームにおいて、あるフィールドに選択用のチェック欄があり、
チェックを複数して選択したものについてボタンを押すと帳票出力などのイベントを起こします。
その際、ボタンを押すイベントにrequeryを入れて選択を確定させるのですがデータが多いと表のスクロールが最上に戻ってしまいます。
requeryしても選択した行のままの画面でとまるように出来ますでしょうか。
よろしくお願いします。
【8784】Re:requeryでスクロール
回答  小僧  - 06/11/8(水) 13:15 -
引用なし
パスワード
   ▼smith さん：
こんにちは。

>requeryしても選択した行のままの画面でとまるように出来ますでしょうか。

画面的には多少のずれが出てしまいますが、
指定したレコードまでは飛ばせそうですね。

Private Sub チェックボックス名_AfterUpdate()
Dim i As Long
　　i = Me.Recordset.AbsolutePosition
　　Me.Requery
　　DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, i + 1
End Sub


>その際、ボタンを押すイベントにrequeryを入れて選択を確定させるのですが

Requeryをさせる必要があるのかが解りませんが、
レコードの保存という事でしたら

DoCmd.RunCommand acCmdSaveRecord

という命令で行う事が可能ですね。
【8785】Re:requeryでスクロール
お礼  smith E-MAIL  - 06/11/8(水) 15:51 -
引用なし
パスワード
   ▼小僧 さん：
>Requeryをさせる必要があるのかが解りませんが、
>レコードの保存という事でしたら
>
>DoCmd.RunCommand acCmdSaveRecord
>
>という命令で行う事が可能ですね。

この命令はシンプルですが知りませんでした。
ありがとうございます。

これのおかげで、その上に書いていただいたコードを用いなくても
よくなりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1102 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078218
(SS)C-BOARD v3.8 is Free