• 締切済み

ACCESS2000 フォームからデータのインポートを起動するには

お世話になります。 フォーム内にコマンドボタンを配置し、そのボタンをクリックしたら、ファイルからテーブルへデータのインポートを起動するようにしたいのですが、イベントプロシージャで、どのように記述すればよいでしょうか。 あるいは、そんなことはできないのでしょうか。

みんなの回答

  • 20020718
  • ベストアンサー率48% (13/27)
回答No.2

>ファイルからテーブルへデータのインポートを起動するようにしたいのですが、 とのことですが、 「インポート画面を起動」させる方法は、わかりません。 しかし、 TransferSpreadsheet を使えば、excelファイルをaccessのテーブルへインポートできます。 VBのヘルプのキーワードに、「TransferSpreadsheet」と入力すると、 詳細が書いてあります。 以下URLをご参照ください。。。

参考URL:
http://www.accessclub.org/samplefile/samplefile_127.htm
hinebot
質問者

お礼

ありがとうございます。参考URL使えそうです。ちょっと勉強しますね。

  • Te-Sho
  • ベストアンサー率52% (247/472)
回答No.1

ファイルをインポートと言いますがファイルはテキスト?CSV?Excel?により少しずつ変わります。ボタンを押したときにVBAをコーディングするかマクロをコールします。 マクロの方が簡単ですね。 マクロだったらExcelシートならワークシート変換、CSV・テキストならテキスト変換で指定したテーブルにレコードのインポートが行えます。 テキスト変換だったら一度、手動でテキストファイルのインポートを行うとテキストインポートウィザードを起動し設定ボタンによりインポート定義がつくれますので自由に項目の区切り等を設定できます。 詳しくはマクロで知りたいアクションを表示したらF1を押してヘルプを参照してください。 VBAでしたらdocmdのメソッドに同等の物があります。それもdocmdのヘルプを参照してください。

hinebot
質問者

補足

済みません。VBAの書き方を質問したつもりだったんですが。ファイルはExcelです。「インポートする」ということが起動できれば、細かい指定等は手動でいいんですが…。 ちょっと自分でも調べてみますが、よろしければアドバイスお願い致します。

