MSACCESS最適化後のエラーについて
MSACCESSのファイルを最適化した後に発生するエラーの対処法をお教えください
症状(あるファイルの例)
[メニュー]ツール>>データベースセキュリティー>>最適化/修復
と手順を進めて処理をした場合のみ、次のメッセージが表示されます
「実行時エラー‘5’:
プロシージャの呼び出し、または引数が不正です。」
で、このメッセージの“デバッグ”をクリックすると
'▼フォームがロードされているかをチェック
Function IsLoaded(strFrmName As String) As Boolean
Const conFormDesign = 0
Dim X As Integer
IsLoaded = False
For X = 0 To Forms.Count - 1
If Forms(X).formName = strFrmName Then
If Forms(X).CurrentView <> conFormDesign Then
IsLoaded = True
Exit Function
End If
End If
Next
End Function
の「 If Forms(X).formName = strFrmName Then」が
エラー行としてハイライト表示されます
なお、ファイルの起動処理はマクロ“autoexec”で呼び出す
Function AutoOpen()
DoCmd.RunCommand acCmdAppMaximize
DoCmd.OpenForm "FormMain"
End Function
です
また、最適化のコードを組んだ別のACCESSファイルから呼び出して
起動した場合はエラーにはなりませんが、
一度エラーが出たファイルは、エラーになるようです
DBウインドウから"FormMain"以外のフォームを起動した場合でも、
activate, open, currentのいずれか最初のイベントでエラーが出ます
ダメもとでアプリケーションの修復を試みてみましたし、
一度アンロードして、再セットアップをしてみましたが、まったく同様です
もちろん、以前はそんなことはありませんでしたし、
いつから、そのようになったのか心当たりがありません
私なりにネット等で調べてみましたが、
手がかりすら見いだせない体たらくですので
どなたか、解決方法をお教えください
関連?質問)
上記の質問に関連して、あれこれ探っていたところ
MSACCESSの新規作成の方法如何で
データベースプロパティーの表示が違うということに気が付きました
右クリックのメニュー>>新規作成>>MSACCESSアプリケーションの場合
[タイトル]Access9
[作成者]alfredh
[会社名]RAD test team - http://wtsoffweb
スタート>>すべてのプログラム>>Microsoft Accessの場合
[タイトル]db1
[作成者]MSACCESS登録時の名前
[会社名]MSACCESS登録時の会社名
となります
これはどういう違いでしょうか
最適化後に発生するエラーについての質問と関係あるでしょうか
よろしくお願いします