| |
▼エマ さん：
Private Sub sample()
Dim myDATEstr As String
myDATEstr = Format(Date, "_yyyymmdd")
DoCmd.Rename "T_ADRESS" & myDATEstr, acTable, "T_ADRESS"
End Sub
または
Private Sub sample2()
Dim myDATEstr As String
myDATEstr = Format(Date, "_yyyymmdd")
CurrentDb.TableDefs("T_ADRESS").Name = "T_ADRESS" & myDATEstr
End Sub
こんな感じで。
sample2はDAOへの参照設定が必要？かも＾＾；；
ついでに
Private Sub sample3()
Dim myDATEstr As String
myDATEstr = Format(Date, "_yyyymmdd")
DoCmd.CopyObject , "T_ADRESS" & myDATEstr, acTable, "T_ADRESS"
End Sub
テーブルのコピーです。
参考までに・・・
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
