| 投稿日 | ： 2003/01/18(Sat) 00:02 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^12: こんボックスで指定したものを別フォームへ表示 |
> > SelText = Mid$(B1.Text,5,Len(B1.Text)-4)
> に直したところ、１回目に実行するとエラー表示はでなくなりましたが、
> 今度は選択したもの以外も全部表示されてしまうようになりました。
う〜ん。ここに、「ファンクション9」キーでブレークポイントをおいて、
SelTextの中身と、発行されるMySQLの中身を確認していただけませんか？
もしくは、Like節ではなく、"Where 区域名 ='" & Seltext & "'"
で、実行して結果がどうなるかを見てほしいのですが。
> > SelText = Mid$(B1.Text,5,Len(B1.Text)-4)
> プロシージャの呼び出し、または引数が不正です。
この部分は、コンボボックスへ読み込んだ際に、フィールドの頭に
番号をつけましたね。
> B1.AddItem Format$(i,"000 ") & .Fields(0) 'この部分で。
だから、付けた空白を除去しているのですが、
MID$(指定文字列,抜き取りを開始する位置,抜き取る文字の長さ)
という指定の中で、おそらくTextが空だから発生していますね。
Comboのstyleはドロップダウンにしておいて、クリアしたりせずにおくと
大丈夫のはずです。