アクセス小僧：暴走

次のコードを実行すると、

アクセスが暴走し、異常終了します。

Private Sub 検索フィルタ解除_Click()
  On Error GoTo ERR1
  '【変数】
  Dim myPWMngID As Long ' PW_Mng_ID
  Dim RSet1 As Recordset ' レコードセット
  '【実行コード】
  myPWMngID = [PW_Mng_ID] ' IDを退避
  Me.AllowAdditions = True '追加の許可
  Me.FilterOn = False ' フィルタ解除
  Set RSet1 = Me.Recordset
  With RSet1
    .MoveFirst ' 先頭レコードへ
    .MoveLast ' 最終レコードへ
    .MoveFirst ' 先頭レコードへ
    .FindFirst "PW_Mng_ID = " & myPWMngID ' 指定IDのレコードに移動
    If .NoMatch Then
      MsgBox "No Mactch ![検索フィルタ解除_Click]"
    End If
    .Close
  End With
  Set RSet1 = Nothing
  Exit Sub
ERR1:
  MsgBox ("エラー(検索フィルタ解除_Click)" & vbCrLf & Err.Description)
  Set RSet1 = Nothing
End Sub



原因は分かりません。で、エラーは発生するものの異常終了しないコードは次のとおりです。

Private Sub 検索フィルタ解除_Click()
  On Error GoTo ERR1
  '【変数】
  Dim myPWMngID As Long ' PW_Mng_ID
  Dim MyStr1 As String ' 文字列
  '【実行コード】
  myPWMngID = [PW_Mng_ID] ' IDを退避
  Me.AllowAdditions = True '追加の許可
  Me.FilterOn = False ' フィルタ解除
  MyStr1 = "PW_Mng_ID = " & myPWMngID
  With Me.Recordset
    .FindFirst MyStr1
  End With
  Exit Sub
ERR1:
  MsgBox ("エラー(検索フィルタ解除_Click)" & vbCrLf & Err.Description)
End Sub



アクセスって、ムズい

(PS 2017/10/3 0:18) 次の記事で紹介した競合を解消したら、こちらのエラーも出なくなりました。

アクセス小僧：競合
http://cheese999.blog.so-net.ne.jp/2017-10-02


今度の選挙、女知事（スーパー右？）か、アッペ・チンゾー君か？
どっちにしてもねえ。。

Guns N Roses - Right next door the hell


地獄行き？

タグ：競合 エラー 異常終了 VBA アクセス Right next door the hell GUNS N ROSES

コメント 1

ヤバイぜ!　ありがとうございます[__猫]
by cheese999 (2017-10-02 04:18)