Access（アクセス）

Microsoft AccessにてTranseferTextを用いてCSVファイルをエクスポートする際に、Accessのmdbファイルと同じディレクトリに出力したいと考えています。 参考書やネットを調べましたが、TransferTextで出力先を指定するには、ファイルを絶対パスにて指定する例しか見当たらず、また、試しに相対パスを自分で書いてみてやってみましたが、出力されません。 相対パスではできないのでしょうか？ それとも相対パスの書き方が悪いのでしょうか？ 自分で書いたのは、こんな感じのVBA文です↓ DoCmd>TransferText acExportDelim," Tbl_output エキスポート定義", "tbl_output", "./seikyu.csv", True

こんにちは。 初めて質問をさせて頂きますcimappleと申します。よろしくお願いいたします。 現在、業務にて使用するデータベースをAccessにて作成しておりまして、VBAにてフォームの各処理を記述しています。 ちなみに、当方Access、VBAについて超初心者ですので、そもそもの誤解がある部分もあるかと思いますが、ご容赦ください。 さて、質問の内容ですが、今回フォーム上にある14個のラベルを、マウスカーソルが乗った時（MouseMoveイベント）にそのラベルの背景色を変えるコードを組みたいと考えています。 現状としては、それぞれのラベルのMouseMoveイベントに背景色を変えたり、戻したりといったコードを記述していますが、当然非効率かつ面倒なのです。 そこで、このイベントを共有化したいと考え、いろいろと検索したところ、クラスモジュール（Private WithEvents）にてそういったことができそう・・・というところまでは辿り着いたのですが、その先が全く分かりません。 Excelについてのクラスモジュールの記事はたくさん見つけて、コピーペースト見よう見まででマネてはみたのですが、当然うまくいかず、そこから先に進めないでおります。 クラスモジュールについて基礎から勉強しなさいと言われればその通りなのですが、どうかお知恵をお貸し頂きたく質問させていただきました。 よろしくお願いいたします。 以下、見よう見まねの現在のコードです。 ちなみに、フォーム名はFRM1、ラベル名はそれぞれLbl○、クラスモジュール名はCLS1となっています。 Form(FRM1)のコード ======================================================= Option Compare Database Option Explicit Dim MyLbl(14) As CLS1 Private Sub Form_Load() Dim Lbl As Access.Label Dim i As Integer For i = 1 To 14 Set Lbl = Me.Controls("Lbl" & i) Set MyLbl(i) = New CLS1 Set MyLbl(i).Label = Lbl Next End Sub ======================================================= Class(CLS1)のコード ======================================================= Option Compare Database Option Explicit Public WithEvents Label As Access.Label Private Sub Label_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label.BackColor = 225 End Sub ======================================================= 長文かつ駄文で申し訳ありませんでした。

ACCESS2007/2010で、ユニオンクエリ（10個のテーブルをつないだ）から新テーブルを作りたいのですが、検索で調べて、なかなかピタリと説明してくれているサイトが見つかりません。。。 「ユニオンクエリ０１」の指定 作成－クエリデザイン、閉じる、テーブルの作成 辺りをいじるんだと思われますが、 どなたか正確にナビして頂けませんでしょうか？

ACCESS初心者です。独学なので、つたない言葉と下手な質問かも知れませんが、よろしくお願いします。 現在、会社で受注管理システムをつくり、運営管理しています。 昨晩から、急に以下のデバックエラーが出始めました。 実行時エラー　３ Returnに対応するGosubがありません。 黄色く記されたコードは、こちらです。 Private Sub 選択_Click() Forms![原価管理入力（実績）F]![原価管理サブ（実績）F].Form![取引先コード] = Me![取引先コード] End Sub 取引先コードをクリックすると、取引先マスターのポップアップウィンドウが開き、入力したい取引先を選択すれば（コマンドボタン）、原価管理サブ（実績）フォームに値が代入される。というものです。 ちなみに、この原価管理サブ（実績）フォームにタグを２ページ設けていて、２ページ目は以下です。 こちらは、何の問題もなく値の代入ができます。 Private Sub 選択_Click() Forms![原価管理入力（実績）F]![経費入力サブ（実績）F].Form![取引先コード１] = Me![取引先コード] End Sub 不思議なことに、２ページ目の取引先コードのポップアップウィンドウを開いてから、１ページ目に戻ると、デバックエラーは出ません。 説明がつたなくて申し訳ございませんが、社員から使いにくいと、指摘があって必死です。 ご教示お願い致します。

Accessで入力フォームを作成しています。 参照式が突然「#Name?」となってしまい表示されません。 また、「イベントプロパティに指定した式クリック時でエラーが発生しました：オブジェクトまたはクラスがこのイベントセットをサポートしていません」というメッセージの解決方法がわかりません。 作成したテーブルは次の２つです（見積書作成用のデータベースを作ろうとしています）。 ・見積基本情報テーブル ・見積明細テーブル 見積基本情報テーブルは、得意先名称や担当者等の基本情報を入力します。 見積明細テーブルは、使用する材料の明細、単価、金額等を入力します。 【質問１】 見積明細テーブルに入力用するためのフォームを作成しました。 見積番号（テキスト形式）をキーに以下の参照式を入れています。 =DLookUp("[名称]","見積基本情報テーブル","[見積番号]='" & [見積番号] & "'") 今までは参照できていたのに、突然、「#Name?」となってしまい表示されません。 （他のフォームにも同じ関数を入れていますが、そのフォームは正しく参照ができています。） 何が原因かわかりません。 【質問2】 また、フォームに「明細追加ボタン」を作成し、以下のコードで新しいレコードの追加＆見積明細Noを自動で採番できるようにしました。 DoCmd.GoToRecord , , acNewRec Me![見積明細No].DefaultValue = DMax("[見積明細No]", "[見積明細テーブル]", "見積番号 =" & "'" & Me![見積番号] & "'") + 1 はじめはうまくいっていたのに、「イベントプロパティに指定した式クリック時でエラーが発生しました：オブジェクトまたはクラスがこのイベントセットをサポートしていません」というメッセージが出るようになってしまいました。 これらのエラーが出るようになった直前に追加した作業は、単価×数量を計算した値を「金額」欄に入れるマクロ（「値の代入」）です。 基本的なエラーなのかもしれませんが、初心者なので、自分では何がいけないのかが全くわかりません。（市販の本を読みながら作業をしています） よろしくお願いします。

Accessでのフォームの操作についてお教え下さい。 使用しているバージョンは2010です。 フォームＡにボタンを設置し、フォームＢを開くようにしました。 フォームＡとＢはIDで連携し、指定したレコードを開くようにしています。 フォームＢには、サブフォームＣがあります。 サブフォームＣには複数のレコードが入っており、 こちらも指定したレコードを表示させてたいのですが方法が分かりません。 フォームＡに設置したボタンを押すと、フォームＢの指定したレコードを開き、 フォームＢ内にある、サブフォームＣの指定したレコードを表示させたいです。 VBA等で制御することは可能でしょうか。 可能でしたら方法をお教え下さい。 宜しくお願いいたします。

Access2010でVBAを勉強しています。クエリオブジェクトからレコードセットを作れるかお教えください。 クエリのデザイン作成で３つのテーブルからデータを抽出するクエリを作りました。 このクエリオブジェクトからレコードセットを作りたいと思っていますが、作り方がわかりません。 よってクエリオブジェクトのSQLビューでSQLを確認し、VBAの中で下記のようにSQLを作ってレコードセットを作っています。 これだと効率が悪いので、クエリオブジェクトから直接レコードセットがつくれないかと思っています。 方法がありましたらお教え下さい。よろしくお願いします。 strSQL = "SELECT master.[サイズ], master.単価," strSQL = strSQL & "Nz([入庫数量の合計])-Nz([出庫数量の合計]) AS 在庫数" strSQL = strSQL & " FROM (master LEFT JOIN Q_出庫 ON master.[サイズ] = Q_出庫.[サイズ])" strSQL = strSQL & " LEFT JOIN Q_入庫 ON master.[サイズ] = Q_入庫.[サイズ]" objADORS.Open "T_出庫", objADOCON, adOpenDynamic, adLockOptimistic

Microsoft Access2010を使い始めた者です。 名前の格納を、姓フィールドと名フィールドに分けてしていますが、 ”山田”と”太郎”の両方が一致するレコードがあった場合は 登録しないように一意性制約をかけたいと思っています。 アクセスではどのように設定したらよいでしょうか？ Googleで検索をかけましたらわかりませんでした。 よろしくお願いします。

　Access2007のVBAで、あるフォルダ内の全CSVをインポートしたくて、次のページを参考にして、標準モジュールを組みました。 　そして、あるフォルダ内全CSVのインポートには成功しました。 　その時、全CSVはテーブル「Import_Table」にインポートされます。そこで、インポート時に元のCSVのファイル名をインポート先のテーブルの最後のフィールドに追加することはできるでしょうか？ もし、知っておられる方がいたら、教えてください。 お願いします。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1226480442 _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ Sub ImpCSV() Dim objFs As Object Dim objFld As Object Dim objFl As Object Const cnsFILEPATH = "C:\Documents and Settings\hoge\デスクトップ\hogehoge" 'フォルダー名 Const cnsTABENAME = "Import_Table" Set objFs = CreateObject("Scripting.FileSystemObject") Set objFld = objFs.GetFolder(cnsFILEPATH) For Each objFl In objFld.files If Right(objFl.Name, 4) = ".csv" Then DoCmd.TransferText TransferType:=acImportDelim,"インポート定義",tablename:=cnsTABENAME, _ filename:=cnsFILEPATH & "\" & objFl.Name, hasfieldnames:=False End If Next Set objFl = Nothing Set objFld = Nothing Set objFs = Nothing End Sub /_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

Access 2007で、テーブルからレコードを削除するクエリを作りたい。 具体的には、テーブルAのフィールドF1とテーブルBのフィールドF2があるとします。このとき、テーブルA中の各レコード（仮にXとします）であって、そのF1の値と同じ値をF2に持つレコードがテーブルBに含まれている場合は、（テーブルAから）そのレコードXを削除するという処理をしたいのです。ややこしいと思いますが、これをクエリやマクロで作ることはできるでしょうか? 私はVBAを知らない初心者です。上の処理も文章で書くと理解してもらえるかどうか不安ですが、だれか助けて下さい。

Access 2重のルックアップフィールドで、ID番号ではなく、名称を表示したい。 Access 2010を最近昨日から始めました。データベースの正規化がうまくないかもしれませんが、以下の現象で困っています。 ・メーカーテーブル：メーカーID/メーカー名 ・部品テーブル：部品ID/メーカー名：メーカーテーブルよりルックアップフィールド（メーカーテーブルのIDとリレーション） ・在庫テーブル：在庫ID/部品名：部品テーブルよりルックアップフィールド（部品テーブルの部品IDとリレーション） 上記のテーブル構成だとします。 部品テーブルでは、ルックアップフィールドで、”メーカー名”が表示されています。これは問題ありません。 次に在庫テーブルで、部品をルックアップテーブルで選ぼうとすると、メーカー名が文字列で表示されてほしいところが、メーカーIDの数値がでてしまいます。部品テーブルのメーカー名が”数値型”で管理されていることが原因だと思いますが、ここをメーカーIDではなく、メーカー名を出すことはできますでしょうか？

AccessのテーブルをExcelにエクスポートする際の並び順が狂う Access2002で、テーブルの内容をExcelにエクスポートする際、 エクスポートされたExcelを確認しますと、 必ずといっていいほどの確率で、並び順が狂います。 どう狂うかというと、例えばAccess上でAテーブルを開くと、 フィールド名：SEQ(プライマリキー)の昇順で1から順に並んでいるとします。 このAテーブルをExcelにエクスポートし、そのExcelを開くと、 SEQの途中の一部分が、前や後ろの方にごっそり移動していたりします。 他の部分はSEQの昇順で並んでいます。 その狂い方は、毎回異なります。 Excelの出力の方法は、VBAで「DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Aテーブル", 保存先, True」で行っても、 Aテーブル右クリックでエクスポートでExcel出力しても、並び順が狂います。 これはなぜでしょうか？ よろしくお願いいたします。

