A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
メインフォーム/サブフォームに分けられるようですが、
サブフォームのフォームヘッダ部分を使って、1つのフォームでやるってことは可能ですか。
削除するものを選んでから、削除ボタンをクリックする、手順になります。
1つのフォームでする場合)
サブフォーム sub_frm のフォームヘッダに、削除用ボタン btnDel を配置します。
btnDel のクリック時イベントプロシジャに以下を記述します。
Private Sub btnDel_Click()
Dim rPos As Long
If (Me.NewRecord = False) Then
rPos = Me.Recordset.AbsolutePosition
Me.Recordset.Delete
Me.Requery
Me.Recordset.AbsolutePosition = rPos
End If
End Sub
処理内容としては、
新規レコード行でなければ、
現在行を記憶し、
削除後、
レコードを再取得し、
処理していた行に移動する
というものですが、
AbsolutePosition の使い方が正しいのかは?です。
(Access2007で動いています)
メイン/サブフォームにする場合)
メインフォームに削除用ボタン btnDel を配置します。
btnDel のクリック時イベントプロシジャに以下を記述します。
Private Sub btnDel_Click()
Dim rPos As Long
If (Me.FSUB.Form.NewRecord = False) Then
rPos = Me.FSUB.Form.Recordset.AbsolutePosition
Me.FSUB.Form.Recordset.Delete
Me.FSUB.Form.Requery
Me.FSUB.Form.Recordset.AbsolutePosition = rPos
End If
End Sub
上記 FSUB は、メインフォームに配置したサブフォーム/サブレポート の名前です。
No.1
- 回答日時:
vbaでプログラムするのは あまり詳しくないので
削除クエリーを使用した方法です
↓
サブフォームのヘッダー部分へテキスト項目を設置します
[form_koomoku]と仮定
このテキストソースへは当該の選択用項目[tbl_koomoku](仮定名)
を指定します
(ここへはマウスで選択された行の値が入る)
次に削除ですが
削除クエリーを作成して
抽出条件欄へ([tbl_koomoku]の項目にて)
[Forms]![main_frm]![sub_frm].[Form]![form_koomoku]
といれます
このクエリーを開く というマクロを作成して
そのマクロをクリックで呼び出す
ただし b|10 と同じ値のレコードが複数あれば
その全部が削除されます
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- JavaScript テーブルの中のセレクトボックスの値が0のとき、非表示にしたい 3 2022/05/29 10:13
- Access(アクセス) Access2016でフォーム内にExcelの複数シートを 表示させるイメージで複数テーブルの デー 1 2022/11/25 15:30
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access 複数フォームを...
-
サブフォームが見えなくなる。
-
Accessのサブフォームから値を...
-
AccessのDoCmd.ApplyFilterの使...
-
Access2000 サブフォームのReco...
-
Access サブフォームでの選択行...
-
ACCESS サブフォーム MAX関数...
-
Accessで、一覧からクリックし...
-
【ACCESS2000】 サブフォーム...
-
Accessでサブフォームの中の並...
-
Access2000、これはいったい・...
-
(ACCESS)条件に応じて、テキ...
-
初心者です。accessで請求書を...
-
Accessで、サブフォームのある...
-
アクセス2003 - レコード追...
-
access2000のサブフォーム同士...
-
Access VBA チェックボックスで...
-
googleフォームでインストール...
-
Access 2010 分割フォームのフ...
-
レコードセットで得た結果をサ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
ACCSESS2013VBA フォームのレコ...
-
Access 複数フォームを...
-
(ACCESS)条件に応じて、テキ...
-
access サブフォームにリストを...
-
Accessのサブフォームから値を...
-
サブフォームが見えなくなる。
-
Access2000、これはいったい・...
-
サブフォームでのダブルクリッ...
-
サブフォームのデータを保存す...
-
googleフォームでインストール...
-
Accessで、一覧からクリックし...
-
ACCESSでfilterとorderbyについて
-
Access2000 サブフォームのReco...
-
レコードセットで得た結果をサ...
-
サブフォームの切り替え方を教...
-
アクセスでサブフォームのレコ...
-
AccessのFormのみをスクリーン...
-
別MDBのフォームを起動
-
Accessのコンボボックスに連動...
おすすめ情報