AccessVBA開発 砂時計の表示（Hourglass メソッド）
(1)マウスポインタの形状を砂時計にする DoCmd.Hourglass True/False (2)いろいろな形状 Screen.MousePointer = 値 【 値 】 0:規定値 1:矢印 3:I字型 7:上下の矢印 9:...
Jomo
AccessVBA開発 
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...
Windowsコマンドプロンプト 保護中: Linuxコマンド：Windowsコマンド対比、PuTTYでsshのサーバに接続
このコンテンツはパスワードで保護されています。閲覧するには以下にパスワードを入力してください。 パスワード:
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 でくくる
AccessVBA開発 フォームのデータシート表示で列幅を調整する
単にデータシートビューで、枠を引っ張ればいい（涙） そんな単純なことかい。。。 Forms!.RowHeight = 450 Forms!!.ColumnWidth = -2 なんて、要らない。 VBAでセットしたいなら、列の幅をtwip単...