明細フォームとコンボボックスのデータソース変更

      2022/07/29

コントロール(コンボボックス)のデータソース変更

Private Sub cmb_グループ_AfterUpdate()

   Dim str As String

   str = Me.cmb_グループ.Text

   'コントロール(コンボボックス)のデータソース変更(SQL)
   With Me.cmb_アイテム
     .SetFocus
     .RowSourceType = "Table/Query"
     .Value = ""
     .RowSource = "SELECT アイテム名1 FROM M_アイテム1 WHERE グループ名='" & str & "';"
   End With

End Sub

 

明細フォームのデータソース変更

Private Sub btn_抽出_Click()

   Dim str As String, strSQL As String

   Me.cmb_アイテム.SetFocus
   str = Me.cmb_アイテム.Text

   '明細フォームのデータソース変更(SQL)
   With Me!明細フォーム
     strSQL = "SELECT * FROM T_商品管理番号 WHERE アイテム1='" & str & "';"
     .Form.RecordSource = strSQL
     .Requery
   End With
End Sub

 - AccessVBA開発

明細フォームとコンボボックスのデータソース変更 | ちびrobo

在庫管理•販売管理•経理システム(AccessVBA、ExcelVBA)や簡単なアプリの作成もしています。同じ悩みを持つ方と情報を共有したいと思います。

Copyright© ちびrobo , 2020 All Rights Reserved.

WordPress Theme " Giraffe "