|
処理としては、チェックボックスの全選択と全解除だけなのですが、ソースは
更新処理（arg_flg：true, false）
Set ws = CreateWorkspace(vbNullString, "Admin", "", dbUseJet)
Set db = ws.OpenDatabase(CurrentProject.FullName)
On Error Resume Next
ws.BeginTrans
sql = "update T_List_Order set 選択 = " & arg_flg
Call db.Execute(sql)
ws.CommitTrans dbForceOSFlush
参照処理
sql = "select * from T_List_Order"
With Me
With .subform_OrderList
.Form.RecordSource = sql
.Form.Requery
DBEngine.Idle dbRefreshCache
.Requery
End With
End With
上記、dbForceOSFlush も試してみて同じでしたが、.Form.Requery の下に DBEngine.Idle dbRefreshCache を入れたらできました。
.Requery の下でも大丈夫なようです。
End With の下に入れた方が処理としてはよいでしょうか？
ありがとうございます。
|