ACCESS クエリ内での改行入力

ACCESS
2011-01-24 - 更新:2020-04-09

Visual Basicでは改行を表現する際、vbCrLfと表記しますが、
更新クエリ等で改行を含んだ処理をしたいときは利用できません。

その場合、以下のように改行を表現します。

Chr(13) & Chr(10)

Chr(10) = LF（ラインフィード）
Chr(13) = CR（キャリッジリターン）

ACCESS, VB, VBA

35,117 views

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 を再起動する必要があります。この方法を使用する場合には、作業内容を保存する頻度を高くし、データベースのバックアップを常に最新にしておくことを強く推奨します。

ACCESS, VB, VBA

5,766 views

フォームの状態を調べる

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

Dim varRet as Variant

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

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

ACCESS, VB, VBA

2,040 views

DoEventsの代替

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

Declare Function GetInputState Lib "USER32" () As Long

if GetInputState() Then DoEvents

ACCESS, VB, VBA

4,338 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,456 views