• ベストアンサー

確認ダイアログを出さないでレコード追加

ＭＳ　ＡＣＣＥＳＳ２０００です。 今、プログラム的に（つまり自動的に）テーブルにレコードを追加したいのですが、レコードの追加を確認するダイアログが出てしまいます。 今は、以下のようにしています。 docmd.runsql("insert into レコード名 ("フィールド") value (値)") ちょっと、細かいとこ違うかもしれませんが・・・ ユーザーにダイアログを出さないように、レコードと値を追加する方法はないでしょうか？

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

  • ベストアンサー
回答No.1

Docmd.RunSql の前に DoCmd.SetWarnings False を入れてやればいい確認メッセージが出なくなります。

KAZUMI2003
質問者

お礼

ありがとうございます。 ばっちり、思うとおりになりました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • Docmd.RunSQL 文で 追加時の確認メッセージの省略出来ますか

    QNo.3140739，QNo.3141094の追加質問です。 テーブルへ追加書き込み処理に DoCmd.RunSQL "insert into 介護メモ values(ID,利用者,日付,身体単位,生活単位,開始時刻)", 0 としましたところ、確認メッセージが出て,OKをクリックすると書き込んでくれるのですが、一度に2000件前後のデータを追加します。 この確認メッセージを省略する方法を教えてください

  • AccessのRunSQLのINSERTでの確認メッセージを消す方法。

    こんにちは。 AccessのRunSQLのINSERTでの確認メッセージを出さない方法を知りたいと思っています。 下記き構文をAccess2000/VBAにて作成しましたが、 DoCmd.RunSQL "INSERT INTO test VALUES ('a','b');" 「一件追加します・・・・」という確認メッセージが表示されてしまいます。 これを出さない方法を知りたいです。 宜しくお願い致します。

  • access一部のフィールドを他のテーブルへVBA

    先日 https://okwave.jp/qa/q10245651.html において > table2の新しいデータとして > table1のデータをコピーしたい、 単に追加で ということであれば、という　御回答： Sub Test() Dim StrSQL As String StrSQL = "INSERT INTO table2 SELECT table1.* FROM table1;" DoCmd.SetWarnings False DoCmd.RunSQL StrSQL DoCmd.SetWarnings True End Sub ---------------------- 上記の 回答をいただき　うまく稼働しました 部分的にフィールドを別テーブルに 移動するとき ここでは table1のフィールド名　IDに table2のフィールド名　ｂに　入っている数値 にい　1を加えた数値を 移動したいのですが Public Function Test() Dim tb1 As Table Dim tb2 As Table tb1 = table1 tb2 = table2 Dim strSQL As String strSQL = "INSERT INTO table2![ID]SELECT"（"[b]"FROM tablel）+1" （table1のフィールド[b]の数値に1を加えた数値を table2のフィールド[ID]に移行する、というつもりです） DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Function 稼働しません すみません 宜しくお願い致します （ついでながら ここで　でてくるb というのは テーブル　table3 の　IDの総和 すなわち SELECT Count(table3.ID) AS b FROM table3; 要は　table3の最後のレコードの次のレコードの 番号の数値を table2のIDに移動したい　というわけであります） （いずれのIDや　ｂについても　数値型　長整数型　重複あり　です）

  • Accessでの新規レコードの追加の方法

    Windows XP上でMicrosoft Access 2000を使用しています。 オートナンバー型フィールド1つのみを含むテーブルに新規レコードを追加したいのですが、クエリやそれを基にしたフォームを介した方法はもちろんのこと、テーブルをデータシートビューで表示した状態でも追加することができません。 例えばレコードセレクタからレコード追加を選んでレコード保存を選んでも追加されません。 このテーブルに別のフィールドを追加してデータを入れるとレコードの追加が可能なのですが、オートナンバー型フィールド1つのみではうまくいきません。 どなたかオートナンバー型フィールド1つのみを含むテーブルに新規レコードを追加する方法を御存知でしたら御教示下さいませ。

  • accessの SQL文 INSERT命令

    次のような命令文でを実行すると [INSERT INTOステートメントの構文エラーです。] と エラーメッセージがかえってきます。 文中 介護メモはテーブル名、()内の項目名はフォーム上に定義したテキスト項目名です。テーブルのフィールドは()内のほかデータ型がオートナンバー形式のIDが定義されています。 DoCmd.RunSQL "insert into 介護メモ value(,利用者,日付,身体単位,生活単位,開始時刻)", -1

  • 1テーブル内レコードの各フィールド値の差分チェック

    お世話になります。 現在、1テーブル内をログテーブル用として利用しています。 JSPでフォームを作成して各フィールド値を、 Webサイト画面上から変更可能なつくりにしており、 複数あるいずれかのフィールドの値を１つ以上変更してから、 [保存]ボタンを押下した際に、 　　↓ その変更前のレコード１件と、 変更後のレコード１件を、 同じログ用テーブル内へフラグ（変更前：0、変更後：2）を それぞれ変えて、 INSERT INTOでレコードを計２件追加しています。 （あわせて、追加時のタイムスタンプをセットするフィールドもあるので、 　どんどんレコードを追加可能な仕様です） そこでご質問なのですが、 この２つのレコードのみを比較して、 値が異なるフィールド名のみを、 （ときには複数フィールドにおいて値が異なるケースも有ります） SELECTなどで表示させるようなSQL文の 作り方をご存じの方がいらっしゃいましたら、 ぜひ教えてください。 なぜこのようなご質問をさせていただいたかと申しますと、 ログテーブル内の上記した２件のレコードを比較して、 どこのフィールドの値が変更されたか？ を確認する際に利用したい為です。 （確認時には、phpMyAdminツールなどで直接SQL文をたたいて実行予定です） 以上、宜しくお願い致します。

    • ベストアンサー
    • MySQL
  • アクセス　VBAでレコードが追加できない

    お世話になります。 フォームのボタン（コマンド1）をクリックして テーブルにレコードを追加したいのですが、うまくいきません。 SQLの引数value（'intNumber'）を実数（例えば'3'）とかにすると うまく1レコード追加されるのですが、新規レコードとして 連番で追加させたいので困っています。 宜しくお願いします。 Private Sub コマンド1_Click() Dim dbDao As DAO.Database Dim stSql As String Dim intNumber As Integer intNumber = DMax("[管理ID]", "[テーブル名]") + 1 Set dbDao = CurrentDb stSql = "insert into テーブル名 (管理ID,管理2,管理3) values ('intNumber','99999','99999');" dbDao.Execute stSql dbDao.Close: Set dbDao = Nothing End Sub

  • レコード追加に要する時間について。

    insert文でレコードを追加する際、すでにテーブルに登録されているレコードが多ければ多いほど、insert文でレコードを追加する時間は長くなるのですか？できればその理由もご存知な方ご教授おねがいします。 OSとDBのバージョンは以下です。 OS:Solaris8 DB:Oracle8

  • レコードが追加できない

    SQL-Server2010を使用しています。 レコードを追加する際にキー項目が存在する場合は追加しないようなSQL文を作成しました。 追加するテーブルにレコードが１件以上あれば思ったとおりの処理となりますが、 １件も存在しない場合は追加できません。 下記がそのSQL文です。 原因と対策方法を教えて頂けませんでしょうか？ INSERT INTO foo(商品コード, 商品名) SELECT DISTINCT 'ABC123' , 'りんご' FROM foo WHERE NOT EXISTS( SELECT * FROM foo WHERE 商品コード = 'ABC123' ) 以上です。 宜しくお願い致します。

  • Access　追加クエリについて

    こんにちは！ Accessについて、質問させていただきます。 追加クエリを５つ作成したのですが、『複数値を持つフィールドをINSERT INTO クエリに含めることはできません』とエラーが出ます。 調べたところ、ルックアップウィザードに追加クエリが使用できないものと思われます。 追加クエリの元になるテーブルには、ルックアップウィザードを適用しているフィールド（他のテーブルから値を取得している）が複数あります（フィールド名：取次名・担当者名・形態）。 ちなみに、５つの追加クエリのうち１つはルックアップウィザードのフィールド（値を手入力で設定）も１つありますが正常に作動しています。 何か解決策はありますでしょうか？ よろしくお願いします!!

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する