проблема с флагом

[ovt256]

Сообщение от dr03

после внедрения флажка (вызов снят) перестали работать флажки ("Мужской" и "Женский"), а также флажки "районный","областной" и.т.д.
Флажок "вызов снят" строился для уменьшения времени заполнения формы: в поле время возвращения проставяется текущее время, одновременно в поле диагноз надпись "вызов снят", так же планируется в поле ЛПУ надпись "безрезультатный".
Спасибо Myhaylo за участие в решении проблемки !

Добавьте перед строкой

        Private Sub MergeПолеСоСписком413()

строку

    End Sub

[dr03]

Private subстоял по умолчанию.странно почму не вырубились все флажки, а только часть?

[ovt256]

Сообщение от dr03

Private subстоял по умолчанию.странно почму не вырубились все флажки, а только часть?

Вырубились только те флажки, которые при постановке/снятии галочки вызывали процедуру "Mergeкто_вызывает", в которой и была синтаксическая ошибка.
Используйте иногда компиляцию проекта для проверки синтаксиса программы.

[dr03]

и конечно же всё получилось.Я не знал об этой функции. Сейчас накидаю скриншоты.

[dr03]

с ошибкой разобрались...двигаемся дальше.Как быть с несколькими действиями для одного флажка(или кнопки)?
Вот варианты которые были попробованы:
для
"Private Sub вызов_снят_AfterUpdate()
MergeПолеСоСписком413
MergeПолеСоСписком245
End Sub"
постороено
" Private Sub MergeПолеСоСписком413()
ПолеСоСписком413 = ""
If вызов_снят Then
ПолеСоСписком413 = вызов_снят.Name
End If
End Sub
Private Sub MergeПолеСоСписком245()
ПолеСоСписком245 = ""
If вызов_снят Then
ПолеСоСписком245 = безрезультатный.Name

End If
End Sub
"
другие варианты показались менее логичными.Более ничего в голову не лезет.

[ovt256]

Собственно, не увидел проблемы... Вы все правильно делаете. Другой вариант - это обрабатывать значение чекбокса в процедуре After_Update:

Private Sub вызов_снят_AfterUpdate()
    If Not вызов_снят Then
        ПолеСоСписком413 = ""
    Else
        MergeПолеСоСписком413
    End If
End Sub

Но этот вариант ни чем не лучше и не хуже Вашего.
Другое дело группа из 6-ти чекбоксов (иногородний, районный, бомж, ...)
Если я не ошибаюсь, галочка должна стоять только одна. Если это так, то Вам при постановке галочки в один из этих чекбоксов придется снимать галочку в остальных пяти. Это 30 строк кода.
Для выбора одного из нескольких значений удобнее использовать "Группу переключателей". Попробуйте.

[dr03]

очевидно я опять написал на понятном только мне языке
Попробую так: флажок "вызов снят". Ставим галочку- в поле "время возврата" и "время окончания" ставится текущее время(решено), в поле "точный диагноз" прописывается надпись "вызов снят"(решено), и в поле "ЛПУ" прописывается "безрезультатный"(не решено).
Вопрос: как в меседжбоксе соеденить несколько действий для одного флажка? пример для кнопки "текущее время" для нескольких полей решён и выглядит так:
Private Sub вызов_снят_Click()
Поле242.Value = Time()
Поле240.Value = Time()
End Sub
Есть ли похожее... только не для времени, а для надписи или словосочетания?

[ovt256]

Private Sub вызов_снят_AfterUpdate()
MergeПолеСоСписком413
If вызов_снят Then
    ПолеСоСписком245 = 43
Else
    ПолеСоСписком245 = 0
End If
End Sub

43 - это ID записи в таблице "Больницы", соответствующий значению "безрезультатный".

[dr03]

у меня всплывает ошибка.

[ovt256]

Сообщение от dr03

у меня всплывает ошибка.

Так Вы второй раз процедуру описали! Посмотрите выше через одну процедуру. Просто удалите ее или добавьте в нее IF.