ник: Анатолий (Киев)
CurrentDb.Close - это вы зря!
Если вы проверяете флажки, и их имена соответствуют именам полей в таблице:
Dim ctl As Control
For Each ctl In me.Controls
If ctl.ControlType = acCheckBox Then
If ctl = False Then
CurrentDb.Execute "alter table Prn_tbl2 DROP column " & ctl.Name
End If
End If
Next
|
ЗЫ. Только я не понял, причем здесь "Присвоить всем полям в форме одинаковые значения ".
