| |
あるテーブルを読込んでその項目とテーブルをつけてテーブルを作成したいのですがみな同じ名前になってしまいます。
どのように記述すればいいのでしょうか？
Dim Db As Database
Dim INRs As Recordset
Dim OTRs As Recordset
Dim 読込 As String
Dim テーブル名 As String
Set Db = CurrentDb
読込 = "用度品テーブル"
Set INRs = Db.OpenRecordset(読込, dbOpenDynaset)
Do Until INRs.EOF
テーブル名 = INRs!入力No & "テーブル"
Db.Execute "CREATE TABLE テーブル名(入力Ｎｏ STRING(3)," _
& "帳票Ｎｏ STRING(50)," _
& "帳票名 STRING(50)," _
& "日付 STRING(8)," _
& "店舗コード STRING(3)," _
& "入庫 DOUBLE," _
& "出庫 DOUBLE," _
& "摘要 STRING(40))"
Set OTRs = Db.OpenRecordset("テーブル名", dbOpenDynaset)
上記のモジュールで記述するとみんなテーブル名になってしないます。
本当はINRs!入力No & "テーブル"にしたいのです。
よろしくお願いします
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
