DoCmd.RunSQL "SQL Statement"[, UserTransaction=True]

Private Sub Example()

　　If PingResult("192.168.1.1") = False Then
　　　　MsgBox "PCが起動していません。"
　　Else
　　　　MsgBox "PCは起動しています。"
　　End If

End Sub

Function PingResult(strHostname As String)

　　Dim objWMIService As Object, objStatus As Variant

　　Set objWMIService = _
　　　　GetObject("winmgmts:{impersonationLevel=impersonate}"). _
　　　　ExecQuery("select * from Win32_PingStatus where address = '" & _
　　　　strHostname & "'", , 48)

　　For Each objStatus In objWMIService
　　　　If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
　　　　　　PingResult = False
　　　　Else
　　　　　　PingResult = True
　　　　End If
　　Next

End Function

VBで正規表現を使った文字列検索を実装します。

Dim regEx As Object
Dim Matches As Variant

'正規表現オブジェクト
Set regEx = CreateObject("VBScript.RegExp")

'検索文字列全体について検索する
'regEx.Global = True
'最初の一致を検索する(既定値)
'regEx.Global = False

'検索するときに大文字と小文字を区別しない
'regEx.IgnoreCase = True
'検索するときに大文字と小文字を区別する(既定値)
'regEx.IgnoreCase = False

'検索するパターン
regEx.Pattern = "検索パターン"

続きを読む…»

共通の関数などで、コード実行元のフォーム名やレポート名を
その都度参照するには、(Application.)CodeContextObjectプロパティを利用できます。

ちなみに、クロス集計クエリではこの値取得方法は利用できないようです。

小数点第2位で切り捨てしたいとき

Fix関数を使う
しかし、Fix関数は整数を返すので、値×（残したい小数点以下の桁数×10）の値をFixし、（残したい小数点以下の桁数×10）で割る

例）

fix(値*10)/10