全て
| カテゴリ未分類
通常
| 数学
| 投資
| 副業
| 転職・就職
| ブログ
| 株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
カテゴリ： カテゴリ未分類
Sub CreateShiftData()
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
お気に入りの記事を「いいね！」で応援しよう
Last updated
2022.01.08 14:55:37
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
