Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4007 / 9994

←次へ　｜　前へ→


	【9234】テーブル名について教えてください

たけし - 07/3/27(火) 9:18 -


	引用なし

	パスワード

あるテーブルを読込んでその項目とテーブルをつけてテーブルを作成したいのですがみな同じ名前になってしまいます。
どのように記述すればいいのでしょうか？

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 & "テーブル"にしたいのです。
よろしくお願いします

251 hits

▼

【9234】テーブル名について教えてください たけし 07/3/27(火) 9:18

≪