Microsoft Access 掲示板

Microsoft Access 掲示板

メインフォームの値によりサブフォームに値を入れたい

3 コメント
views
4 フォロー

T_従業員
Id
部署名
氏名

T_鍵登録
Id
氏名
部屋1
部屋2
部屋3
部屋・・・

M_鍵マスター
Id
部署名
部屋1
部屋2
部屋3
部屋・・・

メインフォームT_従業員
サブフォームT_鍵登録
部屋のフィールドにはセキュリティレベルを設定します。

サブフォームに設置したコピーボタンを押下すると、メインフォームの部署名とM_鍵マスターの部署名が一致している各部屋の設定をサブフォームに転記したい。
転記後に部屋の設定値は変更することもあり。
ボタン押下後のコードをどのように書けばよいかわからず悩んでいます。

S
作成: 2021/04/13 (火) 20:58:08
通報 ...
1
hiroton 2021/04/14 (水) 09:04:18 fd355@f966d

サブフォームのレコードの内容を変更する
かつ
M_鍵マスターの情報はメインフォームにもサブフォームにもない

なので、クエリで修正すればいいですね。ただし、サブフォームのレコードの状態が新規レコードの場合と既存レコードの場合の2通りが考えられるので、状態をチェックして追加クエリか更新クエリか、どちらを実行するか条件分岐が必要でしょう

Private Sub ボタン_Click()
    If Me.NewRecord Then
        CurrentDb.QueryDefs("追加クエリ").Execute
        me.Requery
    Else
        CurrentDb.QueryDefs("更新クエリ").Execute
        me.Refresh
    End If
End Sub
3
S 2021/04/14 (水) 09:42:41 5cf55@59d75 >> 1

アドバイスありがとうございます。
試してみます

恥ずかしながら、queryについてよく把握できていません。
調べてみます。

2
S 2021/04/14 (水) 09:35:23 5cf55@59d75

アドバイスありがとうございます。
試してみます