開発

AccessVBA開発

型文字(0♯)-VB-

♯記号などは、「リテラル」というもので型を暗黙に示すもので、#はDouble型を示す。Dim i as Double と宣言すれば i はDouble型に決まっていますので♯は要らないが、稀に Dim i as Variant(何でも型)と...
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:左右の矢印11:砂時...
AccessVBA開発

配列の初期化(ReDim、Preserve、Array、Erase)

可変長配列の場合①はじめは、     Dim 配列名() As データ型名②後から要素数や次元数を宣言    ReDim 配列名(添字の上限値, ・・・)配列を初期化する方法①Eraseを使って初期化する    Erase 配列名 ※この場...
AccessVBA開発

SSMS で設定されているすべてのトリガーを表示するスクリプト

SSMS で設定されているすべてのトリガーを表示するスクリプトSELECT sys.triggers.name ,sys.sql_modules.definitionFROM sys.triggersINNER JOIN sys.objec...
AccessVBA開発

実行時エラー ‘3265’ オブジェクトがコレクションで見つかりませんでした。

レコードセットの値を取得するときに出たエラー。 フィールド名は絶対に間違っていないのになぜ?と思っても 実際にレコードセットのフィールド名を取得してみるのが、賢明。---------------------------- Dim i ...
AccessVBA開発

サブフォームのソース表示順を指定

●サブフォームのソース表示順を指定 With Me!明細フォーム.Form '並べ替えの基準とするフィールドを設定 .OrderBy = "フィールド名1,フィールド名2 DESC, フィールド名3,フィールド名4" '並べ替えを実行 ....
AccessVBA開発

複数の値をフォームからレポートに渡す

●複数の値をフォームからレポートに渡す 【フォーム側】 Dim strOpenArgs As String '別フォームに渡す引数を組み立てる(選択項目、タイトル、日付を渡す) strOpenArgs = Nz(Me.cmb選択...
AccessVBA開発

目障りな一瞬の画面ちらつきを防止(Application.ScreenUpdatingで更新停止)

VBAの画面のちらつきがたった1行で解決して処理も高速化 VBAコード処理の前に Application.ScreenUpdating = False と書いて、画面更新処理を停止します。 最後に(End Sub)の前に Applica...
AccessVBA開発

GOTO文を使わない代わりにどうする?

●goto文の代わり 飛びたい条件式で Flg = True を設定し、 飛ばしたいところは If Flg = False Then ******* End If でくくる