SubForm |
CurrentDb.CreateQuery("","Delete * From Table1 Where cod="& Me!SubForm1!cod) With q .Execute i = q.RecordsAffected End With If i = 0 Then MsgBox "--" Else Me!SubForm1.Requery End If
https://www.sql.ru/forum/1314058/ne-otobrazhaetsya-izmenenie-subformy-v-mnogopolzovatelskom-rezhime