AccessVBAでテーブルのフィールドと文字列を比較してエラー処理をしたい

Question

AccessVBAでテーブルのフィールドと文字列を比較してエラー処理をしたい

最近中途で他業種からエンジニアに転職したものです。
現在AccessでVBAの業務ソフトの改良をしております。
初歩的でお恥ずかしいのですが、質問がわかりづらかったら申し訳ありません。

テーブル1の3列目が「名前」の項目なのですが、これを上から順に特定の文字列と比較して、一致しているものがなければエラーを吐かせたいのですが、VBAで参考になるページやコード例等あれば教えていただきたいです。

1時間近く調べており、やりたい動きがどうにも見つからず困っています。
StrCompで比較するにも、テーブルの3列目の上から値を比較する、といったやり方が見つからず、書き方がわからず、右往左往しています。

どうか先輩方に助けていただきたいです、よろしくお願いいたします。

Answer 1

テーブル1の3列目が「名前」の項目なのですが、これを上から順に特定の文字列と比較して、一致しているものがなければエラーを吐かせたいのですが、VBAで参考になるページやコード例等あれば教えていただきたいです。

Dim keyWord As String
keyWord = "特定の文字列"
If IsNull(DLookup("名前","テーブル1","名前='" & keyWord  & "'")) Then
    MsgBox "名前に'" & keyWord   & "'と一致しているものがありません。"
End If

あるいは、

Dim keyWord As String
keyWord = "特定の文字列"
If DCount("名前","テーブル1","名前='" & keyWord  & "'") = 0 Then
    MsgBox "名前に'" & keyWord   & "'と一致しているものがありません。"
End If

---

質問者さんのAccessのスキルレベルが分からないですが、Access初学者がAccessについて学習するとき、下記のような順序がいいと思います。

レベル1
テーフル、クエリ、フォーム、レポートなどのオブジェクトについての基本的な設計、使い方。
テーブルの設計に関しては、データベース設計の基本の学習も必要。
クエリに関してはSQLの知識があった方かいいが、ビジュアルで設計できるのでなくてもOK。

レベル2
VBAの標準関数、さらにAccessの標準関数の理解。
これらの関数およびレベル1のオブジェクトをVBAで使いこなすためのコーディングテクニック。
（上記の回答はこのレベルの回答です。）

レベル3
VBAからDAOあるいはADOを利用してのデータ操作。SQLについての理解も必要になります。

Comments

[koH_dr7]

回答ありがとうございます！
おかげでなんとかなりました。
hatena19様のおっしゃる「レベル1」をほぼ触らないまま、見様見真似でレベル2、レベル3の業務をしているような状況です…精進いたします。
また質問することもあるかもしれませんがどうかお力をお貸しいただけたら幸いです^^

Answer 2

以下の内容などを読み解いて理解しなければならないレベルです。
AccessVBA（ADO or DAO）でSQLを書いてレコードを抽出・フィールドを取り出す

VBAから始められるのは、クエリーなどがまだ理解できていないからだと思いますが、
VBAで直接テーブルにアクセスするのは、それがクエリーであっても変わらず、単に名前が違うレベルです。

クエリーやSQLの学習をする事こそが効率的なVBAの記述に繋がりますので、嫌がらずに学習して下さいね。