更新クエリを実行するタイミング
更新値はフォームの入力値
この2点をクリアできれば・・・かと思ってます。
フォームの入力値、については
ビルドを使えば、forms!フォーム名.オブジェクト名・・・・と生成できるので
これを使います。
モジュールでのテーブル更新は、こういうのもあります。
(科目別点数テーブルで点数≧80に"合格"、以外に"不合格"とセットする)
Public Function 合否判定更新()
Dim MYDB As Database
Dim MYRST As Recordset
Dim MYRST2 As Recordset
Set MYDB = CurrentDb
Set MYRST = MYDB.OpenRecordset("科目別点数", dbOpenDynaset)
MYRST.MoveFirst
Do Until MYRST.EOF
MYRST.Edit
If MYRST!点数 >= 80 Then
MYRST!合否 = "合格"
Else
MYRST!合否 = "不合格"
End If
MYRST.Update
MYRST.MoveNext
Loop
MYRST.Close
End Function
良い方法、解決策というよりは
使えるかもしれない機能のヒントということで・・・・。
サブフォームでの更新については
ネットでも問い合わせ多い事項ですから探してみると良いです。
こちらでも整理してみます。
お礼
ありがとうございます! SubIDフィールドを作成しました。 更新クエリに抽出条件を入力するとSubIDのところで 指定した式の構文が不正です。 となります・・・ 既に多くのデータが保存されていますが、全てにSubIDをふる覚悟です(^0^) 開始日/終了日を入力する時に開始日と前勤務先の終了日のずれは必ず一日なので、自動入力されれば・・・という考えからなので、修正幅は小さいと思います。 SubIDを開始日に置き換えて進めてみます。