Ｐａｇｅ 478 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コンボボックスのリストへの追加の件 B-BOSS 04/1/11(日) 13:29 ┗Re:コンボボックスのリストへの追加の件 かみちゃん 04/1/11(日) 16:44 ─────────────────────────────────────── ■題名 ： コンボボックスのリストへの追加の件 ■名前 ： B-BOSS ■日付 ： 04/1/11(日) 13:29 -------------------------------------------------------------------------
| コンボボックスにデーターを入力する際、リストに無いデーターを入力した場合 自動的にリストに追加される様にしたくて下記の様なコードを書きました。 でもやはり 「指定した項目はリストにありません。」と表示されて入力できません。 どうしてでしょう？ Private Sub 顧客名_NotInList(NewData As String, Response As Integer) Response = acDataErrAdded 顧客名.RowSource = 顧客名.RowSource & ";" & NewData End Suｂ |
| こんにちは。かみちゃんです。 確認ですが、 コンボボックスのプロパティ「値集合タイプ」は「値リスト」、「入力チェック」は「はい」にしていますか？ 参考ＵＲＬを紹介しておきます。 http://www.f3.dion.ne.jp/~element/msaccess/AcTipsFrmHowToInputWhenNotInList.html >コンボボックスにデーターを入力する際、リストに無いデーターを入力した場合 >自動的にリストに追加される様にしたくて下記の様なコードを書きました。 > >でもやはり > 「指定した項目はリストにありません。」と表示されて入力できません。 >どうしてでしょう？ > > Private Sub 顧客名_NotInList(NewData As String, Response As Integer) > Response = acDataErrAdded > 顧客名.RowSource = 顧客名.RowSource & ";" & NewData > End Suｂ |