MS Access

Accessの再クエリーでデータが移動してしまうのを解消

投稿日:2008年8月20日 更新日:

仕事メモ。

メイン・明細フォームのときは、
http://www.sanryu.net/acc/tips/tips323.htm
を参考に、
Dim m_offset As Long ‘レコード位置記憶用
m_offset = Me.CurrentRecord
Me.Requery
DoCmd.GoToRecord , , acGoTo, m_offset
——————

メイン上のサブフォームのときは、
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmHowToRequeryAndReturn.html
を参考に、
Me![サブフォーム コントロール名].Requery

※ 「Me![サブフォーム コントロール名].Form.Requery」とコーディングしない点に注意
——————

T’sWareには、Bookmarkを使う方法あり。使わなかったけど。
http://www.tsware.jp/tips/tips_163.htm
を参考に、

Dim rst As Recordset
Dim varBookMark As Variant

Set rst = Me.Recordset
varBookMark = rst.Bookmark
Me.Requery
rst.Bookmark = varBookMark

-MS Access

執筆者:

関連記事

no image

AccessからVBAでブラウザの入力フォームに値をセットする

ExcelWebAddin でWebフォームを自動入力 – Home and Abroad CliborのマクロをPythonの正規表現を使ってフォームに値をセットする – Home and Abro …

no image

Accessのフォーム/レポートのコントロール同士をくっつけて桝目状にしたい

レポートを、Excelのような桝目の罫線にしたい。 お客からこんなニーズが多い。 やったことがある人ならわかるけど、これが、なかなか苦労する。 レポートのデザインビューで、いざ個々にコントロールをきち …

no image

Accessで DoCmd.RunSQL を CurrentDb.Executeにしたら、1秒高速化した

処理が遅いので速くして欲しいとの要望があったので、コードを調査。 DoCmd.RunSQL を CurrentDb.Execute に置き換えると非同期で実行されるとの情報を得たので、試す。 結果、6 …

もう何度もAccessの集計クエリの作成をミスって怒られている

私が悪い。反省。 自戒のメモ。 Accessの集計クエリに条件を加えたい場合、その条件をどこに書くかによって結果が全く違ってくる。 それをわかってはいるのだが・・・最大やら演算やら、細かいことを同時に …

no image

DoCmd.GoToRecordよりもMe.SaveよりもMe.Refresh

Accessで、一旦フォーム上のレコードを保存したいとき、 Me.Save とやってもレコードが保存されない。 そこで、今までは、DoCmd.GoToRecordで無理矢理レコードを移動して保存してい …