| |
|
|
| | Знаю, что это просто, но не могу!!!!
Нужно в форме задать.
Но я не могу сообразить, как объявить переменные. Или вообще все не так
все
Dim frm As Form
Dim fld As НЕ ЗНАЮ
Set frm = Me.Form
For Each fld In frm
If fld = False Then
CurrentDb.Execute "alter table Prn_tbl2 DROP column" & Field
CurrentDb.Close
End If
Next | |
| |
| |
| |
|
|
| | по коду непонятно чего хотите
Зачем именно полям формы, а не прямо в таблицу?
что значит If fld = False?
Drop зачем? | |
| |
| |
| |
|
|
| | 
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
|
ЗЫ. Только я не понял, причем здесь "Присвоить всем полям в форме одинаковые значения ".  | |
| |
| |
| |
|
|
| | Виновата;((. это я вопрос задала 1, а пример - другой. Спасибо большое. Очень красиво и просто, оказывается
А можно ли как-нибудь для этого примера выцепить текст из строки состояния или связанную надпись? | |
| |
| |
| |
|
|
| | Вместо ctl.Name:
1. ctl.StatusBarText
2. ctl.Controls(0).Caption | |
| |
| |
|
|
