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ファイルの先頭シートを読み込み番号が一致するデータの配送日を本日日付で消し込む処理

ファイル選択ダイアログを開いて、選択したExcelファイルの先頭シートを読み込み、番号が一致するデータの配送日を本日日付で消し込む処理(楽天販売DB.mdb) ダイアログを表示する際には、事前にMic …

no image

Accessでフォームフィルタの結果をExcelにエクスポートする

ちょっと、苦労した。 Private Sub cmdDMデータ作成_Click() On Error GoTo Err_cmdDMデータ作成_Click Dim rstf As String Dim …

no image

フォーム テンプレート

Accessのフォームを作るときに、「フォーム テンプレート」を使う方法があること、知っている人は多いのかな? 既存のフォームにあるテキストボックスの色やサイズなどの設定(プロパティ)を引き継いで、新 …

no image

Accessでレコードコピー(オートナンバー除く)の決定版のコード!

Accessで、レコードのオートナンバーを除くフィールドを1行、複製(コピー)したくって、Google検索したのだけどなかなか出てこず、しかしやっと見つけた、黄金のソース・・・・。 [VBA] ADO …