VBA
More than 3 years have passed since last update.

フォーマット

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()