DoEventsの代替

ACCESS
2010-06-04 - 更新:2014-06-05

Declare Function GetInputState Lib "USER32" () As Long

if GetInputState() Then DoEvents

ACCESS, VB, VBA

4,767 views

Outlookでエラー

Windows
2010-06-04 - 更新:2012-03-23

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

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

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

2,379 views

クエリでフォームの値を参照

ACCESS
2010-05-27 - 更新:2012-03-23

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

21,478 views

WINDOWSの壁紙保存先（保存場所）

Windows
2010-04-19 - 更新:2014-06-05

C:\WINDOWS\Web\Wallpaper

1,835 views

VBA Excelシートを別ファイルにコピー

VB,VBA
2010-03-19 - 更新:2014-06-05

'# Excel作成
Public Sub mkExcel_withInvoice()
On Error GoTo Exception

　Dim xl As Object
　Dim xl2 As Object
　Dim TempPath As String
　Dim Template As String
　Dim SavePath As String
　Dim FileName As String
　TempPath = "C:\"
　Template = TempPath &amp; "雛型.xls"
　SavePath = Environ("USERPROFILE") &amp; "\デスクトップ\"
　FileName = SavePath &amp; "シートを別ファイルにコピー.xls"

　FileCopy Template, FileName

　Set xl = GetObject(FileName, "Excel.Sheet")
　xl.Parent.Windows(1).Visible = True

ACCESS, Excel, VB, VBA

7,736 views