SSブログ

アクセス小僧:履歴を残す(9)

どうも、今回の変更による悪影響は、

ジョージが作ったデータベース全てに発生しているようで、あ~頭がいたいです。
今回の変更を戻した、というか、さらなる変更をしました。

変更点:DoCmd.GoToRecord acDataFormによる、履歴にあるレコードへの移動をやめ、Me.Recordset.FindFirstによる移動に戻しました。

Private Sub PW_Mng_ID履歴Go_Click()
  '【変数】
  Dim Ans1 As Long ' 答え
  Dim PW_Mng_IDt As Long ' 履歴上のID
  Dim AbsPos1 As Long 'レコード番号
  Dim Str1 As String ' 文字列
  '【実行コード】
  Debug.Print "--- PW_Mng_ID履歴Go_Click(Start) ---"
  [チェック_ID履歴] = True
  Debug.Print "[チェック_ID履歴]=" & [チェック_ID履歴] & "[PW_Mng_ID履歴Go_Click]"
  Debug.Print "[PW_Mng_ID履歴].ListIndex=" & [PW_Mng_ID履歴].ListIndex & "[PW_Mng_ID履歴Go_Click]"
  If [PW_Mng_ID履歴].ListIndex = -1 Then
    Ans1 = MsgBox("PW_Mng_ID履歴が選択されていません。", vbCritical, "エラー")
    Debug.Print "--- PW_Mng_ID履歴Go_Click(Exit) ---"
    Exit Sub
  End If
  Str1 = "T_PM_ID = " & CStr([PW_Mng_ID履歴].ListIndex + 1)
  PW_Mng_IDt = DLookup("PW_Mng_ID1", "T_PWMngID", Str1)
  Debug.Print "PW_Mng_IDt=" & PW_Mng_IDt & "[PW_Mng_ID履歴Go_Click]"
  ' AbsPos1 = IDtoAbsPos1("T_パスワード管理", "PW_Mng_ID", PW_Mng_IDt)
  ' Debug.Print "AbsPos1=" & AbsPos1 & "[PW_Mng_ID履歴Go_Click]"
  Me.AllowAdditions = True '追加の許可
  Me.FilterOn = False ' フィルタ解除
  ' If AbsPos1 <> -1 Then
  ' [チェック_ID履歴] = True
  ' DoCmd.GoToRecord acDataForm, "パスワード入力", acGoTo, AbsPos1 + 1
  ' [チェック_ID履歴] = False
  ' End If
  If [PW_Mng_ID] = PW_Mng_IDt Then
    [チェック_ID履歴] = False
    Debug.Print "[チェック_ID履歴]=" & [チェック_ID履歴] & "[PW_Mng_ID履歴Go_Click]"
    Debug.Print "--- PW_Mng_ID履歴Go_Click(Exit) ---"
    Exit Sub
  End If
  With Me.Recordset
    .FindFirst "PW_Mng_ID = " & PW_Mng_IDt
    Debug.Print "Me.Recordset.NoMatch=" & .NoMatch & "[PW_Mng_ID履歴Go_Click]"
    If .NoMatch Then
      Ans1 = MsgBox("PW_Mng_ID = " & PW_Mng_IDt & "が見つかりません。[PW_Mng_ID履歴Go_Click]", vbCritical, "エラー")
      [チェック_ID履歴] = False
      Debug.Print "[チェック_ID履歴]=" & [チェック_ID履歴] & "[PW_Mng_ID履歴Go_Click]"
    End If
  End With
  Debug.Print "[PW_Mng_ID]=" & [PW_Mng_ID] & "[PW_Mng_ID履歴Go_Click]"
  Debug.Print "--- PW_Mng_ID履歴Go_Click(End) ---"
End Sub
ヤバイぜ!(13)  コメント(1) 
共通テーマ:日記・雑感

ヤバイぜ! 13

コメント 1

cheese999

ヤバイぜ! ありがとうございます(^_0)ノ
by cheese999 (2019-03-14 23:35) 

コメントを書く

お名前:[必須]
URL:
コメント:
画像認証:
下の画像に表示されている文字(英大文字の「オー」、英小文字の「ユー」、アラビア数字の「ハチ」、アラビア数字の「イチ」、アラビア数字の「ニ」)を入力してください。

Facebook コメント

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。