質問: [Forms]![フォーム名]![フォームの項目1]; をクエリの作成を行わずVBAだけで実行させる方法が知りたい。ということです。 上記を書くとVBA上では赤く表示され、コンパイルエラーとなってしまいます。 よろしくお願い致します。
回答: 前回に引き続きDAOでいいのかしら? レコードは1つだけあるという前提よ。レコードが1つも無ければエラーになるわ。 フォームが閉じていてもエラーになるから気を付けてね。 ``` Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("テーブルA") rs.MoveFirst rs.Edit rs.テーブルの項目1= [Forms]![フォーム名]![フォームの項目1] rs.Update rs.Close Set rs = Nothing Set db = Nothing ```