AccessVBA開発 型文字（0♯）-VB-
♯記号などは、「リテラル」というもので型を 暗黙に示すもので、＃はDouble型を示す。 Dim i as Double と宣言すれば i はDouble型に決まって いますので♯は要らないが、 稀に Dim i as Variant(何で...
開発
AccessVBA開発 
AccessVBA開発 ステータスバーに進捗状況等の情報を表示させる（Applicationオブジェクト、SysCmd メソッド）
＜Excel VBA＞ Application.StatusBar = “こんな感じで表示されます。" ＜Access VBA＞ Application.CommandBars("Status Bar").Visible = True ' ...
AccessVBA開発 砂時計の表示（Hourglass メソッド）
(1)マウスポインタの形状を砂時計にする DoCmd.Hourglass True/False (2)いろいろな形状 Screen.MousePointer = 値 【 値 】 0:規定値 1:矢印 3:I字型 7:上下の矢印 9:...
AccessVBA開発 配列の初期化(ReDim、Preserve、Array、Erase)
可変長配列の場合 ①はじめは、 Dim 配列名() As データ型名 ②後から要素数や次元数を宣言 ReDim 配列名(添字の上限値, ・・・) 配列を初期化する方法 ①Eraseを使って初期化する Erase 配...
AccessVBA開発 SSMS で設定されているすべてのトリガーを表示するスクリプト
SSMS で設定されているすべてのトリガーを表示するスクリプト SELECT sys.triggers.name ,sys.sql_modules.definition FROM sys.triggers INNER JOIN sys.ob...
AccessVBA開発 実行時エラー ‘3265’ オブジェクトがコレクションで見つかりませんでした。
レコードセットの値を取得するときに出たエラー。 フィールド名は絶対に間違っていないのになぜ？と思っても 実際にレコードセットのフィールド名を取得してみるのが、賢明。 ---------------------------- Dim i As...
AccessVBA開発 サブフォームのソース表示順を指定
●サブフォームのソース表示順を指定 With Me!明細フォーム.Form '並べ替えの基準とするフィールドを設定 .OrderBy = "フィールド名1,フィールド名2 DESC, フィールド名3,フィールド名4" '並べ替えを実行 .O...
AccessVBA開発 複数の値をフォームからレポートに渡す
●複数の値をフォームからレポートに渡す 【フォーム側】 Dim strOpenArgs As String '別フォームに渡す引数を組み立てる（選択項目、タイトル、日付を渡す） strOpenArgs = Nz(Me.cmb選択.Value...
AccessVBA開発 目障りな一瞬の画面ちらつきを防止（Application.ScreenUpdatingで更新停止）
VBAの画面のちらつきがたった1行で解決して処理も高速化 VBAコード処理の前に Application.ScreenUpdating = False と書いて、画面更新処理を停止します。 最後に（End Sub）の前に Applicati...
AccessVBA開発 GOTO文を使わない代わりにどうする？
●goto文の代わり 飛びたい条件式で Flg = True を設定し、 飛ばしたいところは If Flg = False Then ******* End If でくくる