| |
▼ハジメさん、レモン さん：
こんにちは。
ツリーの一番下にレスしますね。
> dim Sql as string
> dim DB as database
> dim RS as recordset
>
> set DB = curentDb
>
> Sql = "select * from T_TOKMAS where TOKCD = " & me!TOKCD
>
> set RS = DB.OpenRecordset(Sql)
> if RS.Recordcount=0 then
> ・・・・
> else
> ・・・
> end if
どこでどの様なエラーが出ているのかが明記されておりませんので
まずはエラー内容やエラー箇所を提示してみて下さい。
ご提示されたコードだけですと
基本的にはテーブルでもクエリでも変わりなく実行できる模様ですが、
以下いくつか気づいた点を…。
> dim Sql as string
MSの技術情報よりです
Access 2002 と Access 2003 の予約語の一覧
http://support.microsoft.com/default.aspx?scid=kb;ja;286335
SQLという変数は予約語の為、早い段階での変更をお勧めします。
> if RS.Recordcount=0 then
ヘルプの Recordcountプロパティに詳細な解説がありますが、
この記述ですと正しいレコード数を返さない場合がありますよ。
> ・・・・
この部分で行っている処理によっては、
テーブルなら許可される事がクエリだと問題になる事もあります。
|
|
小僧
- 06/7/18(火) 14:30 -
