More than 5 years have passed since last update.

vba

Last updated at 2015-12-07Posted at 2015-12-02

フォーマット
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()