Yahoo!ショッピング

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

2019年12月09日

ACCESS データベースのプロパティをVBAで確認する方法

public function GetProperties()
On error resume next
dim dbs As database
dim i As integer
set dbs = CurrentDb
with dbs
for i = 0 to dbs.Properties.Count - 1
debug.print i & ":" & dbs.Properties(i).Name
debug.print " - " & dbs.Properties(i).Value
next
end with
end function


(例)データベースプロパティの変更
キャッシュを削除する
public function setClearCacheOn()
Dim dbs As Database
If MsgBox("キャッシュをクリアします。ACCESSを再起動してください。", vbOKCancel, "キャッシュクリア") = vbOK Then
Set dbs = CurrentDb
dbs.Properties("Clear Cache on Close").Value = "1"
Set dbs = Nothing
Application.Quit
End If
end function


キャッシュを削除しない
public function setClearCacheOff()
Dim dbs As Database
Dim prp As Property
Set dbs = CurrentDb
dbs.Properties("Clear Cache on Close").Value = "0"
Set dbs = Nothing
end function
Access VBA
posted by 秘構竜 at 21:48 | Comment(0) | Office365

ACCESS 新規レコード追加したときに採番されたオートナンバーを取得する(ADO・DAO)

ACCESS 新規レコード追加したときに採番されたオートナンバーを取得する方法

ADO の場合
public function AddNewADO()
Dim dbs As ADODB.Connection
Dim rs As ADODB.Recordset
Set dbs = New ADODB.Connection
dbs.Open "ADO接続文字列"
dbs.CursorLocation = adUseServer
Set rs = New ADODB.Recordset
rs.Open "テーブル1", dbs, , adLockOptimistic
rs.AddNew
rs("フィールド1") = "テスト"
rs.Update
MsgBox "ID " & rs("ID").value & "で登録しました"
rs.Close
dbs.Close
set rs=Nothing
set dbs=Nothing
end function


DAO の場合
public function AddNewDAO()
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("テーブル1", dbOpenDynaset, dbAppendOnly, dbPessimistic)
rs.AddNew
rs("フィールド1") = "テスト"
rs.Update
rem ここがポイント
rs.Bookmark = rs.LastModified
MsgBox "ID " & rs("ID").Value & "で登録しました"
rs.Close
Set rs = Nothing
dbs.Close
Set dbs = Nothing
end function
posted by 秘構竜 at 21:02 | Comment(0) | Office365

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