access　vba　自身のテーブルの一列を取得し、特定の値が存在の有無をチェックするイベント

よろしくお願いいたします。

自身のテーブル（access）の一列を取得し、"○○"という値が存在するのか否かをチェックするイベントを、フォームのボタンに記述したいです。
（実際に使用するテーブルに”○○”は存在しています。確認済み）
コードにある
If objRec(F_1).Value = "○○" Then
では、一番上にある値に対して結果を出してしまうので、
（本当は”○○”は存在しているのに）
結果は
MsgBox "○○はありません"
となってしまいます。

レコード一列値を取得して、その中に特定の値があるかどうかをチェックできるロジックにするにはどうすればよろしいでしょか。

有職者の皆様、お知恵を貸してください。

Private
1
2    '列名称
3    Const F_1 = "列名"
4    
5    
6    Dim blnFlg As Boolean: blnFlg = False   '変数宣言と初期値設定
7    Dim objRec As Recordset
8    
9    Set objRec = CurrentDb().OpenRecordset("select 列名, Value from テーブル)
10     
11   Do Until objRec.EOF
12     If objRec(F_1).Value = "○○" Then  //→列の一番上の値だけを参照しているので、”○○”まで探しにいかず、else側の答えになってします。
13
14                    
15      MsgBox "○○は存在します"
16      Else
17      MsgBox "○○はありません"
18      
19      objRec.MoveNext
20  Loop
21       End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

順番の問題ですね。


Do Until objRec.EOF

	If objRec(F_1).Value = "○○" Then  //→列の一番上の値だけを参照しているので、”○○”まで探しにいかず、else側の答えになってします。

		MsgBox "○○は存在します"
		GoTo EndOfSearch
	End If
	
	objRec.MoveNext
Loop

MsgBox "○○はありません"

EndOfSearch:

「○○はありません」というのを表示するのはテーブルに値がないときですから、こうすればその時だけ表示されますね。

投稿2016/03/17 09:15