So-net無料ブログ作成

アクセス小僧:暴走 [コンピューター]

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

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

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

Access_stop.jpg

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

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

Access_error.jpg

アクセスって、ムズい[猫]

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

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


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

Guns N Roses - Right next door the hell


地獄行き?
ヤバイぜ!(16)  コメント(1) 
共通テーマ:パソコン・インターネット

ヤバイぜ! 16

コメント 1

cheese999

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

コメントを書く

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

Facebook コメント