0
================================== EDITからComboListプログラムを塗りつぶし=私は次のようにして固定して=================================アクセス2007 - DBテーブル
私はいくつかのエラーが発生しました:
Me.ADComponentNumber.RowSource = "SELECT [Components].[ID], [Components].[ComponentNumber] FROM Components WHERE [Components].[Items_Id] = " + Me.ADItemNumber.Column(0) + " ORDER BY [Components].[ComponentNumber]"
========================================= ================================
私は、DBテーブルからプログラム的にコンボリストを埋めるために望んでいました。私は、値集合ソースアップの設定のようないくつかのことを試してみたが、それは動作しません。以下のコードを参照してください:
// Basically when a user selects an item form `Item Number` combo list
// The `ADItemNumber_Change()` function is supposed to get the `Item.ID` (Column(0)) number
// and feed it to the `ADComponentNumber.RowSource`, which is then supposed to
// fill the list with Components whose `Components.Item_ID` fields matches `Item.ID` number.
// NOTHING IS GETTING FILLED OUT IN THE LIST...
Private Sub ADItemNumber_Change()
Me.ADComponentNumber.RowSource = vbNullString
Me.ADComponentNumber.RowSourceType = "Table/Query"
Me.ADComponentNumber.RowSource = "SELECT [Components].[ID], [Components].[ComponentsNumber] FROM Components WHERE [Components].[Items_Id] = Me.ADItemNumber.Column(0) ORDER BY [Components].[ComponentNumber]"
Me.Refresh
End Sub
私はそれが動作するように何かを失っていると確信しています。
ありがとう、