MS Access
「セキュリティに関する通知」メッセージを回避する方法 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:小数点以下切捨て
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…
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…