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

AccessVBA開発

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

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

おススメのSQL本はこちら

タイトルとURLをコピーしました