tate_sanのプロフィール

よろしくお願いいたします。 環境：winXP/Access2003(Office2003) 受注データが２つのファイルに分かれています。 (1)ヘッダーテーブル：ORDER_H (2)明細テーブル：ORDER_D クエリにて２つのテーブルを結合し、同一クエリ内のフィールドで、受注NO(ORDER_NO)毎の”消費税（TAX）"と”明細小計（syo_kingaku)"の累計を計算したい状況です。 現在クエリのフィールドに、 式1:DSum([TAX],"ORDER_D","[ORDER_NO]="&"[ORDER_NO]")とセットし実行しましたら、 計算結果は、[TAX]×レコード数になってしまいます。 恐れ入りますがご教授をお願いいたします。

Access2003のフォーム上に「メールを起動」というコマンドボタンを作成し、そのボタンをクリックするとOutlookが起動されるようにしたいのですが、方法が分かりません。 どなたかご存知の方がいらっしゃいましたら教えて頂きたいのですが、宜しくお願い致します。

AccessのVBA を用いて、ExcelからAccessへデータを インポートする際、ダイアログボックスを表示させて Excelのファイルを選択させるようにしています。 これをシート名まで指定させる事は可能でしょうか？ ◆シートは枚数が固定されず、都度かわります。 ◆インポートしたいシート数も都度かわります。 ◆1sheet = 1 テーブルにしたいです。 ◆1度の動作で、1sheetのインポートでも、複数でもかまいません。 ◆できれば、ダイアログでファイルを選択した流れで シートまで選択される方法が望ましいです。 ◆Accessのテーブル名もテキストボックスで任意なものが 付けられるようにしたいです。 お知恵をお貸し下さい、何卒よろしくお願いいたします。

エクセルのデータ（列数、行タイトルは都度かわる）をアクセスにインポートしテーブルを作成したいと思っています。 VBAでこの処理をおこないたく、下記のコードで実行したのですがデバッグがはしってしまいます。 （DとEでデバッグ） 原因がお分かりになる方がおりましたら、教えていただけますでしょうか？ 何卒、よろしくお願い申し上げます。 Function ExcelDataImport() 'On Error GoTo エラー Dim varac As Variant Dim varxls As Variant Dim strrange As String Dim strmsg As String varac = "T_TESTTABLE" ' --- A varxls = "C:\Users\AC\Desktop\ACTEST\RAWDATA.xlsx" ' ---Ｂ strrange = "TEST_RAWDATA" ' --- C strmsg = "Excelファイル" & varxls & " を、Accessテーブル " & varac & _ "へ、データ入力を行います。" & Chr(13) & _ "Excelファイルの入力レンジは、 " & strrange & " です。" DoCmd.DeleteObject acTable, varac ' --- D If MsgBox(strmsg, vbOKCancel) = vbOK Then DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ varac, varxls, True, strrange ' -- E MsgBox "データ入力は、正常に完了しました。" End If Exit Function エラー: MsgBox "予期せぬエラーが発生しました。" & Chr(13) & _ "エラー番号：" & Err.Number & Chr(13) & _ "エラー内容：" & Err.Description, vbCritical Exit Function End Function

Access2003の作成 Access2003で質問です。 EXcelの作成したデータベースを抽出することは、可能ですか 教えてください 詳しい操作方法などがありましたら、そのホームページも教えてください