アクセス小僧：履歴を残す(11)

最近、『履歴を残す』シリーズを展開していますが、コードがスパゲッティ化していまして、作った本人の手にも負えなくなっています。とほほ。

アクセス小僧：履歴を残す(6)　
https://cheese999.blog.so-net.ne.jp/2019-03-02

で、

変更６：Form_Currentイベントのマクロの最後で、履歴の先頭レコードへ飛ぶ処理を追加。

という変更をしましたが、この処理が原因で、先頭レコードに飛ぶボタンを押すと、

「レコードセットの最後のレコードよりも後に移動することはできません。」

が出ています。

マクロ４：レコード移動イベント

Private Sub Form_Current()
  '【イベント】レコード移動
（中略）
' 履歴の先頭レコードへ（変更６）
  [コンボ_ID履歴].SetFocus
  [コンボ_ID履歴].ListIndex = 0
  'Call コマンド_ID履歴Go_Click <= コメント化
  Debug.Print "--- Form_Current(end) ---"
End Sub

とりあえず、履歴の先頭レコードに飛ぶ処理を止めています。

Human Being · Guns N' Roses

タグ："The Spaghetti Incident?" Guns N' Roses Human Being スパゲティプログラム VBA アクセス

コメント 1

ヤバイぜ！　ありがとうございます(^_0)ノ
by cheese999 (2019-05-14 05:51)