ひさびさのブログ更新です。書きたいことがないのではなく、書く時間がほとんどありません。というのも上司の計らいで役職につくことができました。こんな僕が役職ですwwもちろん、浮かれてはいません。ここからが勝負なんです。改めて「責任」の重みをひし…

Function 他のファイルのマクロ呼び出し() Dim objAccess As Object Set objAccess = CreateObject("Access.Application") Call objAccess.OpenCurrentDatabase("呼び出したいファイルの絶対パス") 'マクロの実行 objAccess.DoCmd.RunMacro "マクロ名" objAc…

自分の備忘録 Function getBCategId(title As String) As String Dim db As DAO.Database Set db = CurrentDb Dim rs As DAO.Recordset Dim id As String Dim colmun As String Dim result As String result = "" Set rs = db.OpenRecordset("テーブル名") D…