アクセスDCountで5月分の件数を取得する方法
- VBAのアクセスDCountを使用して、特定のテーブルの5月分の件数を取得する方法について教えてください。
- コードの一部を変更した場合に発生するエラー3075についても解説してください。
- ワイルドカードを使用して5月分の件数を取得する方法についても検討しましたがうまくいかなかったので、他の方法があれば教えてください。
- ベストアンサー
アクセス DCount Between and
テーブルの5月分の件数をvbaで取得するにはどうすればいいでしょうか? Sub test() Debug.Print DCount("[取引日]", "T取引先", "[取引日] = Between #5/1/2013# And #5/31/2013#") End Sub これだと、実行時エラー3075「クエリ式の構文エラー:演算子がありません。」が返ります。 多分、クライテリアの士気が間違ってるんだと思います。 Sub test() Debug.Print DCount("[取引日]", "T取引先", "[取引日] = #5/1/2013#") End Sub これなら取得できました。 Sub test() Debug.Print DCount("[取引日]", "T取引先", "[取引日] = #5/*/2013#") End Sub ワイルドカードは使えないようで、これもエラーになりました。 5月分の件数を取得する方法はありますか? よろしくお願いします。
- GPAELNDQXZ
- お礼率100% (44/44)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
Debug.Print DCount("[取引日]", "T取引先", "[取引日] = Between #5/1/2013# And #5/31/2013#") でなく、 Debug.Print DCount("[取引日]", "T取引先", "[取引日] Between #5/1/2013# And #5/31/2013#") ではないですか?
関連するQ&A
- アクセス DCountの返り値が必ず0になる
DCountの返り値が必ず0になってしまうのです。 該当のフィールドには値は入っています。 しかし Sub test() Dim ColName As String ColName = "あああ" Debug.Print DCount("[" & ColName & "]", "test", "[" & ColName & "] = '" & ColName & "'") End Sub をすると、どんなに値がはいっていても0になってしまいます。 フィールドの型はテキスト型です。
- ベストアンサー
- オフィス系ソフト
- DCountでテーブルのレコード件数を取得するには
アクセスのテーブル1に何件レコードがあるかをvbaのDCountで取得したいのですが Sub a() MsgBox DCount("テーブル1") End Sub すると、引数は省略できません。(Error 449)になります。 フィールドは件数あり、レコードが入ってたり入ってなかったりするし、主キーはありません。 アクションクエリの削除クエリですべてのレコードを削除したりするので レコード件数が0件なのか、レコードがはいってるかをDCountで取得できればなー と思うのですが、どうすればいいでしょうか?
- ベストアンサー
- オフィス系ソフト
- アクセス DCount criteriaにDATEを指定したい
こんばんは テーブル1の処理日フィールドに入っている今日の日付の件数を取得してテキストボックスに表示させたいのですがうまくいきません。 テキストボックスのコントロールソースに =DCount("[処理日]","テーブル1","[処理日]=date") と入力してフォームビューで見ると #エラーになります。 =DCount("[処理日]","テーブル1") だけならエラーにはならないですが全ての件数が出てしまいます。 今日の日付のみ取得するにはどうすればいいでしょう? 処理日の書式は「日付 (S)」です。 どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 「Microsoft Excel - 」を表示させ
「Microsoft Excel - 」を表示させない方法はありますか? Sub t1() ActiveWindow.Caption = "test" End Sub をすると、 「Microsoft Excel - test」になってしまいます。 タスクバーには「test」だけを表示させたいのですが、 「Microsoft Excel - 」があるせいで、testまで表示されません。 Sub t2() Debug.Print ActiveWindow.Caption End Sub を実行しても、testしか取得されないから、 「Microsoft Excel - 」を消すことは無理なのでしょうか?
- ベストアンサー
- オフィス系ソフト
- NowとNow()とどちらを使った方が良いですか?
どちらも結果は同じでした。 Sub test1() Debug.Print Now End Sub Sub test2() Debug.Print Now() End Sub TechNet
- ベストアンサー
- オフィス系ソフト
- アクセスでApplication.Caption
アクセスでApplication.Captionに代わるコードはありますか? エクセルでなら Sub test01() Debug.Print Application.Caption End Sub は動きますが、アクセスだとコンパイルエラーになります。 CaptionがApplicationのメンバにないからだと思います。 いくつかのアプリケーションを跨いでVBAを動かしているのですが、 アクセスで自身のアプリケーション名、もしくはファイル名を取得するコードはありますか? ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- DCount 型が一致しません。(Error13)
アクセスVBAです。 テーブルで 2016年から始まるレコードの数を数えようと Debug.Print DCount([フォルダ名], "フォルダ名", "[フォルダ名] = '2016年*'") としたのですが、 型が一致しません。(Error13) になります。 レコードに該当文字が含むレコード数を取得するの方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- GetPhonetic("羨ま")
Sub test() Debug.Print Application.GetPhonetic("羨ましい") Debug.Print Application.GetPhonetic("羨まし") Debug.Print Application.GetPhonetic("羨ま") End Sub の戻り値が、 ウラヤマシイ ウラヤマシ は戻るのですが、 「羨ま」は何も取得されません。 正しい日本語ではないからでしょうか? IMEで変換できないものは、GetPhoneticで取得できないという事でしょうか?
- ベストアンサー
- Excel(エクセル)
- Access サブフォームにフィルターをかけるには?
メインフォームの中にタブを置きその中に表形式のサブフォーム(SUB)を置いています。 メインにボタン(コマンド10)を置いて押されたらサブのFunction(test)に飛ぶようにしてます。 ----メイン----- Private Sub コマンド10_MouseDown(~~~ [SUB].SetFocus Debug.Print Me.SUB.Form.test End Sub -----サブ----- Public Function test() DoCmd.ApplyFilter , "氏名=" & data End Function として、サブフォームにフィルターをかけたいのですが、エラーになります。 サブ単体では、動くのですが。
- ベストアンサー
- Visual Basic
- AddressとAddressLocal 違い
エクセルvbaなのですが Sub test01() Debug.Print Range("a1").Address Debug.Print Range("a1").AddressLocal End Sub この二つの違いは何ですか? どちらも$A$1が返るのですが。 アドレスを取得したい場合、どちらを使った方がよろしいでしょうか?
- ベストアンサー
- Visual Basic
お礼
イコールが余計だったわけですね! うまくできました! ありがとうございました。