![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?5a7ff87)
アクセス初心者です。新規登録用のフォームを作成しています。普通のフォームはマウス等の操作で前後の情報が見れますよね?(100件、情報が入力されていたら、100件見れますよね。)非連結で作成して、クエリに飛ばして、登録ボタンを押したものだけがテーブルに入っていくという構造はできるのでしょうか?ちなみにクエリから引っ張ってきた検索画面はフォームにあります。今の作成に仕方で、登録ボタンをクリックしても、テーブルに入っていきません。新規登録用フォームはMainMenu上に新規というボタンを設けてあって、それをクリックしたら新規登録用画面が開くという風に作りたいのです。テーブルに情報を入れていくのは非連結じゃ無理なんですか?どなたか分かる方いましたらご教示ください。よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
こんにちは。
>非連結で作成して、クエリに飛ばして、登録ボタンを押したものだけがテーブルに入っていくという構造…
>テーブルに情報を入れていくのは非連結じゃ無理…
非連結フォームの内容(TextBoxやLABEL等のデータ)を登録ボタン押下後にテーブルへINSERTする …で良いなら。
Private Sub btnButton1_Click()
Dim qdf As QueryDef
Dim strSql As String
'追加SQL文の定義
strSql = Empty
strSql = strSql & "Parameters [P_a] Text[50],[P_b] Text[50],[P_c] Text[50];"
strSql = "Insert INTO TBL_A (a,b,c) Values([P_a],[P_b],[P_c]);"
Set qdf = CurrentDb.CreateQueryDef("", strSql) '一時作成、自動消滅
'パラメータの置き換え(INSERTするデータ)
qdf.Parameters("P_a").Value = Format(Now, "hh:mm:ss")
qdf.Parameters("P_b").Value = "bbb"
qdf.Parameters("P_c").Value = "ccc"
'追加実行
qdf.Execute
'解放
qdf.Close
Set qdf = Nothing
End Sub
でいかがでしょう?
上記のSql文の"Parameters"は使用しなくても直接SQL文とデータを結びつけても可です。
たとえば
strSql = "Insert ~ values('" & データ1 & "','" & データ2 & "','" & データ3 & "');"
です。
この場合、 「qdf.Parameters(xxx).value = 」の行は不要です。
>クリックしたら新規登録用画面が開くという風に作りたい
画面を開くなら
DoCmd.openForm "F1"
"F1"の部分は、プロジェクトエクスプローラで表示されるフォーム名
"Form_F1"の質問者さんが命名したフォーム名です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- Access(アクセス) テキストボックスの値をテーブルに入力したい 2 2022/06/28 12:08
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- ポイントサービス・マイル ポンタポイントの登録の仕方を教えてください 1 2023/01/19 22:56
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- その他(IT・Webサービス) U-NEXTの解約ができません 2 2022/11/19 18:35
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
前のレコードの値を自動で入れたい
-
access ダブリ登録を防止したい
-
Accessでデータを更新したらそ...
-
インデックスまたは主キーにはn...
-
access別のテーブルを参照して...
-
ACCESSでフォームのチェックボ...
-
アクセスでの登録ボタンでの処...
-
Access クエリからサブフォーム...
-
Accessで時間外管理の作成について
-
ACCESS2000の帳票フォームでテ...
-
ACCESS フォームで入力データ...
-
ACCESSのレスポンス
-
accessでオプションボタンを使...
-
ACCESS でフォームからの入力...
-
ACCESS2013で出金伝票を作成したい
-
文字列の入っているString値、...
-
accessのフォームを多数のPCで...
-
エクセルで、抽出したデータだ...
-
Access サブフォームでの選択行...
-
accessでオートナンバーを使わ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
前のレコードの値を自動で入れたい
-
access別のテーブルを参照して...
-
Accessでデータを更新したらそ...
-
Accessでフォームに自動入力し...
-
インデックスまたは主キーにはn...
-
入力した値をコンボボックスに...
-
Accessフォームが入力できません。
-
ACCESS フォームで入力データ...
-
アクセスでコードを入れると名...
-
access ダブリ登録を防止したい
-
ACCESSでフォームのチェックボ...
-
AccessVBAの値によっ...
-
テキスト型のフィールドでハイ...
-
ACCESS2000の帳票フォームでテ...
-
Accessのフォームでデータ入力...
-
Access2010 レコードの更新日付...
-
アクセスのフォームの必須項目...
-
ACCESSで定型入力の〒が表示さ...
-
「バリアント型でない変数に Nu...
-
Accessのフォーム入力をしても...
おすすめ情報