Private Sub ИмяКнопки_Click() i = MsgBox("Распечатано или нет?", vbQuestion + vbYesNo) If i = vbYes Then ИмяЛогическогоПоля.Value = True End SubВставь эту подпрограмму в модуль формы и назначь ее событию нажатия кнопки. Соответственно ИмяКнопки = имя этой кнопки, ИмяЛогическогоПоля = имя этого поля в форме. |