フォームにテキストボックスAがあり、そこに入力した文字(下記テーブルのフィールド1の文字)をクエリーの「抽出条件」にし、同じフォーム上のテキストボックスBに表示しようと思っています。
クエリを開くとパラメータの入力を求めてきて、入力するとうまく抽出されます。
テーブルは
フィールド1|フィールド2
A | 10
B | 20
C | 30
D | 40
のような簡単なものです。
テキストボックスBのコントロールソースに
「=[○×クエリ]![フィールド2]とやっても「#Name?」と表示されてしまいます。
どのようにやればよいのでしょうか?
No.2
- 回答日時:
No1さんの回答が基本。
実行速度を重視するならばADODB を利用する次のステップへ。
=DBLookUp("フィールド2","テーブル名","フィールド1='" & [テキストボックスA] & "'")
Public Function DBLookup(ByVal strField As String, _
ByVal strTable As String, _
Optional ByVal strWhere As String = "", _
Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
Dim DataValue
Dim strQuerySQL As String
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
strQuerySQL = "SELECT " & strField & " FROM " & strTable
If Len(strWhere) > 0 Then
strQuerySQL = strQuerySQL & " WHERE " & strWhere
End If
With rst
.Open strQuerySQL, _
CurrentProject.Connection, _
adOpenStatic, _
adLockReadOnly
If Not .BOF Then
.MoveFirst
DataValue = .Fields(0)
End If
End With
Exit_DBLookup:
On Error Resume Next
rst.Close
Set rst = Nothing
DBLookup = Nz(DataValue, ReturnValue)
Exit Function
Err_DBLookup:
MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
"・Err.Description=" & Err.Description & Chr$(13) & _
"・SQL Text=" & strQuerySQL, _
vbExclamation, " 関数エラーメッセージ"
Resume Exit_DBLookup
End Function
s_husky様
解答有り難うございます。
まだaccessを始めたばかりなのでモジュール関連はもう少し勉強してから使用したいと思います。
そのときには参考にさせて貰います。
今回は有り難うございました。
No.1ベストアンサー
- 回答日時:
クエリは必要ありません。
フォームのレコードソースに無いデータを表示させる
場合には DLookUp を使います。
テキストボックスBのコントロールソースに
=DLookUp("フィールド2","テーブル名","フィールド1='" & [テキストボックスA]) & "'"
上記は「フィールド1」が文字列型の場合です。
数値型の場合は次のようになります。
=DLookUp("フィールド2","テーブル名","フィールド1=" & [テキストボックスA])
DLookUp 関数は コントロールソースに限らず
VBA でも使用し、Access では、非常に使用頻度の高いものです。
ヘルプで調べて、ぜひマスターしてください。
もし Access でなかったら、このレスは無視して下さい。
bonaron様
解答有り難うございます。
DLookUp関数の関数のことは知りませんでした。
これからもよく使用していくことになりそうなのでマスターしようと思います。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) Accessクエリで年月フィールドを年のみで抽出する方法について 2 2022/08/29 18:10
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessテキストボックス内に2つのフィールドの値を比較して大きい方の値を表示させる方法 1 2022/09/09 10:50
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Access(アクセス) テキストボックスの値をテーブルに入力したい 2 2022/06/28 12:08
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Access2013。テキストボックスにクエリの値を表示したい。 ①テーブル「受注情報」 フィールド
Access(アクセス)
-
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
クエリーの結果をフォームに表示させたい(Access2000)
その他(データベース)
-
7
アクセスVBAのMe!と[ ]
Access(アクセス)
-
8
ACCESSのクエリで抽出したデータをテキストボックスに貼り付けるには
Access(アクセス)
-
9
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
10
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
11
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
12
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
13
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
14
VBAをつかってクエリの情報を抽出するには??
Visual Basic(VBA)
-
15
フォームの値をクエリーに反映したい
その他(Microsoft Office)
-
16
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
17
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
18
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
19
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
20
ACCESSでフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで、1つの項目に複数の...
-
Accessのテーブルのフィールド...
-
テキストボックスにクエリ結果...
-
アクセスで追加した項目に全て...
-
Accessを開きなおすとテキスト...
-
テーブルでメモ型になっている...
-
Accessのクエリでハイパーリン...
-
Accessで、テーブルに入力した...
-
Access で 特定の文字の個数を...
-
AccessのDLookUpの第3引数の値...
-
アクセスのクエリ 1文字以上を...
-
アクセス2007でオートナン...
-
MS Accessの小数の桁制限
-
フォームの再利用
-
Access2010での、レポートの両...
-
Access2002の重複クエリで大文...
-
アクセスのクエリに「PHONETIC...
-
SQLステートメントのFROM句・・・
-
ACCESS クエリ抽出する際、重複...
-
access フォームを開くと「パ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスで追加した項目に全て...
-
Accessで、1つの項目に複数の...
-
テキストボックスにクエリ結果...
-
Accessを開きなおすとテキスト...
-
Accessのテーブルのフィールド...
-
テーブルでメモ型になっている...
-
Accessで、テーブルに入力した...
-
Access:値が求めたい値の2倍...
-
Accessのクエリでハイパーリン...
-
Access で 特定の文字の個数を...
-
更新クエリをリンクデータベー...
-
アクセスのクエリ 1文字以上を...
-
追加クエリで特定フィールドの...
-
accessでの文字列の混ざった連...
-
アクセス クエリのフィールド...
-
accessvba 複数条件でFilterを...
-
途中で改行されたCSVをAccessに...
-
access フォームを開くと「パ...
-
Access2002の重複クエリで大文...
-
【急】Access 4桁の数字の頭...
おすすめ情報