Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8114 / 9994

←次へ　｜　前へ→


	【5061】Re:レコードの保存について

小僧 - 05/5/20(金) 13:06 -


	引用なし

	パスワード

▼小太郎さん：
テーブルと連結されていないフォームから値を代入したい時には、
一度テーブルを開く開く処理が必要となります。

>関連がありません。

と言う事は新規レコードですよね…。
フォーム上の「登録」ボタンをクリックすると値が代入される例です。

Private Sub 登録_Click()
　　'要　参照設定「Microsoft DAO x.x Object Library」

　　Dim RS As DAO.Recordset
　　Set RS = CurrentDb.OpenRecordset("テーブルA", dbOpenDynaset)
　　　　RS.AddNew
　　　　RS![aaa] = Me.テキストA
　　　　RS.Update
　　RS.Close
　　
　　'Set RS = CurrentDb.OpenRecordset("テーブルB", dbOpenDynaset)
　　'
　　'　テーブルAと同じ処理をテーブルBとテーブルCにも行う
　　'　　
　　'RS.Close
　　Set RS = Nothing
End Sub

SQLを使うとこんな感じでしょうか？

Private Sub 登録_Click()
　　DoCmd.RunSQL "INSERT INTO テーブルA(aaa) VALUES ('" & Me.テキストA & "')"
　　DoCmd.RunSQL "INSERT INTO テーブルB(bbb) VALUES ('" & Me.テキストB & "')"
　　DoCmd.RunSQL "INSERT INTO テーブルC(ccc) VALUES ('" & Me.テキストC & "')"
End Sub

228 hits

▼

【5054】レコードの保存について 小太郎 05/5/20(金) 8:56