φ(..) ビボ~6 φ(..)

主にAccess、VBAに関する備忘録

MS Access

Access2010 ランタイム

「セキュリティに関する通知」メッセージを回避する方法 Access2010ランタイム設定方法 - MK工房 右クリックでショートカットメニューを出す*1方法 マウスクリックイベントで、 If Button = acRightButton Then Application.CommandBars("Form Datasheet…

マウスホイールに関する記事

MouseWheel イベントの使い道 - YU-TANG's MS-Access Discovery MouseTrap Control

生年月日から年齢計算

年齢 = (基準日 YYYYMMDD - 生年月日 YYYYMMDD) ¥ 10000 *1 生年月日から年齢を計算する簡単な計算式 - ITpro 「生年月日から年齢を計算する簡単な計算式」は使えるとは限らない - ある地方公務員電算担当のナヤミ *1:小数点以下切捨て

FileSystemObjectで並べ替え

Const adInteger = 3 Const adDate = 7 Const adFldIsNullable = 32 Const adVarChar = 200 Dim rs Dim fs Dim fsFolder Dim fsFile Set rs = CreateObject("ADODB.Recordset") rs.Fields.Append "myname", adVarChar, 300, adFldIsNullable rs.Fields.Appen…

ODBC リンク先変更

Dim cnString As String Dim tdf As TableDef cnString = "FILEDSN=n:\Test1.dsn" For Each tdf In db.TableDefs '''If tdf.Attributes = dbAttachedODBC Then If tbDef.Attributes And (dbAttachedTable Or dbAttachedODBC) Then tdf.Connect = cnString td…