ここでやりたいことですが、 buf = .readall   ボタンA:リンクテーブルAに切替える その際、1の場合は1、2の場合は0.5と別フィールドに記載する方法を教えて下さい。, >本当はIDのカウントが2以下なら1を3以上なら999(数値で0、1以外なら何でも良いです)     fromFile.Close 最後はリンクテーブルCの間違いだとして Unicode VBSにしても、やはりエラーが出ます。 Excel データ (XLS 形式 または XLSX形式) を CSV 形式のデータに変換し、Access へインポートをします。インポートする際に適切なデータ型を指定します。 詳細. グループフッターの改ページプロパティを『カレントセクションの後』に設定する。 グループヘッダーの改ページプロパティは『しない』に設定する。 また、投稿されたページを確認したところ、VBA での作業について紹介されていたのですが、VBA を利用して自動で作業が実行するような運用をご希望なのでしょうか ? 各テキストボックス等のコントロールソースも設定してありますか? リンクテーブルBまたはCに切り替わった後、リンクテーブルBまたはCで保有する日付項目「作成基準日」の値を「txt_日付」に表示するようにしたいのです。 もし、VBA での運用が必須で、VBA の記述の仕方がわからない、という場合は、 で情報を集めると良いですよ。, フィードバックをお送りいただきありがとうございます。今後のサイト改善に役立てて参ります。, CSVファイルの1行目に不要な文字列がある為、2行目からインポートしたいということです。, なのでインポートする準備として、CSVファイルの1行目を削除した上でインポートすればよいかなと思った次第です。, ※1行目を削除すると、2行目にある見出しの行がそのままフィールド名として使えるため。, 方法はいくつかあるけど、FileSystemObject (MSDN) を使う例だと、, Dim fso, fromFile, toFile   ボタンC:リンクテーブルCに切替える フォームのボタンA、B、Cをクリックすると 個人的にはデータがないんだから、これでも問題ないと思い公開したら、使用しているユーザーからエラーが出たと問い合わせが多数来ているので、データ抽出が無かった時には0の表記にしたいです。 また、ボタンB,ボタンCのボタンを押下した時、リンクテーブルがB,Cへ切り替わります。 Set fSo = CreateObject("Scripting.FileSystemObject") buf = .readall Sub LineCut1() に余計な一行があったとして下記のコードを標準モジュールに作成し 2byte 文字を変数にすると、 >テーブルの3行目以降を取り出すクエリとか方法はありませんでしょうか? プロパティで確認してください。 Me!txt_日付 = DateSerial(Year(DMin("作成基準日","リンクテーブルA")),Month(DMin("作成基準日","リンクテーブルA")+1,1)-1 を設定して >2行目以降をリンクするようにするとか、 Option Explicit リンクテーブルAにある1レコードの日付から翌月1日を計算しその前日を出す(月末日), おはようございます。 フォームを開いた時、txt_日付にリンクテーブルAの日付を表示するよう、プロパティのレコードソースにリンクテーブルAを...続きを読む, >例えば、現在のデータベースの状態は以下のとおりです。 VBAにお詳しい方がいらっしゃいましたら教えてください。 CSV ファイルからのデータのインポート Importing Data from a CSV file. 条件が満たされなかったら 氏名=InputBox("氏名を入力して下さい") 厄介です。 アクセスVBAでエクセルやCSVをインポートするには; Accessクエリで連番を振る!文字列と数値型には注意! Accessクエリの抽出条件でIIf関数を使用する方法 【Access】vbaでフォームからレコード追加しよう 【Access】VBAテーブルのデータを全部削除する方法 投入した結果がテーブルに上書きされません。 CSV files. csvのマクロvbaでの読込方法についての記事は、人気記事として多くのアクセスがあります。当初作成して以来、ご要望をいただいたり自身で使っている中で、対応できないcsvが出てくるたびに改良を重ねています。今回のvbaは、一旦ジャグ配列を使用したcsv読み込み方法になります。 ここで、氏名をnameに変更すると正しく実行します。 Excelで加工したデータをCSVで納品する作業を行っています。その中で面倒な工程があります。納品時には、カンマ区切りで各項目がダブルクォーテーションで囲まれたCSVが必要なのです。(”0001”,”XY05”,”請求”,”01”・・・みたいな感じ)「名 このCSVファイルが更新されても最新の状態にてレポートを出力できるようにしています。 MSアクセスで作っても良いのですが、やはり共有化の問題と扱えるデータ数が気になります。 https://msdn.microsoft.com/ja-jp/library/ms144275.aspx, 当方のPCは、Win8.1(64ビット)、エクセル2013です。 Microsft Access バグ 和暦ANSI Csvファイルからインポートするとき日付をH31/2/1 S50.3.4としていると読み込みを失敗する で判明したのだが、CSVの読み込みのとき、Excelと比較して、Accessはレジストリにある和暦のデータを読んでいないということがわかった。 このため、基本的に和暦の日付は読み込 … リンクテーブルAには2017/01/01~2017/01/31のデータが1レコード以上入っているという前提で 0の時は、【合計】は0となることです。 [合計総額] ※【記録1】がA1、【記録2】がB1、【合計】がC1になります (14行目)CSVファイルを指定したテーブル(例ではT_住所録)にインポートする. Accessへインポートしたいのですが、CSVファイルの1行目を手動で削除せず、 条件が満たされたら エクセルVBAのLine Input命令でUTF-8のCSVファイルを取り込むと文字化けを起こします。今回は、ADODB.Streamを使ってUTF-8のCSVファイルを取り込む方法についてお伝えします。 Access(アクセス)でCSVファイルの2行目からインポートする方法 [asin:B01BM829D4:title] CSVファイルの一行目のみをスキップして新しいファイルを作成して、 そのファイルを読み込むことで、元のファイルはそのままの状態で残すことが可能です。 Sub CSV2VAL() Dim fSo As Object Dim … Use full url to read a csv file from internet. CSVファイルの2行目をフィールド、3行目以降をデータとして .Close 同じことをSUMIF関数でもできる。 MsgBox(name) と言う様な使い方をしていました。   ボタンC:リンクテーブルCに切替える メインフォーム側の総額を表示させたいテキストボックスに ・CSV出力の際の元となるクエリ(サブフォームの元のクエリ)をデザインビューで 開き、日付の項目のフィールド欄を編集します。 ・開始日、終了日のところを以下のように編集する カラム名:Format([テーブル名]. 33      0 メインフォーム側にサブフォームで表示する「売上額」の値の合計値をテキストボックスに表示させようと思い、サブフォーム側に不可視のテキストボックス「合計総額」を作り、コントロールに Use file.choose() method to select a csv file to load in R. 4. With fSo.GetFile("D:\ナントカ\コントカ\オリジナル.csv").OpenAsTextStream テーブルにエクセルファイルを指定して取り込みを行いたいです。 以下の場合は、この現象は発生しません。 Access(アクセス)でファイル選択ダイヤログから、csvファイルを選択してテーブルにインポートするまでの仕組みを作ってみました。ほとんどがネットにあったものですが、有志の皆様には本当に感謝 … 【記録1】【記録2】【合計】 そのまま2行目以降をインポートするいい方法はないですか?, エクセルからアクセスにインポートすると、エラーが出てしまいます。原因を教えていただけませんか。, エクセルのデータをアクセスにインポートしたいのですが、フィールド名として使用できないデータがあるようで・・, Access2013で、 =[サブフォーム]!  (記録1)×(記録2)≠0 2. DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "テーブル名", xlApp.GetOpenFilename("Microsoft Excelブック,*.xlsx") テキスト ファイルから Access にデータを取り込むには 2 つの方法があります。 データのコピーを Access 内で編集できるようにする場合は、テキスト インポート ウィザードを使って新規または既存のテーブルにファイルをインポートします。 50     20 3. (16行目)インポートしたファイルを削除する14~16行目の処理を繰り返す アクセスVBAでエクセルやCSVをインポートするには; Accessクエリで連番を振る!文字列と数値型には注意! Accessクエリの抽出条件でIIf関数を使用する方法 【Access】vbaでフォームからレコード追加しよう 【Access】VBAテーブルのデータを全部削除する方法 autoexec マクロに .Close Microsft Access バグ 和暦ANSI Csvファイルからインポートするとき日付をH31/2/1 S50.3.4としていると読み込みを失敗する . ファイルが選択されたか確認し、選択されていればTransferSpreadsheetを実行, 下のようなシートがあります。 End With 1行目は250文字、2行目は260文字、3行目は500文字のcsvをそれぞれインポートし、 その末尾をクローズアップしています。 ★「@」なし ★「@」あり ということなので、もし書式に「@」があったら削除して、もう一度インポートをお試しください。 なお、在庫一覧の表示する項目を変更しても、インポートするcsvファイルの各列の値は変わりません。 csvファイルの各列にどのような値を入力する必要があるかはcsvファイルから在庫データを一括登録する(インポート機能)の「1. txt_日付に2017/01/31、2016/12/31、2016/11/30と表示したいとすると ↓ bug access CSVインポート QueryTable. AccessへExcelやCSVからデータをインポートする際のインポート定義は、システムテーブルを操作することで編集可能です。一旦作成した定義を編集するUIがあまり良くないため、この方法をお勧めします。 SQL Server 2016 SP1 Express エディション Dim fSo As Object CSV ファイルのインポート方法についてのご質問ですね。 Dim buf As Variant ***** [合計総額] MsgBox "行番号121のCode実行結果 = " & xy結果、 With fSo.GetFile("D:\ナントカ\コントカ\オリジナル.csv").OpenAsTextStream 最近、この行番号が表示されなくなりました。 =[サブフォーム]...続きを読む, エラーなら0、それ以外なら[サブフォーム]!  (記録1)+(記録2) MsgBox(氏名) 3. エクセルvbaでcsvファイルを取り込む方法について、まずはcsvファイルの内容を1行ずつ取り込んんでデバッグプリントするという初心者向けのとっても簡単なプログラムについて解説をしていきます。 画面の上部に行番号が表示されていました。     toFile.Write fromFile.ReadAll お世話になります。 Access2010 1行目に不要な行があるので2行目からインポートしたいのですが、一般的にはどのように するのでしょうか。 なお、インポートするCSVファイルは加工したくないので、手動で1行目の削除は考えておりません。 なので、(VBAより)インポートするCSVファイルを … お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。, https://answers.microsoft.com/ja-jp/msoffice/for …, Accessでタブ区切りのテキストをインポートすると、71項目目以降のデータがインポートされない, アクセス 正味の算出 フィールド1 オートID フィールド2 顧客No フィールド3 商品名 フィー, アクセス フォーム テーブルを引用し、フォームを作成しました。 投入した結果がテーブルに上書きされま. オリジナル.csv の使われ方がイマイチ不明なのですが 0       45 1行目に不要な行があるので2行目からインポートしたいのですが、一般的にはどのように, なお、インポートするCSVファイルは加工したくないので、手動で1行目の削除は考えておりません。, なので、(VBAより)インポートするCSVファイルをコピーして、そのコピーしたCSVファイルの1行目を削除し, インポート・・で、インポート後にコピーCSVファイルを削除・・となるのでしょうか。, それとも削除というよりは予めコピー先のCSVファイルを作って、2行目からそのファイルにコピーという感じに, http://www.accessclub.jp/bbs/0199/beginers61893.html, ふぃいいあああ さん、こんにちは。 Access 実行時エラー 3052 ”ファイルの共有ロック数が制限を超えています” ”解決方法 AccessVBAでクエリを実行 64bit MS-Access 2019をインストールしているのに、SQL-ServerでACE.OLEDB.12.0が使えない     ※リンクテーブルA~Cは世代(データ基準日)が異なるだけで、テーブル名および項目名、 条件としましては、【記録1】【記録2】のどちらかが [テキスト/csvから & データの取得] > を使用する場合は、テキスト ファイルを選択し、[インポート] をクリックした後、[区切り記号] の下の一覧から使用する文字を選択します。 データ プレビューで新しい選択の効果をすぐに確認して、続行する前に必要な選択を確実に行えます。 4. Microsoft Accessで3.5GB程度のCSVを読み込ませたかったのですが、インポートできませんでした。おそらくファイルが大きすぎるのだと思います。 ソフトウェアは問わない(もはやAccessじゃなくてもよくWindows上で動… マイクロソフト コミュニティをご利用いただき、ありがとうございます。 CSVファイルの2行目をフィールド、3行目以降をデータとしてAccessへインポートしたいのですが、CSVファイルの1行目を手動で削除せず、そのまま2行目以降をインポートするいい方法はないですか?こちらの MukkuMuku さんの回答が参考 >リンクテーブルB(2016/12/31) 一旦取り込んでからだとデータ型の変更などが必要になりそうなので ...続きを読む, アクセス 正味の算出 Set xlApp = CreateObject("Excel.Application") 指定の場所に置いてあるCSVファイルに対して、     Set fromFile = fso.OpenTextFile("C:\hoge\text1.csv", ForReading) [合計総額]), フォーム f.Write buf .SkipLine D:\ナントカ\コントカ\オリジナル.csv SQL Server 2016 のエディションとコンポーネント IIf([IDのカウントした結果のフィールド名]>=3,999,1), アクセス フォーム いろいろやってもうまくできません。 Sub LineCut1() >リンクテーブルB(2016/11/30) この時の合計を求めたいのでが もともと、String 型で認められる所以外では、2byte 文字は、ハングしますから、仕方がありません。VBAとは違いますから。 =Sum([売上額]) 【準備2】※2パターンある。 ①最終ページにはレポートフッターだけにしたい場合. と入力。 どなたか解決策を教えて下さい。, 現在Access2016で以下のようなフォームを作っております。     Set toFile = fso.OpenTextFile("C:\hoge\text2.csv", ForWriting, True) みたいにね。, 現在Access2016で以下のようなフォームを作っております。 を返せばよいと思う。      項目の数は同じです(上記では便宜上、A、B,Cと言う名前を付けました)   テキストボックス:日付を表示する「txt_日付」 16385 行目以降に複数のデータ型が混在する場合. 最近、開発室なのに技術ネタが少ない…ので、今回はLaravel(5.5)で。CSVインポート時のバリデーションCSVをインポートしてDBに投入する、というよくある処理ですが、意外と大変だったりしますよね。いやいや、La… Accessデータベースに別のデータベース等から出力されたデータをインポートする際、CSVファイルを用いることが多々あります。そこで、今回はCSVファイルをインポートする方法を紹介します。なお、CSVファイルはカンマ区切り等によるデータ、固定長によるデータ等様々ありますが、そ … Excelで作成されたデーターをAccessにインポートしたいのですが、元データーの1、2行目にタイトルやマクロボタンが貼り付けおり、そのままの形でインポートできません。Excelのデーターをコピーや加工することなくインポートできるようにする方法はないでしょうか? どのような数式にするとよいのでしょうか。 メインフォーム側にサブフォームで表示する「売上額」の値の合計値をテキストボックスに表示させようと思い、サブフォーム側に不可視のテキストボックス「合計総額」を作り、コントロールに AccessのVBAでCSVファイルなどの区切り記号付きテキストファイルをインポートするサンプルプログラムを覚書。 [ファイルを開く]ダイアログボックスの表示と組み合わせたサンプルプログ … 2.dir関するで指定したフォルダ内のCSVファイル名を1ファイルづつ取得(変数bufにファイル名をセット. フィールド3 商品名 設定方法を教えて下さい。 Access にて 複数のデータ型が混在する Excel のデータ (XLS 形式 または XLSX形式) をインポートするときに、エラー メッセージ "データ型変換エラー" が表示されることがある問題と回避策について説明しま … フィールド2 顧客No ご指導のほど、宜しくお願いします。, フォーム \kanjitest.vbs(2, 5) EmEditorを入手. Access VBAにてCSVファイルの特定の列だけテーブルにインポートAccessのフォームに設置したボタンをクリックすると、テーブルにCSVファイルの指定した列のみインポートする形で、下記のコードを記述しましたが、『外部テーブルのフォーマットが正しくありません』というエラーが出てしまい csv. Read a file from any location on your computer using file path.   ボタンB:リンクテーブルBに切替える 「表示」「ツールバー」の「標準」にチェックを入れてみてください。, ※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。 Dim buf As Variant .SkipLine としても良いかもですね。, >2行目以降をリンクするようにするとか、 More than 1 year has passed since last update. 漢字の変数を使う方法は無いのでしょうか。, もうお答えは出ているようですが、私からも回答します。 https://www.microsoft.com/ja-jp/sql-server/sql-server-editions-express 出来た"D:\ナントカ\コントカ\オリジナル_改.csv"をリンクテーブルとさせればよいのでは? Dim f As Object Accessである程度VBAを使って組んでいくと必ずぶつかる壁が「Excelデータのインポート」です。もともとAccess本体にもインポート機能はついていますが、毎回インポートを手動で行わないといけない点と、細かなデータの変換や条件判定などを含めると素直に使えないシーンも多いです。 Dim fSo As Object 「Microsoft VBScript コンパイル エラー: 文字が正しくありません。」 AccessのWindows全バージョンの致命的なバグ CSVのSample. Dim f As Object name=InputBox("氏名を入力して下さい") SQL Server 2017 (14.x) SQL Server 2017 (14.x) CTP 1.1 以降では、Azure SQL Database と同じように、BULK INSERT で CSV 形式がサポートされます。 お尋ねしますAccessからExcelへデータをもってきたところ、文字データの前へ'(アポストロフィー)の記号がはいっていました。500以上のデータがあるので、一括でこのアポストロフィーを削除する方法があれば教えていただきたいのですが…。 (なお、WEB検索では、「VB6ideAddLineNumbersAddin.dll」があるようですが、 >リンクテーブルA(2017/01/31) また、投入時は1か0を選択するプルダウンを作りたいのですが、どのように作るのでしょうか?, テーブルの引用とのことですが、それはレコードソースに設定してあるということですか? =IIf(IsError([サブフォーム]![合計総額]),0,[サブフォーム]! Access VBA を使ってみようと思って、初心者向けの本を2冊購入して読んでみました。しかし、私は Excel VBA を知っていたからですが、いずれも分かりにくく、かつ、余り役に立つものではありません … Option Explicit      項目の数は同じです(上記では便宜上、A、B,Cと言う名前を付けました) Q Access インポート.   ボタンB:リンクテーブルBに切替える D:\ナントカ\コントカ\オリジナル.csv 何が一番良いと言うのは人それぞれとは思いますが、価格や作りやすさ等、アドバイスいただければと思います。 帳票形式のサブフォームを含むメインフォームでサブフォームにはDBテーブルから抽出した各種項目をテキストボックスに表示するようしてあります。     ※リンクテーブルA~Cは世代(データ基準日)が異なるだけで、テーブル名および項目名、 と入力しメインフォーム側で総額を表示させるように作りました。 現在はMSアクセスで作ったもの(見積・請求書用)と、外注して当社用に作ってもらったもの(色々機能はあるけど今は日報管理くらいにしか使っていません)を使用しています。 Dim name End Sub CSV ファイルをインポートした場合、Access 上にテーブルが作成されるため、テーブル上の 1 行目を削除しても、もとの CSV ファイルへの影響はありません。 Sub End, Sub End テーブルのフィールドのごとにエクセルファイルは並べてあります。 ということで、csvファイルと呼ばれます。 csvファイルをエクセルで取り込む方法. sub sample()   ボタンA:リンクテーブルAに切替える AccessへExcelやCSVからデータをインポートする際のインポート定義は、システムテーブルを操作することで編集可能です。一旦作成した定義を編集するUIがあまり良くないため、この方法をお勧めします。 帳票形式のサブフォームを含むメインフォームでサブフォームにはDBテーブルから抽出した各種項目をテキストボックスに表示するようしてあります。 >テーブルの3行目以降を取り出すクエリとか方法はありませんでしょうか?  =IF(A1*B1<>0,A1+B1,0) End Sub 2行目以降をリンクするようにするとか、テーブルの3行目以降を取り出すクエリとか方法はありませんでしょうか?, >2行目以降をリンクするようにするとか、 Dim 氏名 会社の規模は従業員20人くらいで、年商は4,5億です。データベースに同時アクセスする可能性のあるPCは5台です。もちろん、5台同時にアクセスするなんてまずありませんが、2台くらいなら頻繁にあると思います。 f.Close 「リンクテーブルを作成してソースデータにリンクする」設定にてテーブルを作成し、 ・・・が、しかしサブフォーム側の抽出で売上額が0件だった時、サブフォーム側に何も表示されなかった場合、総額の項目には#エラーと出ています。 regsvr32で、」うまく登録できません。), 下図のようなものでしょうか? フィールド4 単価 >テーブルの3行目以降を取り出すクエリとか方法はありませんでしょうか? Set f = fSo.OpenTextFile("D:\ナントカ\コントカ\オリジナル_改.csv", 2, True) CSVファイルの2行目をフィールド、3行目以降をデータとして Accessへインポートしたいのですが、CSVファイルの1行目を手動で削除せず、 そのまま2行目以降をインポートするいい方法はないですか? A ベストアンサー. フォームを開いた時、txt_日付にリンクテーブルAの日付を表示するよう、プロパティのレコードソースにリンクテーブルAを指定し、「txt_日付」のコントロールソースには、リンクテーブルAで保有する日付項目「作成基準日」を指定しています。 これらを一本化したいのですが、何を使うのが良いでしょうか? [日付のカラム名],"yyyy/MM/dd") (例)開始日:Format([開始日終了日]. 会社のデータベースを一新しようと思います。 MSアクセスをクライアントにして他のデータベースソフトを使うという方法も聞いたことがあります。 CSV stands for Comma Seperated Values. 会計ソフトや業務システムから、 エクセルにデータを取り込む場合、 csvファイルを介してデータを取り込むことが、 よくあります。 というのは、 It is a plain text file with .csv extension. しかしこのCSVデータが作成される仕様により、1行目に余計な文字列、2行目に項目名、3行目以降にデータが入っているため、毎回CSVデータの1行目を削除する手作業が発生しています。 =Sum([売上額]) これを、HTA にして、Charset を、UTF-8 にしても、エラーは出ます。諦めることでしょうね。, ACCESS、VBA初心者です。おしえてください。     toFile.Close, このスレッドはロックされています。質問をフォローすることや役に立つと投票することはできますが、このスレッドに返信することはできません。. このようなテーブル構成で、顧客Noでグループ化して、IDのカウントした結果が1、2となります。 テーブルを引用し、フォームを作成しました。 プロシージャの実行に、LineCut1() 最近まで、Codeの上にカーソルを置くと、 下記の式ではどの部分を修正すればよろしいでしょうか。 A CSV file is used to store data. まずEmEditorを公式サイトからダウンロード。 無料体験版も、フリー版もあります。 フル機能版は有料ソフト(年間 4,800円もしくは永久 21,600円)ですが、30日間は無料で全機能が使えます。CSV編集機能は有料版のみとなりますのでご注意ください。 オリジナル.csv が更新される都度実行する必要がありますが 何か、設定を変えれば、元に戻せますでしょうか? と入力。 Set fSo = CreateObject("Scripting.FileSystemObject")     Set fso = CreateObject("Scripting.FileSystemObject")  0 CSVのようなテキストファイルでは無いかと。 上記のSub LineCut1() を、 Function LineCut1() に改名して #533: Excelインポート時の型変換エラーを回避する方法: VBA: ExcelのワークシートをAccessのテーブルとしてインポートする際は、ワークシートの先頭から8行分に保存されているデータが事前にチェックされ、各列のAccessテーブル上でのフィールドのデータ型が決定されます。 xlApp.GetOpenFilename("Microsoft Excelブック,*.xlsx")を変数に入れて Accessならの外部データタブのテキストファイルを指定。 ExcelやAccessなど他のアプリケーションで 異なるファイル形式のファイルを読み込むことを、インポートといいます。 ExcelでCSVファイルを読み込むと、このような表形式で表示されます。 アクセスのテーブルにvbaを利用してcsvデータをインポートすると、『貼り付け先のテーブルには'f1'フィールドがありません』のエラーが発生する場合があります。このエラーが発生する原因と対応策を分かりやすく解説します。 フィールド1 オートID   テキストボックス:日付を表示する「txt_日付」 レコードソース、コントロールソースが分からない場合は、ウィザードを使ってフォームを作りましょう。, 下記はエラーになります。     fromFile.SkipLine ’ ここで1行進める お願いします。, IF関数を使って、条件に よろしくお願いします。, 無料の SQL Server 2016 Express Edition で十分だと思います。無料ですが商用利用も可能です。 のエラーが出ます。 アクセスのテーブルにvbaを利用してcsvデータをインポートすると、『貼り付け先のテーブルには'f1'フィールドがありません』のエラーが発生する場合があります。このエラーが発生する原因と対応策を分かりやすく解説します。 メインフォーム側の総額を表示させたいテキストボックスに 上記の場合でもテーブル上のデータを削除すると、何か運用上に影響がでる、ということでしょうか ? に余計な一行があったとして下記のコードを標準モジュールに作成し