自分の備忘録 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…