AccessVBA開発

AccessVBA開発

SQL Server のユーザー定義関数(スカラー値関数)確認

生成したユーザー定義関数は、SQL Server Management Studio の プログラミング > 関数 > テーブル値関数 ・スカラー値関数の箇所で見つけることができます。 ユーザー定義関数の作成 ・スカラー関数 (スカラー U...
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:...
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...