| |
［本文なし］
WIN98・Access2000で下記のコードで何の問題なく使用していましたが、OS XP・Access2000のマシーンだと反応なしになり、強制終了しなければなりません。コードになにか原因があるのでしょうか？
しかも、オプション設定でエラーがでているのか、Deleteでエラーがでているのかいまいちわかりません。何が原因なのかお教えして頂けたら幸いです。
Option Compare Database
Dim strBuftekiyo As String
Private Option_CHK As Boolean
Private Sub Form_Delete(Cancel As Integer)
If MsgBox("削除？", 305, AppName) = vbOK Then
If GetOption("Confirm Record Changes") = 0 Then
'[オプション]の「レコードの変更」の現在の値をチェックします。
SetOption "Confirm Record Changes", -1
'一時的にチェックします。
Option_CHK = True
End If
Else
Cancel = True
End If
End Sub
ちなみにメッセージBOXは表示されません。助けてください。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
