Ｐａｇｅ 591 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コンボボックス連係について 隠れ肥満２２ 04/4/9(金) 14:38 ┗Re:コンボボックス連係について クロ 04/4/9(金) 15:12 ─────────────────────────────────────── ■題名 ： コンボボックス連係について ■名前 ： 隠れ肥満２２ ■日付 ： 04/4/9(金) 14:38 -------------------------------------------------------------------------
| お初の初心者です！お願いします。 例） 部ﾃｰﾌﾞﾙ key 名称 01 販売促進部 02 業態開発部 03 管理部 04 企画部 課ﾃｰﾌﾞﾙ key 名称 部 101 一課 01 102 二課 01 103 三課 01 201 業態課 02 202 開発課 02 301 管理課 03 ↑ 1.Private Sub cbo部_AfterUpdate() 部ﾃｰﾌﾞﾙの“02”を選択します。←プロパティの値集合ソースで定義 2.Private Sub cbo課_AfterUpdate() ▼←押されたとき 201 業態課 202 開発課 表示させるにはどうやればよいのでしょうか？ すいませんお願いします。 WindowsXp Access2000 |
| 部ﾃｰﾌﾞﾙのkeyのデータ型がテキスト型として Private Sub cbo課_AfterUpdate() Select Case Me.cbo部 Case "01" Me.cbo課.RowSource = "SELECT 部ﾃｰﾌﾞﾙ.key, 部ﾃｰﾌﾞﾙ.名称" & _ " FROM 課ﾃｰﾌﾞﾙ" & _ " WHERE 部 ='01';" Me.cbo課.Requery Case "02" Me.cbo課.RowSource = "SELECT 部ﾃｰﾌﾞﾙ.key, 部ﾃｰﾌﾞﾙ.名称" & _ " FROM 課ﾃｰﾌﾞﾙ" & _ " WHERE 部 ='02';" Me.cbo課.Requery Case "03" Me.cbo課.RowSource = "SELECT 部ﾃｰﾌﾞﾙ.key, 部ﾃｰﾌﾞﾙ.名称" & _ " FROM 課ﾃｰﾌﾞﾙ" & _ " WHERE 部 ='03';" Me.cbo課.Requery End Select End Sub ※cbo部未選択時の処理をしてません。 ※オブジェクト名に半角カナを使わない方がいいですよ。 参考リンク http://ww3.tiki.ne.jp/~kaya/Ac_tips.html#Tips0_001 |