こんにちは。
販売実績に計上年月があります。

検索フォームで、「2001/01」ではなく、「2001/01~2001/06」のように
抽出させたいのです。

Me.Filter = "[計上年月]=' " & Me![計上年月] & "'"
Me.FilterOn = True

のようなコードを、「Between ~ And ~ 」を使って抽出するのかな?
と思い、いろいろ試してみたのですが、うまくいきません。
というか、どのように記述してよいのか分かりませんでした。

すみませんが、よろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

Me.Filter = "[計上年月] Between #" & Me![計上年月自] & "# And #" & Me![計上年月至] & "#"



たぶん...
    • good
    • 0
この回答へのお礼

できました!うだうだ悩んでいたのでとてもうれしいです。
本当にありがとうございました。

お礼日時:2001/11/10 22:31

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

関連するカテゴリからQ&Aを探す

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QIf 参加賞 = 1 Then '←

Access2003 Windows-xpを使っています。
フォーム上に、複数のテキストボックスがあり、そこにコードを書いてあるのですが、、、
現在、「参加賞」のテキストボックスに「1」を入力したとき(If 参加賞 = 1 Then)
というようになっていますが、ここを"「0以外の数値」を入力した時"というコードにしたいのですが、どのように書いたらよいのでしょうか?
すみませんが、どなたか教えてください。
宜しくお願い致します。
-----------------------------------------
Private Sub 参加賞_AfterUpdate()

If 参加賞 = 1 Then

'他を0にする
i参加賞 = 0
F賞 = 0
E賞 = 0
D賞 = 0
i提案賞 = 0
i努力賞 = 0
idea賞 = 0

End If
End Sub
---------------------------

Aベストアンサー

0以外なら
If 参加賞 <>1

0より大きい数値なら
If 参加賞 >0

で、いかがですか?

QAccessVBA 実行時エラー'2766'について質問です。

AccessVBA 実行時エラー'2766'について質問です。

このオブジェクトには、オートメーションオブジェクト'レコードセット'は含まれません。

のエラーが出て困っています。
発生タイミングはフォームで4箇所以上の条件で検索した際に発生してます。
SQLに問題がありそうなのですが、SELECT~FROM文に続けて
WhereSQL = "WHERE List.DeleteCheck <> True "
WhereSQL = WhereSQL & "AND MCate = '" & ![txtFindMachineCate].Column(1) & "' "
WhereSQL = WhereSQL & "AND PName LIKE '%" & ![txtFindProductName] & "%'"
などテキストボックスに入力されているかをIF文でチェックして、
WHERE文をANDで結合しています。(AND文合計30個)
ただし、4個ほどテキストボックスやコンボボックスを選択して検索すると、エラーがでます。

上記の後に、ORDER BY句を結合しています。
SubFormSQL = SubFormSQL & "ORDER BY PNum;"

エラーのタイミングは上記の通りで、どのテキストボックスで起こるかは決まっていません。

何が原因しているのか、さっぱりで大変困っています。
アドバイスよろしくお願いいたします。m(_ _)m

AccessVBA 実行時エラー'2766'について質問です。

このオブジェクトには、オートメーションオブジェクト'レコードセット'は含まれません。

のエラーが出て困っています。
発生タイミングはフォームで4箇所以上の条件で検索した際に発生してます。
SQLに問題がありそうなのですが、SELECT~FROM文に続けて
WhereSQL = "WHERE List.DeleteCheck <> True "
WhereSQL = WhereSQL & "AND MCate = '" & ![txtFindMachineCate].Column(1) & "' "
WhereSQL = WhereSQL & "AND PName LIKE '%" & ![txtFindProductName] & ...続きを読む

Aベストアンサー

連結し生成しているので、空白区切りが要るのにない、シングルコーテーションが片方しかない、こういう観点でSQLが正しいかから探るというのはやりましたか。

QAccess 実行時エラー'3075' 対処方法

