【Access2003】
dlookup関数について教えてください。
やろうとしていることは、ある商品について任意の日付の時点での数量を表示したく、
練習として、
DLookup("[数量]", "t_商品情報", "[品番] = '"& "1001" & "' and [日付] = #" & "2007/12/17" & "#")
と記述したときには正常な値が表示されました。
その後、「品番」と「日付」をフォーム上のテキストボックスで任意の値を入力したいと思い、下記のように書き直しました。
DLookup("[数量]", "t_商品情報", "[品番] = '"& "[Forms]![フォーム1]![txt品番]" & "' and [日付] = #" & "[Forms]![フォーム1]![txt日付]" & "#")
フォームのテキストボックスにそれぞれ値を入力したところ、「日付の構文エラー」となってしまいました。
勉強不足なのでしょうか、原因がわからず困っております。
お詳しい方のアドバイスをお待ちしております。宜しくお願い致します。
No.3ベストアンサー
- 回答日時:
#は必要です
値をとりたいもの
>[Forms]![フォーム1]![txt品番]
等は""の外に出さないとそういう文字列を指定したことになってしまいますよ
DLookup("[数量]", "t_商品情報", "[品番] = '"& [Forms]![フォーム1]![txt品番] & "' and [日付] = #" & [Forms]![フォーム1]![txt日付] & "#")
No.1
- 回答日時:
以下のDBLookup関数を標準モジュールに登録して試してみて下さい。
そうすれば、エラーの原因は一目瞭然かと思います。
Public Function DBLookup(ByVal strField As String, _
ByVal strTable As String, _
Optional ByVal strWhere As String = "", _
Optional ByVal ReturnValue = "") 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
MsgBox strQuerySQL
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 = IIf(Len(DataValue & ""), 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
<テスト1>
DBLookup("[数量]", "t_商品情報", "[日付]=#" & "[Forms]![フォーム1]![txt日付]" & "#")
SELECT 文の実行時にエラーが発生しました。(DBLookup)
・Err.Description=クエリ式 '[日付]=#[Forms]![フォーム1]![txt日付]#'の日付の構文エラーです。
・SQL Text=SELECT ID FROM 日付 WHERE 日付=#[Forms]![フォーム1]![txt日付]#
<テスト2>
DBLookup("[数量]", "t_商品情報", "[日付]=#" & [Forms]![フォーム1]![txt日付] & "#")
この場合、次のような SELECT文が作成されることが判ります。
SELECT [数量] FROM t_商品情報 WHERE [日付]=#2007/01/01#
ご丁寧にありがとうございます。
No.3の方のご回答を拝見して解決してしまったのですが、これも時間が出来たときに試してみます。
こういう風にエラーの原因を探る方法があるのですね。
勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- JavaScript テーブルの中のセレクトボックスの値が0のとき、非表示にしたい 3 2022/05/29 10:13
- Excel(エクセル) エクセルの表について 3 2023/04/14 18:00
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- Excel(エクセル) エクセルのSUM関数について 4 2023/04/18 10:37
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) エクセルデーターの並び替え 5 2022/08/06 09:59
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「24日の0時」って・・・
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
「時間」、「期日」、「日付」...
-
エクセル マクロ 名前を付けて...
-
パソコンで購入したデーターが...
-
Access VBA SQL文で教えてください
-
PCの日付が起動のたびにリセ...
-
回覧板の日付について質問です...
-
EXCELで日付を****年上期、****...
-
ACCESS 今日の日付のデータ抽出...
-
Excelでヘッダに前日の日付を表...
-
2つの日付の中間の日付 エク...
-
ACCESSVBAのseekで複数INDEX検...
-
エクセルで日付別にシートを分...
-
選択クエリで実行結果を非表示...
-
Accessでの時間別集計について
-
エクセルで日付け表示で、明治...
-
エクセルで6ヵ月後を自動入力で...
-
ピボットテーブルの日付フィル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「24日の0時」って・・・
-
パソコンで購入したデーターが...
-
「時間」、「期日」、「日付」...
-
日付の大小の表現
-
差し込み印刷に当日の日付が入...
-
回覧板の日付について質問です...
-
エクセル マクロ 名前を付けて...
-
TODAY関数から次の火曜もしくは...
-
エクセルで日付別にシートを分...
-
Excelについて
-
スプレッドシートで使う数式を...
-
エクセルで日付け表示で、明治...
-
履歴書の日付間違いで落ちますか。
-
Excelでヘッダに前日の日付を表...
-
ACCESSで1月1日~12月31日まで...
-
ACCESSで日付ごとに自動連番(...
-
エクセルで6ヵ月後を自動入力で...
-
2つの日付の中間の日付 エク...
-
差込印刷 縦書きで和暦(漢数...
-
EXCELで日付を****年上期、****...
おすすめ情報