鍋・フライパンあれこれ美味
100万ポイント山分け!1日5回検索で1ポイントもらえる
>>
人気記事ランキング
ブログを作成
楽天市場
1966524
HOME
|
DIARY
|
PROFILE
【フォローする】
【ログイン】
「東雲 忠太郎」の平凡な日常のできごと
< 新しい記事
新着記事一覧(全17632件)
過去の記事 >
全て |
カテゴリ未分類
通常
|
数学
|
投資
|
副業
|
転職・就職
|
ブログ
|
株Stock
|
VBA
|
SharePoint
|
REST API
|
RenderListDataAsStream
|
PowerAutomateDesktop
|
Graph API
|
PowerApps
|
PowerAutomate
|
PowerFx
|
OfficeScriptオフィススクリプト
|
PowerAutomate日時Excel日時相互関係
|
PowerShell
|
Dataverse
|
UiPath
|
OneDrive
|
LINQ
|
VB.NET
|
C#.NET
|
WPFC#.NET
|
Git
|
ネットワーク
|
Azure
|
AWS
|
JP1
|
セキュリティ
|
JavaScript
|
Google Cloud
|
データベース
|
ASP.MET
|
画像アップローダ
|
小説
2022.01.08
AccessVBAシフト管理表的なものを作成2曜日の判定をしたい
カテゴリ:
カテゴリ未分類
Sub CreateShiftData()
Dim strYaer As String
Dim strMonth As String
strYaer = CStr(Year(Now))
strMonth = CStr(Month(Now))
Dim SQL As String
SQL = "INSERT "
SQL = SQL & "INTO T_SHIFT_WORK( "
SQL = SQL & " USER_NO "
SQL = SQL & " , USER_NAME "
SQL = SQL & " , [YEAR] "
SQL = SQL & " , [MONTH] "
SQL = SQL & " , DAY_01 "
SQL = SQL & " , DAY_02 "
SQL = SQL & " , DAY_03 "
SQL = SQL & " , DAY_04 "
SQL = SQL & " , DAY_05 "
SQL = SQL & " , DAY_06 "
SQL = SQL & " , DAY_07 "
SQL = SQL & " , DAY_08 "
SQL = SQL & " , DAY_09 "
SQL = SQL & " , DAY_10 "
SQL = SQL & " , DAY_11 "
SQL = SQL & " , DAY_12 "
SQL = SQL & " , DAY_13 "
SQL = SQL & " , DAY_14 "
SQL = SQL & " , DAY_15 "
SQL = SQL & " , DAY_16 "
SQL = SQL & " , DAY_17 "
SQL = SQL & " , DAY_18 "
SQL = SQL & " , DAY_19 "
SQL = SQL & " , DAY_20 "
SQL = SQL & " , DAY_21 "
SQL = SQL & " , DAY_22 "
SQL = SQL & " , DAY_23 "
SQL = SQL & " , DAY_24 "
SQL = SQL & " , DAY_25 "
SQL = SQL & " , DAY_26 "
SQL = SQL & " , DAY_27 "
SQL = SQL & " , DAY_28 "
SQL = SQL & " , DAY_29 "
SQL = SQL & " , DAY_30 "
SQL = SQL & " , DAY_31 "
SQL = SQL & ") "
SQL = SQL & "VALUES ( "
SQL = SQL & " '30011' "
SQL = SQL & " , '師父戸感理子' "
SQL = SQL & " , " & strYaer & " "
SQL = SQL & " , " & strMonth & " "
Dim idx As Long
For idx = 1 To 31
' 土日は休日に設定
Dim datTemp As Date
datTemp = CDate(strYaer & "/" & strMonth & "/" & idx)
' If Weekday(datTemp) = 1 Or Weekday(datTemp) = 7 Then
' SQL = SQL & " , 休み "
' Else
' SQL = SQL & " , 勤務 "
' End If
' とりあえず曜日を入れるだけにしておく
SQL = SQL & " , " & Weekday(datTemp) & " "
Next idx
SQL = SQL & ") "
'SQLを実行
CurrentDb.Execute SQL
End Sub
【1/9までの特典】モバイルモニター タッチ機能 高画質フルHD 13.3インチ【3年保証 送料無料】WT-133BT-BK タッチパネル モバイルディスプレイ ゲーミングモニター ポータブルディスプレイ デュアルディスプレイ ポータブルモニター 液晶 IPSパネル 5510
お気に入りの記事を「いいね!」で応援しよう
いいね!
0
シェアする
Last updated 2022.01.08 14:55:37
< 新しい記事
新着記事一覧(全17632件)
過去の記事 >
ホーム
フォローする
過去の記事
新しい記事
新着記事
上に戻る
【毎日開催】
15記事にいいね!で1ポイント
10秒滞在
いいね!
--
/
--
次の日記を探す
おめでとうございます!
ミッションを達成しました。
広告を見てポイントを獲得する
※「ポイントを獲得する」ボタンを押すと広告が表示されます。
x
エラーにより、アクションを達成できませんでした。下記より再度ログインの上、改めてミッションに参加してください。
ログインする
x
X
© Rakuten Group, Inc.
X
共有
Facebook
Twitter
Google +
LinkedIn
Email
Design
a Mobile Site
スマートフォン版を閲覧
|
PC版を閲覧
人気ブログランキングへ
無料自動相互リンク
にほんブログ村 女磨き
LOHAS風なアイテム・グッズ
みんなが注目のトレンド情報とは・・・?
So-netトレンドブログ
Livedoor Blog a
Livedoor Blog b
Livedoor Blog c
楽天ブログ
JUGEMブログ
Excitブログ
Seesaaブログ
Seesaaブログ
Googleブログ
なにこれオシャレ?トレンドアイテム情報
みんなの通販市場
無料のオファーでコツコツ稼ぐ方法
無料オファーのアフィリエイトで稼げるASP
ホーム
Hsc
人気ブログランキングへ
その他
Share by: