7月
8月
9月
10月
11月
12月
2022年01月の記事
全6件 (6件中 1-6件目)
1
-
さくらインターネットWordPressでForbidden don't have permission to access this resource.
さくらインターネットWordPressでForbidden don't have permission to access this resource.というエラーが最近になって発生するようになり、その時の解決方法を掲載します。基本的に.htaccessが書き換えられてしまって、リソースにアクセスできないという状況になっていますので、.htaccessを編集することになります。原因は.htaccessに下記の文字が勝手に追記されていることが原因になっていました。<FilesMatch ".(py|exe|phtml|php|PHP|Php|PHp|pHp|pHP|phP|PhP|php5|suspected)$">Order Allow,DenyDeny from all</FilesMatch>バックアップがある場合は、もとのhtaccessに戻すのが最もおすすめです。バックアップがない場合は、上記の部分を削除するだけでも動作することを確認しましたが、何かしらデメリットがあるかもなので、あまりおすすめの方法ではないです。★400枚 (100枚×4箱)★ らくらく♪2層マスク！ 飛沫予防 レギュラーサイズ 使い捨てマスク 男女兼用マスク 白 ホワイト 不織布マスク 2層構造 プリーツ型
2022.01.09
-
フォームで選択中のCurrentRecordの値を取得する方法
基本的にMe.Recordset.Fields("USER_NAME")でカレントレコードの値が取得できます。クリックなどで選択すると自動でカレントレコードへ移動します。カレントレコードのクローンを作成して操作する方法がおすすめになってきます。Private Sub DAY_01_Click() Debug.Print Me.Recordset.Fields("USER_NAME") Dim rsCurrent As Recordset Set rsCurrent = Me.RecordsetClone ' カレントレコードへ移動 rsCurrent.Bookmark = Me.Bookmark MsgBox rsCurrent.Fields("USER_NAME")End Sub【1/9までの特典】タッチ機能 モバイルモニター 高画質 フルHD 15.6インチ【3年保証 送料無料】Winten WT-156LTF-BK タッチパネル モバイルディスプレイ ゲーミングモニター ポータブルディスプレイ デュアルディスプレイ 液晶 IPSパネル 5581
2022.01.08
-
アクセスのリストボックスで取得項目を変更したい場合
アクセスのリストボックスで選択の値を取得するということになると、ItemDataを利用することになりますが、既定値ではItemDataを利用するとキー項目が設定されてきます。そこでキー項目以外を取得したいという場合には、リストボックスのプロパティの「連結列」を設定することで狩野になります。例えば３と設定すると３列目の値が取得されイアmす。Private Sub コマンド5_Click() Dim iintLoop As Integer With Me.リスト0 For iintLoop = 0 To .ListCount - 1 If .Selected(iintLoop) Then MsgBox .ItemData(iintLoop) End If Next iintLoop End WithEnd Sub【楽天5冠達成】【送料無料 あす楽】 モバイルモニター 軽量 553g 14インチ 薄型 モニター ノングレア フルHD タイプC USB-C HDMI カバー付き テレワーク モニター ポータブルモニター dvd ゲームモニター ゲーム ビジネス楽天で購入
2022.01.08
-
AccessVBAシフト管理表的なものを作成２曜日の判定をしたい
WeekdayかWeekNameが使えそうである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 SQLEnd Sub【1/9までの特典】モバイルモニター タッチ機能 高画質フルHD 13.3インチ【3年保証 送料無料】WT-133BT-BK タッチパネル モバイルディスプレイ ゲーミングモニター ポータブルディスプレイ デュアルディスプレイ ポータブルモニター 液晶 IPSパネル 5510
2022.01.08
-
AccessVBAシフト管理表的なものを作成１
テーブルを作成・T_SHIFT_WORKDDLはこちらcreate table T_SHIFT_WORK ( ID COUNTER not null , USER_NO INTEGER , USER_NAME VARCHAR(255) , YEAR INTEGER , MONTH INTEGER , DAY_01 VARCHAR(255) , DAY_02 VARCHAR(255) , DAY_03 VARCHAR(255) , DAY_04 VARCHAR(255) , DAY_05 VARCHAR(255) , DAY_06 VARCHAR(255) , DAY_07 VARCHAR(255) , DAY_08 VARCHAR(255) , DAY_09 VARCHAR(255) , DAY_10 VARCHAR(255) , DAY_11 VARCHAR(255) , DAY_12 VARCHAR(255) , DAY_13 VARCHAR(255) , DAY_14 VARCHAR(255) , DAY_15 VARCHAR(255) , DAY_16 VARCHAR(255) , DAY_17 VARCHAR(255) , DAY_18 VARCHAR(255) , DAY_19 VARCHAR(255) , DAY_20 VARCHAR(255) , DAY_21 VARCHAR(255) , DAY_22 VARCHAR(255) , DAY_23 VARCHAR(255) , DAY_24 VARCHAR(255) , DAY_25 VARCHAR(255) , DAY_26 VARCHAR(255) , DAY_27 VARCHAR(255) , DAY_28 VARCHAR(255) , DAY_29 VARCHAR(255) , DAY_30 VARCHAR(255) , DAY_31 VARCHAR(255) , primary key (ID));
2022.01.08
-
VBA Access 日付テーブルを作成する①
1テーブルの作成２VBA作成Option Compare DatabaseOption ExplicitSub CreateTestData() ' 現在のデータベース 'CurrentDb.Connection Dim vSQL As String ' 一旦クリアする vSQL = "DELETE FROM T_DateTime;" 'SQLを実行 CurrentDb.Execute vSQL Dim dtCurrent As Date dtCurrent = Now Dim idx As Integer For idx = 0 To 32 ' １日ごとに作成 dtCurrent = DateAdd("D", idx, Now) vSQL = "INSERT INTO T_DateTime([日付]) VALUES('" & Format(dtCurrent, "yyyy/MM/dd") & "');" 'SQLを実行 CurrentDb.Execute vSQL Next idxEnd Sub【1/9までの特典】モバイルモニター 高画質フルHD 15.6インチ【3年保証 送料無料】WT-156H2-BS モバイルディスプレイ ゲーミングモニター ポータブルディスプレイ デュアルディスプレイ 液晶 IPSパネル スマートフォン Android iPhone iPad 5523
2022.01.08
全6件 (6件中 1-6件目)
1
-
-
- ヘアケアグッズの口コミ
- 61 クリームでも椿はやっぱり髪に良い
- (2024-05-25 23:14:06)
-
-
-
- 化粧品、クリスマス限定コスメどんな…
- CHANELホリデー限定セット
- (2023-11-06 20:21:41)
-
-
-
- きれいを応援するコスメ＆ヘアケア商…
- ヘアケア
- (2024-06-09 06:54:08)
-
