Yahoo!ショッピング

2020年03月18日

SharePoint Online カスタムリストをJSONで書式設定(例)

いやあ難しいね。SharePointのカスタムリスト。書式設定をカスタマイズできることは分かったが、記述はJSONとは。
とりあえず現在の時刻と営業時間設定を比較してテキストを「営業終了」に差し替える方法をメモ。

{
"schema": "https://developer.microsoft.com/json-schemas/sp/view-formatting.schema.json",
"elmType": "div",
"attributes": {
"class": "=if((@currentField <= @now, 'sp-field-severity--severeWarning', '')"
},
"children": [
{
"elmType": "span",
"style": {
"display": "inline-block",
"padding": "0 4px"
},
"attributes": {
"iconName": "=if(@currentField <= @now,'Error', '')"
}
},
{
"elmType": "span",
"txtContent": "営業終了"
}
]
}


参考サイトはこの辺
https://docs.microsoft.com/ja-jp/sharepoint/dev/declarative-customization/view-formatting
https://docs.microsoft.com/ja-jp/sharepoint/dev/declarative-customization/column-formatting
https://qiita.com/Momomo_ai/items/58bf768fb83bddfbdca1
posted by 秘構竜 at 23:18 | Comment(0) | Office365

2019年12月16日

ACCESS レコードが存在するときは更新、存在しないときは新規追加

ACCESSでレコードが存在するかどうか事前にチェックし、存在するときは更新を、存在しないときは新規で追加するプログラム。
存在チェックは今回はDAOを使った。
Sub CheckRecordExixt()
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim strsql As String
Dim txtID As Long
Set dbs = CurrentDb
strsql = "select * from テーブル1 where ID=" & txtID
Set rs = dbs.OpenRecordset(strsql, dbOpenDynaset)
If rs.EOF Then
'1件もないから新規登録
rs.AddNew
'処理
rs.Update
Else
'すでに存在しているから更新
rs.Edit
'処理
rs.Update
End If
rs.Close: Set rs = Nothing
dbs.Close: Set dbs = Nothing
End Sub
posted by 秘構竜 at 22:29 | Comment(0) | Office365

2019年12月10日

ACCESS 外部データの取り込みで表示されるSharePointサイトを削除

以下のレジストリに保存されているので削除すればOK
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\Recent Sharepoint Sites]
posted by 秘構竜 at 21:50 | Comment(0) | Office365

【温泉】ホテル・旅館ランキング(全国)
秘構竜の日記」の先頭へ