Microsoft Access のみを使用して MouseWheel イベントを作成する
警告 : 可能な限り、この資料の「Visual Basic の ActiveX DLL を使用して MouseWheel イベントを作成する」に記載されている方法を使用するようにしてください。以下の方法を使用できるのは、Microsoft Access ランタイム アプリケーションなど、アプリケーションのユーザーが Microsoft Access 内で Visual Basic Editor を読み込まない場合に限られます。このソリューションを実装した場合に、ユーザーが Visual Basic Editor を開くと、以下のコードによって Microsoft Access が応答を停止します。また、Microsoft Access を起動している間に一度でも Visual Basic Editor を読み込んでいる場合は、このコードのテストを行う前に、Microsoft Access を再起動する必要があります。この方法を使用する場合には、作業内容を保存する頻度を高くし、データベースのバックアップを常に最新にしておくことを強く推奨します。

続きを読む…»

Dim varRet as Variant

varRet = SysCmd(acSysCmdGetObjectState, acForm, "[フォーム名]")

0=開いていない
1=開いている
5=新しいフォームです
7=編集されたが、まだ保存されていない

Declare Function GetInputState Lib "USER32" () As Long

if GetInputState() Then DoEvents

ハード ディスクのエラーをチェックする
[スタート] ボタンをクリックし、[ファイル名を指定して実行] をクリックします。
[名前] ボックスに cmd と入力し、Enter キーを押します。
コマンド プロンプトで chkdsk /f と入力し、Enter キーを押します。

注 : 以下のようなメッセージが表示されることがあります。
ファイル システムの種類は NTFS です。現在のドライブはロックできません。

ボリュームが別のプロセスで使用されているため、CHKDSK を実行できません。次回のシステム再起動時に、このボリュームのチェックをスケジュールしますか (Y/N)?
この場合は、Y キーを押してから Enter キーを押します。コマンド プロンプトを閉じ、コンピュータを再起動します。
CHKDSK が完了したら、コマンド プロンプトを閉じます。

クエリにてフォームの値を参照する場合、通常
Forms![フォーム名].[コントロール名]
や
[Form].[フォーム名].[コントロール名]
であるが、
汎用的に使用したい場合、CodeContextObjectを利用するとよい。
CodeContextObjectを使用した場合、記述は
[CodeContextObject].[コントロール名]
で、事足りる。