hym********

2022/1/5 23:15

22回答

ACCESS初心者です。 よろしくお願いいたします。

ACCESS初心者です。 よろしくお願いいたします。 帳票フォーム（「F_受注一覧」）のレコードに マクロを割り当てたボタンを付け、 そのボタンをクリックすることで、 それぞれの単票フォーム（「F_受注登録」）が 表示されるようにしています。 ボタンをクリックし、 単票フォーム（「F_受注登録」）を開いたとき 画面下には「フィルター適用」と表示され、 レコードは「1/1」となっています。 ここでフィルターを解除すると、 レコードの先頭に移動してしまいます。 先頭に移動させずに、 開いた単票フォーム（「F_受注登録」）の前後のレコードに 移動することは可能でしょうか？ ご教授いただけると幸いです。 どうぞよろしくお願いいたします。

Microsoft Access・256閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0
glo********

カテゴリマスター

2022/1/6 8:43

その質問はマクロでは実現できないでしょう。 VBAです。 フォームの「レコード移動時」「フィルター実行時」を [イベント プロシージャ] にして、フォームのVBAコードは下記の通りにするとイイかもしれません。 Option Compare Database Option Explicit Dim ff As Boolean ' ←これを忘れないこと Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer) If ApplyType = 0 Then ff = True End Sub Private Sub Form_Current() If ff = True Then ff = False DoCmd.SearchForRecord , , , Me.Filter End If End Sub

glo********

2022/1/6 9:07

見逃してた点の補正 ＞開いた単票フォーム（「F_受注登録」）の前後のレコードに 移動することは可能でしょうか？ 「前後」という2択はどうするつもりのかな？ とりあえず、DoCmd.SearchForRecord 行の次行に 前なら On Error Resume Next DoCmd.GoToRecord , , acPrevious 後なら On Error Resume Next DoCmd.GoToRecord , , acNext を付け足します。

その他の回答（1件）

0
m3_maki0

2022/1/9 9:07

横から失礼します。 > マクロを割り当てたボタンを付け、 ウィザードで「組み込みマクロ」を作った、ということでしょうか。 Where条件で、特定のレコードのみを表示している？ だとしたら、 Where条件なしでフォーム開き、 「オブジェクトからレコードの検索」アクションで目的のレコードに移動するだけで、目的は達せられると思います。 「オブジェクトからレコードの検索」の Where条件は、 「フォームを開く」にあったものをコピペで OK。 例を図で。

画像