Microsoft Access 掲示板

Microsoft Access 掲示板

サブフォームから選択したデータをフォームに表示 / 1

8 コメント
views
4 フォロー
1
hatena 2022/08/16 (火) 17:43:29

メインフォームは連結ですか、非連結ですか。

非連結の場合、現状のメインフォームのコードを提示してもらえますか。
サブフォームにもコードがあるなら、それも提示してください。

通報 ...
  • 2
    まき 2022/08/17 (水) 10:01:14 e57da@3434b >> 1

    たびたびお世話になっています。

    メインフォームは非連結です。
    画像1
    このような感じです。
    コードは、

    Option Compare Database

    Private Sub btn_クリア_Click()
        Me!cmb_分類 = ""
        Me!txb_コード = ""
        Me!txb_品名 = ""
        Me!cmb_単位 = ""
        Me!txb_巾 = ""
        Me!txb_長さ = ""
        Me!txb_登録日 = ""
        Me!txb_更新日 = ""
        Me!txb_単価 = ""
        Me!txb_改訂前単価 = ""

    End Sub

    Private Sub btn_登録_Click()
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "Q_追加T_原材料テーブル"
        DoCmd.SetWarnings True

        Me!cmb_分類 = Null
        Me!txb_コード = Null
        Me!txb_品名 = Null
        Me!cmb_単位 = Null
        Me!txb_巾 = Null
        Me!txb_長さ = Null
        Me!txb_登録日 = Null
        Me!txb_更新日 = Null
        Me!txb_単価 = Null
        Me!txb_改訂前単価 = Null
        DoCmd.GoToControl "cmb_分類"
        Me.sub_原材料.Form.Requery
    End Sub

    Private Sub btn_閉じる_Click()
        DoCmd.Close acForm, Me.Name
    End Sub

    Private Sub Form_AfterUpdate()

    End Sub

    Private Sub Form_Open(Cancel As Integer)
        DoCmd.SelectObject acForm, Me.Name
        DoCmd.MoveSize , , 13000, 9200

    End Sub

    このようになっているのですが、これで大丈夫でしょうか。
    よろしくお願いします。