| |
>これを、テキストボックスに、野菜か、果物を入れるようにして、
>コンボボックスリストに、野菜がはいったら、クエリ1を表示させ、
>コンボボックスリストに、果物がはいったら、クエリ2を表示させようと思うのです。
>(コンボボックスは同じ所です。)
>
>以上、よろしくおねがいいたします。
コンボボックスに直接指定する方法はわかりませんでしたので、
ＶＢＡでの対象方法です。
--------------------------------------------------------------------------
Private Sub cmb_種類_Click()
Dim CN As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
Dim WK As String
Set CN = CurrentProject.Connection
If IsNull(Me!cmb_種類) Or Me!cmb_種類 = vbNullString Then
Exit Sub
End If
SQL = "SELECT 食べ物.名称 FROM 食べ物 WHERE (((食べ物.種類)='" & Me!cmb_種類 & "'));"
rs.Open SQL, CN, adOpenKeyset, adLockReadOnly
If rs.EOF Then
Exit Sub
End If
WK = ""
rs.MoveFirst
Do While Not rs.EOF
WK = WK & rs.Fields(0)
rs.MoveNext
If Not rs.EOF Then
WK = WK & ","
End If
Loop
Me!cmb_名称.RowSource = WK
Me.Repaint
rs.Close: Set rs = Nothing
CN.Close: Set CN = Nothing
End Sub
--------------------------------------------------------------------------
野菜か果物を選択するコンボボックスで、
クリック時のイベント プロシージャを
指定して上記のソースを記述します。
あとは、選択した野菜か果物の種類が自動で選択されます。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
