• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：アクセスでテーブル定義をVBで行いたい）

VBでテーブル定義を作成する方法と手順

このQ&Aのポイント
  • VBを使用してテーブル定義を作成する方法について紹介します。
  • テキストファイルから取得した情報を元に、VBでテーブル定義を行うことができます。
  • 手動変換方法やフィールド名の入力手数省略の手がかりについても説明します。
  • maaaa
  • お礼率91% (330/362)

質問者が選んだベストアンサー

  • ベストアンサー
  • Yeti21
  • ベストアンサー率47% (396/830)
回答No.1

テーブルの作成は、例えば以下のように。 （参照設定でDAOが有効になっていないと駄目だと思います） 適当に応用が必要と思いますが、CREATE TABLE 云々は文字列なので、 適当に連結して組み立てればOKです。 Dim db As Database Set db = CurrentDb db.Execute "CREATE TABLE テーブルA (項目1 INTEGER,項目2 TEXT(20), 項目3 TEXT(30))" db.Close Set db = Nothing

maaaa
質問者

お礼

ありがとうございました 早速、試みてみます

maaaa
質問者

補足

Yeti21さん やってみたら出来ました 本当にありがとうございました

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • VBでの入力値制限について

    はじめまして。 ＶＢのテキストボックスに値を入力していき、ある桁数になるとメッセージを表示する仕組みを作りたいと考えています。 例えばVBで用意したテキストボックスにキーボードで123と入力しキーボードの4を押した直後に「桁数は3桁までです。」というメッセージを表示したいのですがいい方法を教えていただけないでしょうか？ 自分で以下のように作ってみたのですがこれだとキーボードで123と入力し次に4を入力した時にテキストボックスに4が表示されてからエラーが出ます。そうではなく4をテキストボックスに表示させずに4をおしたら以下のメッセージが出るようにしたいのです。 よろしくお願い致します。 Private Sub text1_Change() If Len(text1.Text) > 3 Then MsgBox "桁数は3桁までです。", vbOKOnly + vbInformation, "情報" End If End Sub

  • アクセスのテーブル設定について

    すいません、判らない事があるので質問します WinXPでアクセス2000です。 テーブル作成時の入力規制欄に ='フィールド名'&"jpg" というようにフィールド上の文字をそのまま取得することは可能でしょうか? ファイル名を主キーにして その横に拡張子付きのフィールド欄を作りたいのです。 お判りの方いらっしゃれば宜しくお願いします。

  • フィールドの分割

    ＤＢはアクセスなのですが、例えばフィールド１の桁数が １０桁とします。しかし実際ＶＢ上のテキストで入力させ る桁数を５桁とした場合、SELECT文で比較する時にＤＢの フィールド１の５桁分だけを持ってきたいわけなんですが ５桁のみをどうやって把握させれば良いのでしょうか？ 初心者で申し訳ありませんが、よろしくお願いします。

  • AccessのデータをVBを使って置換する

    (1)VisualBasic6.0を用いて、Access2000のデータベースに接続します。 (2)データベースの中のテーブル（テーブル名：T-カレンダー）にあるフィールド（フィールド名：コード）に保存されているデータの一部分を置換したい。（⇒途中のアルファベットを変更したい。）（例；置換前：123FFF789　置換後：123III789） 　テーブルを直接開いて、フィールドにカーソルをあわせて、”編集メニュー”の『検索と置換』から行っても出来るのですが、Accessを触らないでVBから作ったフォームから変更（置換）をさせたい。 　◇フォームに２つテキストボックスを作って、「検索する文字列」と「置換後の文字列」を入力し、『変換』ボタンを押したら、データが置換される、という流れ。 　　一回きりの置換でなくて、何回でも同じフィールド内のデータを置換したい。 　　SQLのREPLACE関数を用いて出来るかな、とは思っているのですが、どのように作成すればよろしいのでしょうか。 　また他のやり方でシンプルな方法があればお教えください。

  • Ｆｉｌｅ　Ｍａｋｅｒ６でのフィールド定義を教えて下さい

    Ｆｉｌｅ Ｍａｋｅｒ6での初心者です。 ３箇所のフィールド定義で全部テキストタイプです。 １番目のフィールドは”０００１”の様に数字のみの入力 ２番目は日本語かな入力で漢字変換しない（基本的に） ３番目は全角英数文字のみ 入力時に各フィールドに来た時に、上記の入力状態に出来ないでしょうか Ｅｘｃｅｌでは入力規制で出来るのですが ファイル　メーカー６でも出来ますか

  • VBスクリプトでテキストファイルを作りたいのです

    どなたか教えてください VBスクリプトでテキストファイルを作りたいのです テキストの内容は 　「私は2000年生まれです」（例） という内容ですが、このうち 「2000」の部分のみ数字入力を求めて 「私は」と「生まれです」は固定文です 作成するテキストのファイル名は固定にしたいのです どなたか教えてください

  • ACCESS　VBA の桁数指定はどこで行う？

    VBの桁数指定はどこで行うでしょうか。 Ａテーブルの番号フィールドがテキストタイプで４桁です。 自動採番にしたいのですが、 （略） DIM COUNT AS INTEGER COUNT = COUNT +1 でCOUNTをデバッグで見ると1です。 これを、0001として番号フィールドに書き込む方法がわかりません。 （例）下記のようにしたい。 番号 氏名 0001 山田 0002 田中 0003 高橋 　; VBの初心者なので宜しくお願いします。 そもそも、　DIM COUNT AS INTEGERでCOUNTを４桁など、変数の桁数指定はどこで指定するのでしょうか。

  • VB6 ファイルのリネームの仕方

    VB6で、ドライブリストボックス→ディレクトリリストボックス→ と順に選択していくとファイルリストボックスにファイルが見えるようになるのですが、 そのディレクトリにあるファイル名を全部テキストボックスに表示して、 ファイル名の変更をできるようにしたいのですが、どのように記述すればいいのでしょうか？ 分かる方いましたらよろしくお願いします。

  • Accessのテーブルのフィールド名のフォントについて

    Access初心者ですが、テーブルでデザインビューでフィールド名を 入力し、データシートビューに替えると、フィールド名のフォントが 明朝体のように表示されてしまいます。 以前まではゴシック体でデータシートビューでも表示されていたのですが・・・ いろいろなテキストを見ましたが、フィールド名のフォントの変更方法に ついて載っている物がありません。再起動したら直ると書いてるものはありましたが。 再起動してもやっぱり直りません。 このようなご経験がある方、フィールド名のフォントを変更する方法 ご存知であれば教えて頂けますか<m(__)m>

  • Accessで「ファイルを開く」ダイアログを表示させて画像のフルパスを入力したい。

    こちらの過去のQ/Aを参考にして作成してみましたが、表題の方法が よくわかりません。 わたしが行ったのは・・・、 ・表示したいファイル名のフルパスを持つフィールドをテーブルに持つ。 　（テキスト属性) ・フォームにそのフィールドを可視で配置する。 ・フォームにイメージコントロールを配置する。 ・Form_Loadイベントで、そのフィールドがnullでなければ、イメージ 　コントロールのPictureプロパティに、そのフィールドのValueを 　セットする。 この方法だと、あらかじめテーブルのフィールドに画像ファイルの フルパスをセットする必要がありますが、それを「ファイルを開く」 ダイアログボックスで選択し、自動で入力できるようにしたいのです。 何かいい方法はあるでしょうか。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する