![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Windows98 ACCESS2000を使用しています。
よく強制終了になったり、"2486 現在このアクションは実行出来ません"などのエラーが頻繁に出て困っています。
削除をした後にエラーになる事が多いので、多分これが原因なのではと思います。
顧客情報フォームというメインフォームに、支店、事業概要、賃金…などの複数のタブがあり、それぞれにサブフォームとサブフォームに対して登録ボタンと削除ボタンが貼り付けてあります。
Private Sub cmd支店削除_Click()
Dim rs As DAO.Recordset
If Me!sub支店.Form.Recordset.recordcount = 0 Then
MsgBox ("削除するレコードはありません。")
Exit Sub
End If
Set rs = Me!sub支店.Form.Recordset.Clone
rs.Bookmark = Me!sub支店.Form.Bookmark
ret = MsgBox("表示中のレコードを削除します。よろしいですか?", _
vbOKCancel + vbQuestion + vbDefaultButton2, "削除")
Select Case ret
Case vbOK
rs.Delete
Me!sub支店.Form.Requery
Case vbCancel
End Select
rs.Close: Set rs = Nothing
End Sub
Private Sub cmd支店登録_Click()
If IsNull(Me!cbo顧客.Value) Then
MsgBox "顧客名を選択して下さい。"
Exit Sub
Else
DoCmd.OpenForm "F支店登録", acNormal
End If
End Sub
という風に書いてあるのですが、たくさんサブフォームがあるのでブックマークのつけ方がおかしいのでは?と思うのですがさっぱり分かりません。よろしくお願いします。
No.2ベストアンサー
- 回答日時:
Accessのデータベースウィンドウが表示される状態で起動して
メニュー→ツール→マクロ→VisualBasic Editor
を起動させてメニューにあるデバッグのプルダウンメニューにそのデータベース名のコンパイルと表示されますのでコンパイルすれば断ち切れているイベントがメッセージと一緒に出てコンパイル出来ない記述がマーキングされます。
そのイベントが必要でなければ削除して修正が必要でなれば修正して再コンパイルしていけば不必要な記述は除いていけます。
この回答への補足
コンパイルは終了しました。
でもやはり削除を繰り返すと突然、「現在実行しているコードはリセットされます」というエラーメッセージが出て、強制終了になってしまいます。
タブの中にサブフォームが2つあったりするので、もしかするとどのレコードを削除すればいいのか判断出来ていないのでしょうか?
No.3
- 回答日時:
よくわかりませんが
>Me!sub支店.Form.Requery
もし関連するサブフォームがあるなら全てRequeryする必要があるんじゃないでしょうか。
この回答への補足
お返事ありがとうございました。
いろいろとしてみたのですが、やはり駄目でした。
強制終了になるのは、タブにサブフォームが2つ以上表示している場合になっていると思われるので、もしかしたらサブフォームのデータをクリックしないで、削除ボタンをクリックしたために、どのレコードがカレントレコードなのか判断できずにエラーになっているのでは?と思ったのですが、削除ボタンをクリックした時にどのサブフォームにフォーカスがあって、カレントレコードがどれなのか分かる方法はあるでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/07 08:37
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access サブフォームでの選択行...
-
サブフォームでのダブルクリッ...
-
Access 複数フォームを...
-
Accessのサブフォームから値を...
-
ACCSESS2013VBA フォームのレコ...
-
Access2000、これはいったい・...
-
アクセスでサブフォームのレコ...
-
Accessでのフォーム表示がうま...
-
サブフォームでフィルタしたデ...
-
access サブフォームにリストを...
-
メインフォームとサブフォーム...
-
Accessのサブフォーム上で常に...
-
サブフォームのデータを保存す...
-
アクセス2000の終了時にバック...
-
サブフォームが見えなくなる。
-
Accessで、サブフォームのある...
-
Access ウィンドウサイズの変更
-
サブフォームの切り替え方を教...
-
2回目に画面のレコードセットの...
-
強制終了になってしまいます
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
Access 複数フォームを...
-
Access2000、これはいったい・...
-
ACCSESS2013VBA フォームのレコ...
-
Access2000 サブフォームのReco...
-
(ACCESS)条件に応じて、テキ...
-
access サブフォームにリストを...
-
サブフォームが見えなくなる。
-
Accessのサブフォームから値を...
-
初心者です。accessで請求書を...
-
2回目に画面のレコードセットの...
-
サブフォームでのダブルクリッ...
-
アクセスで サブフォームの表...
-
アクセスでサブフォームのレコ...
-
googleフォームでインストール...
-
サブフォームのデータを保存す...
-
AccessのDoCmd.ApplyFilterの使...
-
サブフォームでフィルタしたデ...
-
Accessで、サブフォームのある...
-
AccessのFormのみをスクリーン...
おすすめ情報