guest_rusimportNeboпропущено...
Если честно не совсем то, мне кажется)
Все условные на полях уже определены. Ничего удалять не хочу.
Как-то это грубовато будет)
ну, не хочется через удаление-добавление, можно через модификацию, например
1.
Forms!Форма.Controls(i).FormatConditions.Item(j).Modify acExpression, acEqual, expr1, expr2
Делаю так. Но не сохраняются почему-то изменения. Под отладчиком всё меняется, всё ок, но не сохраняются при записи формы.
вот код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Sub ChangeFormatConditions()
Dim i As Long
Dim ff As Object
Dim fc As Object
'On Error Resume Next
For Each ff In CurrentProject.AllForms
If ff.name = "bookForm" Then
DoCmd.OpenForm ff.name, acDesign, , , , acHidden
For i = 0 To Forms(ff.name).Controls.Count - 1
If Forms(ff.name).Controls(i).name = "BookName" Then
For Each fc In Forms(ff.name).Controls(i).FormatConditions
If fc.Type = acExpression Then
fc.Modify acExpression, acEqual, "[ID]=1"
End If
Next
End If
Next i
DoCmd.Close acForm, ff.name, acSaveYes
End If
Next
End Sub
