| |
▼小太郎 さん：
テーブルと連結されていないフォームから値を代入したい時には、
一度テーブルを開く開く処理が必要となります。
>関連がありません。
と言う事は新規レコードですよね…。
フォーム上の「登録」ボタンをクリックすると値が代入される例です。
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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 05/5/20(金) 8:56 -
