Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1499 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6857】実行時エラー3061 まいら 05/11/24(木) 14:57 質問[未読]
【6859】Re:実行時エラー3061 小僧 05/11/24(木) 15:46 発言[未読]
【6860】Re:実行時エラー3061 まいら 05/11/24(木) 16:45 お礼[未読]
【6861】Re:実行時エラー3061 小僧 05/11/24(木) 16:56 発言[未読]
【6857】実行時エラー3061
質問  まいら  - 05/11/24(木) 14:57 -
引用なし
パスワード
   Access2000にて、施設予約管理システムの作成中に詰まっております。
クエリの抽出条件を入力したところ、クエリ単体では問題なく見ること
ができるのに、フォームから開いてやると実行時エラー3061が発生してしまいます。

クエリはこのようになっていますが、エラーを回避することは可能でしょうか？

SELECT Weekly.*
FROM Weekly
WHERE ((Weekly.利用日) Between Format([forms]![F_Weekly]![txt_st],"yymmdd") And Format([forms]![F_Weekly]![txt_ed],"yyyymmdd"))
ORDER BY Weekly.予約NO;
【6859】Re:実行時エラー3061
発言  小僧  - 05/11/24(木) 15:46 -
引用なし
パスワード
   ▼まいら さん：
こんにちは。

・利用日フィールドは数値型
・「txt_st」と「txt_ed」が日付型として認識できる値

であれば

DoCmd.OpenQuery "クエリ名", acViewNormal

で見る事ができましたよ。


>フォームから開いてやると実行時エラー3061が発生してしまいます。

このへんに他の情報がありそうですが…。


>Format([forms]![F_Weekly]![txt_st],"yymmdd")
>Format([forms]![F_Weekly]![txt_ed],"yyyymmdd"))

フィールドの数値は6桁でしょうか、 8桁でしょうか。
【6860】Re:実行時エラー3061
お礼  まいら  - 05/11/24(木) 16:45 -
引用なし
パスワード
   ▼小僧 さん：
>▼まいら さん：

レスありがとうございます。
>>Format([forms]![F_Weekly]![txt_st],"yymmdd")
>>Format([forms]![F_Weekly]![txt_ed],"yyyymmdd"))
>
>フィールドの数値は6桁でしょうか、 8桁でしょうか。
すみません、ミスしていました。数値は８桁で統一です。

このクエリで抽出したﾃﾞｰﾀを、エクセルのシートに貼り付ける
ものを作っているのですが、とりあえず、フォームから実行しなければ
良いというわけで、このクエリをテーブル作成クエリにして逃げることに
しておきました。テーブルが１つ増えることになって、あまり気持ちいい
感じはしないですが、これが今の自分にできる唯一の方法かと・・・。
こちらの過去ログや、他も探してみたのですが、フォームのモジュールに
SQL文を書くと、Betweenでエラーが起こってどうしても回避できませんでした。

心残りですが、一応解決しました。アドバイスありがとうございました。
【6861】Re:実行時エラー3061
発言  小僧  - 05/11/24(木) 16:56 -
引用なし
パスワード
   ▼まいら さん：
こんにちは。

既に解決済みのようですが、

>クエリで抽出したデータを、エクセルのシートに貼り付ける

のでしたら、わざわざクエリを作らなくても
Excel 側の CopyFromRecordset メソッドでいけそうですね。

こちらの掲示板でも何回か回答させて頂いていますので、
興味がおありでしたら過去ログを参照されてみて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1499 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1084341
(SS)C-BOARD v3.8 is Free