アクセス2003で作業管理のデータベースを作っています。
フォームで入力された作業開始日に部品ごとに決まっている規定作業日数(営業日のみ)をたして作業完了予定日を出したいのですが、うまくできなくて、どうしようもなくなってしまい、質問させていただきました。
○テーブル「部品マスタ」
部品番号
部品名
規定作業日数
○テーブル「カレンダー」
年月日
営業日フラッグ
(営業日フラッグは、営業日が1、休業日を0としています)
○テーブル「受注マスタ」
受注ID
部品番号
作業開始日
作業完了予定日
上記「部品マスタ」と「受注マスタ」をもとにクエリを作成し、入力フォームを作成しました。
○フォーム「受注データ入力」
(入力)受注ID
(入力)部品番号
(入力)作業開始日
(表示)部品名
(表示)規定作業日数
(計算)作業完了予定日
翌営業日とか3営業日後という風に納期などを計算する方法は見つけられたのですが、そこから応用をきかすことができなくて、行き詰ってしまいました・・。どなたか助けていただける方、よろしくお願いします。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
後で、No1さんの回答を見て「そういうことか?」と思っていました。
私なら、次のような関数を作ります。
Public Function GetGetDaysWorked(ByVal CName As String, _
ByVal SDay As Date, _
ByVal N As Integer) As Date
On Error Goto Err_GetGetDaysWorked
Dim Hiduke As Date
Dim strSQLQuery As String
Dim dbsCurrent As DAO.Database
Dim rstCalender As DAO.Recordset
strSQLQuery = "SELECT 日付 FROM " & CName & " WHERE 日付 >= #" & SDay & "# AND 稼働日=True"
Set dbsCurrent = CurrentDb
Set rstCalender = dbsCurrent.OpenRecordset(strSQLQuery)
With rstCalender
If Not .EOF Then
.Move (N - 1)
Hiduke = .Fields("日付")
End If
End With
rstCalender.Close
dbsCurrent.Close
Exit_GetGetDaysWorked:
GetGetDaysWorked = Hiduke
Exit Function
Err_GetGetDaysWorked:
Hiduke = "1900/01/01"
Resume Exit_GetGetDaysWorked
End Function
ID 日付 稼働日
1 2006/10/10 Yes
2 2006/10/11 No
3 2006/10/12 Yes
4 2006/10/13 Yes
5 2006/10/14 No
? GetGetDaysWorked("カレンダー", "2006/10/10", 1)
2006/10/10
? GetGetDaysWorked("カレンダー", "2006/10/10", 2)
2006/10/12
? GetGetDaysWorked("カレンダー", "2006/10/10", 3)
2006/10/13
といった感じです。
この回答への補足
やってみましたが、「コンパイルエラー 引数は省略できません」とでてしまいました。日付と稼働日は、それぞれ年月日と営業日フラッグに置き換えればいいのでしょうか?
補足日時:2006/05/19 16:29No.2
- 回答日時:
例えば、"2006/10/10" が作業開始日で規定作業日数=2 だと作業完了予定日は"2006/10/11"になります。
? CDATE("2006/10/10") + (2 -1)
2006/10/11
うーん!
どこで、行き詰っているのでしょうか...
この回答への補足
質問したい事がうまく説明できていなかったようで、すみません。
作業開始日、作業完了予定日ともに営業日、規定作業日数も営業日数で計算させたいのです。営業日というのは、会社独自のカレンダーによるもので、土日祝日が休みというわけではないので、テーブル「カレンダー」のフラッグによって判別させるようにしています。
たとえば、作業開始日が2006/05/02で規定作業日数が8日の場合、2006/05/17を作業完了予定日に返したいのです。
No.1
- 回答日時:
こんにちは、
kt関数アドインを使うと、祝祭日、土日、
銀行営業日などが判断できます。
こちらと組み合わせて利用してはいかがでしょうか。
親切にコードも公開していらっしゃるので、
参考になると思います
参考URL:http://www.h3.dion.ne.jp/~sakatsu/ktfunc_main.htm
この回答への補足
さっそくのアドバイスありがとうございます。説明が不足していて申し訳なかったのですが、できればアクセス内でVBAとかを使ってできればと思っています。
補足日時:2006/05/19 13:34お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- その他(データベース) accessでの請求管理について 2 2022/06/13 21:51
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- その他(プログラミング・Web制作) プログラムの起動、利用について、使用期間を設定する方法 3 2023/08/06 21:03
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- 中途・キャリア さて、社会人になってから13年目。 今まで、機械設計、機械製品の品質管理、部門の経営企画をやってきま 4 2023/07/17 08:59
このQ&Aを見た人はこんなQ&Aも見ています
-
つい集めてしまうものはなんですか?
人間誰もは1つ「やたらこればかり集めてしまう」というものがあるもの。 あなたにとって、つい集めてしまうものはなんですか?
-
「平成」を感じるもの
「昭和レトロ」に続いて「平成レトロ」なる言葉が流行しています。 皆さんはどのようなモノ・コトに「平成」を感じますか?
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
ちょっと先の未来クイズ第4問
11月ごろに発表される、2024年の「新語・流行語大賞」にノミネートされる言葉を書けるだけ書いてください。
-
うちのカレーにはこれが入ってる!って食材ありますか?
カレーって同じルーから作っても、家庭によって入っているものや味が微妙に違っていて面白いですよね! 「我が家のカレーにはこれが入ってるよ!」 という食材や調味料はありますか?
-
アクセス:既定値に土日含まず3日後を指定したい
Access(アクセス)
-
Accessでの稼働日数計算の方法
その他(データベース)
-
Accessで規定値に土日含まず5日前を指定したい
Access(アクセス)
-
-
4
Access 2010 土日祝日を除いて前日
Access(アクセス)
-
5
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
6
ACCESSには NETWORKDAYS関数はない??
Access(アクセス)
-
7
Accessで今日から5日後
その他(データベース)
-
8
ACCESS 一番最新の日付の金額を出したいのですが・・
その他(データベース)
-
9
【VBA】土日をスキップして日付計算
Visual Basic(VBA)
-
10
Accessのテーブルからcsv出力する際に一部のフィールドを除いて出力したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・チョコミントアイス
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・あなたの習慣について教えてください!!
- ・ハマっている「お菓子」を教えて!
- ・高校三年生の合唱祭で何を歌いましたか?
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・家の中でのこだわりスペースはどこですか?
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
マクロ転記で指定した列の最終...
-
受注受付期間とはなんですか?...
-
「失注」の意味を教えてくださ...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
Accessのフィールド数が255しか...
-
accessのレポートで元になるテ...
-
【Access】フォームで自動計算...
-
Oracle 2つのDate型の値の差を...
-
Accessでテーブル名やクエリ名...
-
Accessでコードを入れると名前...
-
変数が選択リストにありません
-
セルの右クリックで出る項目を...
-
access テーブル内のレコード...
-
テーブルの存在チェックについて
-
access2000:フォームで入力し...
-
Access クロス集計クエリについて
-
アクセスのコンボボックスのデ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「直需」の意味を教えてください
-
作番ってどういう意味でしょうか?
-
「失注」の意味を教えてくださ...
-
受注受付期間とはなんですか?...
-
ACCESSで、DMax関数の条件の書き方
-
アクセスのクエリで、前回に入...
-
マクロ転記で指定した列の最終...
-
Access:サブフォームのレコー...
-
アクセスで営業日を計算させる...
-
ACCESS 選択した値を別...
-
データシート形式のサブフォー...
-
ACCESS2000の帳票フォーム詳細...
-
access 1対1と1対多のテーブ...
-
エクセルマクロVBA初心者です。...
-
【MS Office】変更したデータを...
-
フォーム入力、更新後処理で指...
-
会社 ファイルの収納
-
Access、同じテーブルの2つの項...
-
Access PDF作成-日付フォルダー...
-
クエリにSQL文を書き込みたい
おすすめ情報