VBAの設定されているAccessファイルを作成したのですが、実行時エラー'3075' クエリ式 「'Mid([W_作業用]![※関税CD],2,2'のこの関数は式では使用できません」というエラーが発生しました。

ただ、このエラーについては、発生するPCと発生しないPCと二分しています。
エラーが発生するPCについては、発生しないようにするにはどうすればよいのでしょうか?
PCの環境を変更する必要があるのか、あるいは、システムそのものを改修する必要がある(Mid関数を修正する必要がある?)のでしょうか?周りに相談できる人がおらずに困っています。。

ps)ツール→参照設定で参照可能なライブラリファイルは確認した所、設定内容に問題はありませんでした。何が問題でこうしたエラーが発生しているのでしょうか・・

Aベストアンサー

その関数をどこで使ってますか?
クエリのフィールドでは無理ですよ?
更新クエリの値ならいいですけど。
画像あります?

QINSERT INTO table(DATE) VALUES('20090101')ができません。

初めましてご教授よろしくお願いします。

Accessにレコードを追加しようとしているのですがうまくいきません。

どうもDATEというフィールドにテキスト型の'20090101'を入れようとするのがいけないみたいです。

予約語だからDATEのフィールド名を変えた方がいいことはわかっているのですが、お客様がテーブルを作成しているので変更することができません。

お客様いわくテキスト型で入るというのですがどうすれば入るのでしょうか?

ちなみにDATEフィールドはテキスト型です。

エラー内容は「INSERT INTO ステートメントの構文エラーです。」と表示されます。

Aベストアンサー

INSERT INTO table(DATE) VALUES('20090101')

INSERT INTO table([DATE]) VALUES('20090101')
にしてみてください。

QACCESS 更新 ADO Filter Do Until

いつもお世話になっております。
ACCESSのフォームに作成したコマンドボタンを実行すると
TABLE1からTABLE2へID番号を元に値を更新するようなプログラムを
作りましたが、うまく動きません。
ご指摘お願いします。

参考までに画像を添付します。

Dim CN As New ADODB.Connection
Dim rsA As New ADODB.Recordset
Dim rsB As New ADODB.Recordset


Set CN = CurrentProject.Connection
rsA.Open "TABLE1", CN, adOpenKeyset, adLockOptimistic
rsB.Open "TABLE2", CN, adOpenKeyset, adLockOptimistic

Do Until rsA.EOF

rsB.Filter = " ID = '" & rsA!ID & "'"

Do Until rsB.EOF
rsB!名前 = rsA!名前
rsB!価格 = rsA!価格
rsB.Update
Loop

rsA.MoveNext
Loop

rsB.Close: Set rsB = Nothing
rsA.Close: Set rsA = Nothing
CN.Close: Set CN = Nothing

いつもお世話になっております。
ACCESSのフォームに作成したコマンドボタンを実行すると
TABLE1からTABLE2へID番号を元に値を更新するようなプログラムを
作りましたが、うまく動きません。
ご指摘お願いします。

参考までに画像を添付します。

Dim CN As New ADODB.Connection
Dim rsA As New ADODB.Recordset
Dim rsB As New ADODB.Recordset


Set CN = CurrentProject.Connection
rsA.Open "TABLE1", CN, adOpenKeyset, adLockOptimistic
rsB.Open "TABLE2", CN, adOpenKeyset, adLockOptim...続きを読む

Aベストアンサー

ANO2ですが、
"UPDATE TABLE1 LEFT JOIN TABLE2 ON TABLE1.ID = TABLE2.ID SET TABLE2.NAME = [TABLE1]![NAME], TABLE2.[PRICE] = [TABLE1]![NAME];"

"UPDATE TABLE1 LEFT JOIN TABLE2 ON TABLE1.ID = TABLE2.ID SET TABLE2.NAME = [TABLE1]![NAME], TABLE2.[PRICE] = [TABLE1]![PRICE];"
でした。


人気Q&Aランキング

おすすめ情報