よろしくお願いします。 仕様環境（access2003,access2007） access　データベースを作っています。 データベース内にテーブルがいくつかあるのですが、 他人に勝手に変更（レコードの追加や削除）してもらいたくない テーブルがあります。 （どんどん件数が足される仕様のものではないので） 何かいい方法はありますでしょうか？ データベースウィンドウ全体（2007だとナビゲーションウィンドウ）を 隠す方法は知ってますが、違う方法を考えています。 ちなみにリンクテーブルは使っていません。 教えてください、よろしくお願いします。

Access2003 WinXP です。宜しくお願いします。 AccessのVBAでExcelファイルをコピーしたり開いたり テキストボックスの内容を書き換えたりしています。 Excelにてコントロールツールボックスから作成したコマンドボタンがあるのですが、このボタンのクリックイベントを AccessのVBAから実行させる方法を探しています。 ちなみに訳あって標準モジュールに書かれているわけではないので マクロを呼び出す方法は不可でした；； 標準モジュールに移すのは無しの方向で どなたか分かる方いらっしゃいましたらお願いします。

こんにちは。 Access 2003以前は、テーブルなどのドキュメントを開くとウインドウで表示されていたかと思いますが、2007からタブで表示されるようになりました。 そこで、タブを切り替える際、いちいちマウスでやるのが面倒なので、ショートカットキーがあればなぁと思い、定番のCtrl+Tabをやりましたが、切り替わりません。 ネットで検索しても特に言及しているサイトが見当たらなかったので、どなたかご存知ならご指南ください。

'テーブル[売上]に主キーを設定します DoCmd.RunSQL "ALTER TABLE 売上 ADD PRIMARY KEY (No);" 'テーブル[売上]の主キーを解除します DoCmd.RunSQL "DROP INDEX PRIMARYKEY ON [売上];" Access2007を使用しています。 VBAで主キーの設定・解除をするため、上記のプログラムを組みました。動かしてみると、設定はできたのですが、解除のプログラムで以下のエラーメッセージがでました。 実行時エラー'3372': テーブル'売上'にインデックス'PRIMARYKEY'が見つかりませんでした。 見つからないと出たので売上テーブルを開き確認をしたところ、ちゃんと主キー設定されていました。 そこで手動で主キーの設定しなおしプログラムを動かすと、解除プログラムが動きました。 手動で設定すると動くのですが、何故プログラムで設定した主キーでは動かないのでしょうか。 ご教授のほど、よろしくお願いします。

ラベルボックスの幅を狭くするために2行表示（EXCELではALT+ENTER）にするにはどうしますか。 今はテキストエディターで2行の文字列にしてこれをコピーしてラベルボックスに貼り付けていますが より楽な方法がありますか。

ツール→「起動時の処理」というのはあるのですが 終了時にマクロを実行したい場合はどうすればいいのでしょうか？ エクセルで言う「Workbook_BeforeClose」みたいなことはできないのでしょうか？ よろしくお願いします。

お世話になります。 SQL Serverの中のmdfファイルをAccessで開きたいのですが、 手順がいまいち分からないので教えて頂けないでしょうか。 コントロールパネル － 管理ツール － データソース（ODBC）－ システムDSN の中にSQL Serverがあることを確認。 Accessを起動してファイル － 外部データの取り込み － インポート ファイルの種類 － ODBCデータベース この後、データソースの選択というダイアログが出ますが ここでは先程のコントロールパネルのシステムDSNの中にあった "SQL Server"を選択すれば良いのでしょうか？ また、SQL Serverというのは必ずID・Passが設定されていている ものなのでしょうか？そしてAccessなどで参照するにはそのID・Pass が必要になるのでしょうか？ どうかよろしく願い致します。

ACCESS VBAで、エクセルファイルの更新を行いたいのですが、方法を教えてください。 エクセルで書式や集計の計算式を作成し、データ部のみＡＣＣＥＳＳで集計した値を置き換える方法を教えてください。