関連するQ&A

  • Accessにエクセルからデータをインポートしたい(VBA)

    Access(2000)のVBAでExcel(2000)からデータをインポートしたいと思います。 詳細は以下の通りです。 フォームでコマンドボタンをクリック時にダイアログボックスが開き、ファイルを指定し、該当のシート(シート名はどのファイルも固定)のデータをアクセスのテーブルにインポートしたい。 どうしたらできるのかここ数日悩んでいます。 よい方法がありましたら教えてください。

  • access の 閉じるボタンを無効に出来ますか

    お世話かけますがよろしくお願いします。 ACCESSファイルの「起動時の設定」をメニューフォームにしています。 メニューフォーム上にコマンドボタンを配置して、クリックイベントで 次の「次フォーム」を開くようにしています。 「次フォーム」上に閉じるコマンドボタンを配置して、この次フォームのみを閉じるようにしていますが、 右上隅にある閉じるアイコン?をクリックすると全てが終了しますので このアイコンを無効にしたいのですが

  • アクセス フォームからテーブルのダイアログを出して

    XPアクセス2000でフォームからテーブルのダイアログを出して テーブルを選択したいのです。 フォーム上にはテーブルを変換するイベントプロシージャーがすでにできています。 がテーブルが案件ごとに違っていて以前のテーブルや新しくインポート してきたテーブルなど複数あります、変換したいテーブルをダイアログで 選択したいのですがコマンドらしきものがなさそうなので 教えてください。

  • ACCESS VBAで別のプロシージャを呼びだした後

    いつもお世話になります。 ACCESS VBAで、別のプロシージャを呼びだし、 フォームを開き、あるコマンドボタンをクリックすると、 もとに戻ってくるようにしたいのですが、 call で別のプロシージャを呼びだし、フォームを開くところまではうまくいくのですが、コマンドボタンをクリックする前に戻ってきてしまいます。 コマンドボタンにはイベントプロシージャを設定しているのですが、 それではダメなんですよね? どのようなコードになるのでしょうか?よろしくお願いします。

  • ACCESS2000のサブフォームのデータをイベントプロージャで格納する方法

    前にも同様のご質問をさせていただきましたが、解決しませんでしたので、もう一度質問させていただきます。 データ入力をACCESSで入力をしたいと考えております。 今回の場合にはサブフォームを使用するのですが、メインのフォーム側のボタンをクリックしただけで、メインのフォームに書かれたデータはメインのテーブルへ、サブフォームに書かれたデータはサブのテーブルへそれぞれデータを格納するには、[イベント プロシージャ]ではどのように記述すればよろしいのでしょうか。 よろしくお願いいたします。

  • アクセスと起動する。

    フォームにコマンドボタンを配置しクリックすることによって オフィスのアクセスの「A」と言うデーターベースを起動し同時にVisual Basicで作成した(コマンドボタンを配置した)フォームを最小化にしたいのです。 宜しくお願い致します。

  • アクセスで「モジュールがありません」となってしまいます

    ACCESS2000を使用しています。 メニュー用のフォームに、データ照会用のフォームを 呼び出すコマンドボタンを追加し、フォームビューに切り替え 試しにクリックしていみたら実行時えら'2001';となりました。 どうみても記述に間違いはないとおもわれるのですが、そうこう しているうちに」ほかのイベントプロシージャを設定してある コマンドボタンをクリックすると「モジュールがありません」 (こうなる前までは正常に動作していました)となって動作 しなかったり、照会用のフォームにいたってはデザインビューで も開かなくなってしまいました。 元に戻すことはできるでしょうか? 助けてください。

  • Accessのフォームで入力したファイル名を使ってインポートする方法

    Access2000を使ってデータを変換するツールを作ろうとしています。元データをTransferTextを使って取込むことにしたのですが、複数のファイルを取込む為、TransferTextのパラメータであるディレクトリパスとファイル名を、フォーム等で入力して処理したいと考えています。 フォームは次のようなイメージです。 ---------------------------------------------- ■TransferTextを使ってデータを取込むイベント?を呼び出すボタン ■ディレクトリパス、ファイル名の入力ボックス ■入力ボックスに値を入力 ■ボタンをクリックすると、入力値を参照して目的のファイルを定義済のイベントプロシージャ?で取込む ---------------------------------------------- ポップアップで入力する方式はちゃんと動いたのですが、フォーム上で入力した値(ディレクトリパス、ファイル名)を、プロシージャで使うようにしたいのです。 (ファイル名はいくつもありますが、ディレクトパスは共通なので、毎回入れるのが手間なので・・) アドバイスいただきたく。

  • フォームからのレコード削除について

    access超超初心者です。 フォームのコマンドボタンをクリックすると テーブルのレコードを追加または削除する方法を教えてください。 [イベントプロシージャ]を使用して、どのようなプログラムを書けば いいのでしょうか? ど素人の質問ですいません。

  • 入力フォームからエクセルデータをアクセスにインポートしたい

    入力フォームからエクセルデータをアクセスにインポートしたいと考えています。 入力フォームに、参照ボタンをつけて対象となるエクセルファイルを指定することはできましたが、その後、そのデータをアクセスのテーブルにインポートしたいと考えています。可能でしょうか。 宜しくお願い致します。 *********入力フォーム***************** <form method="POST" action="test.asp"> <input type="file" name="excel"> <input type="submit" value="送信"> </form> *********test.asp***************************************** *******ACCESSに接続まではできるが、エクセルのデータを testテーブルにインポートする方法がわからない。 また、インポートする前にtestテーブルのデータを 全て削除したいと考えています。****** Set db=Server.CreateObject("ADODB.Connection") db.Provider = "Microsoft.Jet.OLEDB.4.0" db.ConnectionString = Server.MapPath("test.mdb") db.open