| 投稿日 | ： 2003/01/17(Fri) 14:50 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^8: こんボックスで指定したものを別フォームへ表示 |
> 教えていただいたプログラムを参考にさせていただきましたが、
> 以下のようなエラーがでてしましました。
> ①すべてを訂正して実行した場合
> >B1.AddItem Format$(i, "000 ") & .Fields(0)
> 実行時エラー'5':
> プロシージャの呼び出し、または引数が不正です。
えーと、後述のバグがありましたので、たぶん、上記は問題なく動作するはず・・。
> ②
> >With Rs
> > .Open "SELECT 区域 FROM 関東",Cn,adOpenStatic
> > i=0
> > Do Until .EOF
> > B1.AddItem Format$(i,"000 ") & .Fields(0)
> > i=i+1
ここに、一行追加です。
.MoveNext
> > Loop
> > .Close
> >End With
レコードセット側を進めていなかったです。ごめんなさい。