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

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

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本はこちら