ページ設定関連のプロパティ Reports("REPORT_NAME").PrtDevMode Reports("REPORT_NAME").PrtDevNames Reports("REPORT_NAME").PrtMip プロパティのデータ型 Byte型配列 Dim baPrtDevMode() As Byte Dim baPrtDevNames() As Byte Dim baPrtMip() As Byte テ…

トリガ名がテーブル名に由来している場合の、トリガ一括削除の例 '/* '/* トリガーの一括削除 '/* Public Sub doDropTrigger() Dim rs As New ADODB.Recordset Dim adf As ADODB.Field Set rs = Con.OpenSchema(adSchemaTables) Do Until rs.EOF 'ユーザーテ…

ダウンロード: OFFXPDEV: MSCOMCT2。OCX が Microsoft Office XP の開発者には含まれていません

Access 2010 の仕様 - Access - Office.com 10 Essential Microsoft Access 2010 Tips for Beginners - pcmag.com Access 2010からODBCでクラウドのSQL Azureに接続可能。そのメリットは？ − Publickey MukkuMuku備忘 本家サポートより助けになるサイトだと…

参考にしたサイト: Access2010がよく停止する。 | Microsoft Answers Access 2010 SP1 – You receive random crashes in certain database | Microsoft Answers フォーム等をOPENすると強制終了するところから始まり、 デザインで開けなくなり、 VBEそのもの…

Form_Load と同じ処理をしたい場合は、 Private Sub Form_Resize() Call Form_Load End Sub とすると良いかも..... Activateイベントではダメな気が.....

ACCESSの↓こんな感じのことをSQL Serverでも実現したい。 SELECT FLD1, First(TABLE_A.FLD2) AS FLD2, First(TABLE_A.FLD3) AS FLD3 FROM TABLE_A WHERE FLD3 IS NOT NULL GROUP BY FLD1 SQL Server: 基本レコード FLD1 FLD2 FLD3 1 1 NULL 1 2 あ 1 3 い 2 …

OpenSchema メソッド '/* '/* テーブルの存在有無 '/* '/* 引数: テーブル名 '/* 戻値: True 有／ False 無 '/* Private Function fnExistTable(pTbName As String) As Boolean Dim bExist As Boolean Dim rs As New ADODB.Recordset Set rs = Con.OpenSchem…

以下のようなエラーに対する対処に関するリンク集：実行時エラー '339' コンポーネント 'COMDLG32.OCX'、またはその依存関係のひとつが 適切に登録されていません。ファイルが存在しないか、あるいは 不正です。 症状Administrator（管理者）権限でインスト…

実行時エラー'91':オブジェクト変数または With ブロック変数が設定されていません。 VBなど外部からAccessを呼び出すときに発生する場合 ACC2003以上の場合、マクロのセキュリティを（低）に下げてみる。 ACC2003 : [ツール]-[マクロ]-[セキュリティ] → セ…

Regedit → 削除したいキーを右クリック → エクスポート→ エクスポートでできた .reg ファイルを編集→ キーの前に 『 - 』（マイナス）を追加例）hoge.reg Windows Registry Editor Version 5.00[-HKEY_CURRENT_USER\Software\VB and VBA Program Settings*1\…

Alt を押してメニューバーを出す。→ フォルダオプション Windows 7 での拡張子表示 - No Dragons , No Life

10 Essential Microsoft Access 2010 Tips for Beginners - pcmag.com Access 2010からODBCでクラウドのSQL Azureに接続可能。そのメリットは？ − Publickey

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

Active directoryドメインサービスウィザード : dcpromo.exe 初めてのWindows Server 2008R2（Active Directory編）：AD DS(Active Directory Domain Service)のセットアップ - 放浪するエンジニアの覚え書き インストールでなんだかうまくいかないとき： シ…

ある日、タスクトレイからMicrosoft Security Essentialsのアイコンが消えていた。 [スタート]-[すべてのプログラム]から起動できるが、タスクトレイに入らない。 ログオフ → ログオン タスクトレイにアイコンが表示されるようになった。いつタスクトレイか…

共有フォルダを持つ Windows 2000/XP に管理者でログオンします。 [スタート]−[ファイル名を指定して実行] から regedit を起動します。 HKEY_LOCAL_MACHINE \SYSTEM \CurrentControlSet \Services \LanmanServer \Parameters を展開します。 [編集]−[新規]−…

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

CSV形式でエクスポートしたアドレス帳をインポートすると文字化けする場合 メモ帳で、文字コード ANSI → UTF-8 にして保存する。 メッセージを移行する方法

※PowerShellスクリプトファイル(.ps1)を実行する場合、実行ポリシーを変更しておく必要がある。 現在の実行ポリシーを確認する： Get-ExecutionPolicy 実行ポリシーを設定する： Set-ExecutionPolicy ＜ポリシー名＞*1 ポリシー名*2: Restricted 既定の実行…

年齢 = (基準日 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…

日付の計算 10日前: (Get-Date).AddDays(-10) 10日後: (Get-Date).AddDays(10) 日付の編集（数字だけにする） 今日: Get-Date -format "yyyyMMdd" 10日後: Get-Date (Get-Date).AddDays(10) -format "yyyyMMdd" 3月24日: Get-Date 3/24 -format "yyyyMMdd"

Error 46でLAN接続できない場合： ※Windowsファイアウォール 受信の規則に以下を追加 TCPポート 1433 UDPポート 1434 SQL Server 2008 Express TCP/IP接続設定 | rokuz Connection from a Windows Service could be blocked by firewall even if firewall is…