Access VBA質問箱 IV

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

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


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

7704 / 9994

←次へ　｜　前へ→


	【5475】Re:テーブルの作成方法

takataka - 05/6/22(水) 13:57 -


	引用なし

	パスワード

早速のご返信有難うございます。
別の方法で下記の様に行ったのですが、値が転記されません。
因みにYES/NO型はどの様に記述したら宜しいでしょうか?

Public Sub table()
Dim cat As ADOX.catalog
Dim tb As ADOX.table
Set cat = New ADOX.catalog
cat.ActiveConnection = CurrentProject.Connection
Set tb = New ADOX.table
tb.Name = Forms!フォーム2!配布週
tb.columns.Append "備考", adVarWChar, 64
tb.columns.Append "配布週", adVarWChar, 255
tb.columns.Append "回収期限", adVarWChar, 255
☆☆☆←の部分にYES/NO型を表記したいです。
cat.Tables.Append tb
MsgBox ("終了です")
Set cat = Nothing
End Sub

▼小僧さん：
>▼takataka さん：
>こんにちは。
>
>単なるテーブルのコピーでしたら
>「CopyObject」メソッドが使えそうですね。
>
>>>ヘルプより
>>>次の例では、CopyObject メソッドを使って、
>>>[社員] テーブルをカレントデータベースにコピーし、新しい名前を付けます。
>>>
>>>DoCmd.CopyObject, "社員コピー", acTable, "社員"

1,307 hits

▼

【5470】テーブルの作成方法 takataka 05/6/22(水) 9:02