フォーマット
Format(Date, "yyyymmdd")
Time = Format(Time, "hhmmss")
ファイル操作
コピー
FileCopy a,b
ファイルのリネーム
Name a As b
ファイルの削除
Kill cstrFilePath3
件数
If rsThoge.RecordCount = 0 Then
End If
マウスを砂時計にする
DoCmd.Hourglass True
データセットの整列
Set rsThoge = db.OpenRecordset("Thoge", dbOpenDynaset)
rsThoge.Sort = "フィールド1,フィールド2,フィールド3"
Set rsThoge = rsThoge.OpenRecordset()