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

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

の変更を、別のデータベースに適用したところ、 Form_Current（ページ移動）イベントの最後で、履歴の先頭に飛ぶために、フォームの履歴Goボタンをクリックしたときの処理があるのですが、履歴のコンボボックスを選び直している１行があるのですが、何で入っているのかが分からず、エラーになるので、外してしまいました。下記の赤字部分です。

Private Sub 氏名ID履歴Go_Click()
  '【変数】
  Dim CR_氏名IDt As Long ' 履歴上のID
  Dim AbsPos1 As Long 'レコード番号
  Dim Ans1 As Long ' 答え
  Dim Str1 As String ' 文字列
  Dim ListIndex1 As Long ' List Index
  '【実行コード】
  Debug.Print "--- 氏名ID履歴Go_Click(Start) ---"
  ListIndex1 = [Col_氏名ID履歴].ListIndex
  If ListIndex1 = -1 Then
    Ans1 = MsgBox("Col_氏名ID履歴が選択されていません。", vbCritical, "エラー")
    Exit Sub
  End If
  Str1 = "T氏名ID_ID = " & CStr(ListIndex1 + 1)
  CR_氏名IDt = DLookup("CR_氏名ID", "T_氏名ID", Str1)
  AbsPos1 = IDtoAbsPos1("T_氏名住所", "氏名ID", CR_氏名IDt)
  Debug.Print "[Col_氏名ID履歴].ListIndex=" & ListIndex1 & "[氏名ID履歴Go_Click]"
  Debug.Print "CR_氏名IDt=" & CR_氏名IDt & "[氏名ID履歴Go_Click]"
  Debug.Print "AbsPos1=" & AbsPos1 & "[氏名ID履歴Go_Click]"
  Me.AllowAdditions = True '追加の許可
  Me.FilterOn = False ' フィルタ解除
  If AbsPos1 <> -1 Then
    [チェック_氏名ID履歴] = True
    DoCmd.GoToRecord acDataForm, "F_氏名住所登録", acGoTo, AbsPos1 + 1
    Debug.Print "[氏名ID]=" & [氏名ID] & "[氏名ID履歴Go_Click]"
    [Col_氏名ID履歴].SetFocus
    ' [Col_氏名ID履歴].ListIndex = ListIndex1
    [チェック_氏名ID履歴] = False
  End If
  Debug.Print "--- 氏名ID履歴Go_Click(End) ---"
End Sub

後日のために、コメントはしっかり残さないと分からなくなる？

あいみょん - 君はロックを聴かない


Oasis - Rock 'N' Roll Star


今、ロックなんて、死語なんだろうな。。

タグ：君はロックを聴かない oasis あいみょん Rock 'N' Roll Star VBA アクセス 履歴

コメント 1

ヤバイぜ！　ありがとうございます(^_0)ノ
by cheese999 (2019-03-06 08:22)