Access_VBA_記述方法

質問

AccessVBAの記述方法で悩んでいます。
複数のテーブルを順読みして、レコードの更新/追加/削除のプログラムを作成していますが、順読みなので何も入っていないテーブルのレコードも読みに行ってしまいデバックとして出てしまいます。
EOFやNULLをどうにかして判断条件として記述してみましたが、やはり上手くいきませんでした。
レコードでの判断条件では無く、テーブル内にレコードが存在するかどうかという判断文と条件文の記述方法がありましたら、どうか教えて下さい。
宜しくお願い致します。

回答No.5

angband · ベストアンサー

○案１
Dim cnt
cnt = Dcount("*", "[テーブル名]")
If cnt > 0 Then
' レコードがあるテーブルになにかする
End If

とDcount関数を使えばどうでしょうか。

○案２
また複数のテーブルが同じフィールドを含むならば
ユニオンクエリで１つのテーブルにしてから扱うことも
簡単だと思います。

お礼

誠に有難うございました。
Dcount関数を使うのですねっ！！
実際にやりまして現象を確認したところ出来ました。
有難うございました。

回答No.6

keikan

On error goto nanigasi:

で、例外処理したらいかが？＾＾

お礼

早急な対応ありがとうございました。

回答No.4

noname#182251

AccessVBAは長いこと使っていないので全部忘れました(^^;
で、「判断文」ではありませんが、そもそも 「何も入っていないテーブル」を読みに行かないようにすれば良いと考えます。つまりクエリーで「当該箇所にデータがある」ものだけをより分けて、それに対して順にやりたい処理をして行けば。

回答No.3

Gin_F

If rs.EOF Then Exit Sub
とかでは？

お礼

Subプロシージャ内でExitSubを使う?・・・のかちょっと調べてみます。参考にさせて頂きます。
ありがとうございます。

回答No.2

O_cyan

レコード件数を取得するには
SQLステートメントを定義してカレントデータベースを変数に代入する。SQLステートメントを実行してレコードセットを開く。

Dim myDB As Database
Dim myRS As DAO.Recordset
Dim mySQL1 As String

mySQL1 = "SELECT COUNT(*) FROM テーブル名 ;"
Set myDB = CurrentDb
Set myRS = myDB.OpenRecordset(mySQL1, dbOpenDynaset)

これでmyRSにレコード件数がカウントされるのでmyRSを使ってレコード件数が0なら処理しない。1より大きければ処理する。
これでどうでしょう。

お礼

とても適切な説明で初心者の私でも分かる内容でした。
補足でも記載させて頂きましたが、補足のアドバイスがあればお願いします。
ありがとうございます。

補足

ご親切な回答感謝致します。
実際に試しに記述してみましたが、myRSの型が一致しないとデバックが出てしまいました。
Msgboxでレコード件数を確認しようと考えていたのですが、それもエラーとして出力されます。
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function *****()

Dim myDB As Database
Dim myRS As DAO.Recordset
Dim mySQL1 As String

mySQL1 = "SELECT COUNT(*) FROM 1000;"
Set myDB = CurrentDb
Set myRS = CurrentDb.OpenRecordset(mySQL1, dbOpenDynaset)
MsgBox myRS
End Function
`>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

FUNCTIONプロシージャがいけないのでしょうか?

手が空いている時にでも構いませんので、上記の件で補足のアドバイスがあれば宜しくお願い致します。

回答No.1

taka451213

こんにちは。

SELECT COUNT(*)
を使えばいいのでは？

全体がわからないので、こんな事しか書けなくてすみません・・・。
(^^ゞ

お礼

早急な対応ありがとうございます。
COUNT関数を使う事が分かりましたので、参考にさせて頂きます。