KAYDET düğmesinin tıklandığında olayına

Select Case MsgBox("Kayıt işlemi tamamlanmıştır. Tutanak yazdırmak istiyormusunuz?", vbYesNo Or vbExclamation Or vbDefaultButton1, "DİKKAT")



 Case vbYes

'Bu alana açılmasınıı istediğiniz raporu belirtin.

 Case vbNo

'Bu kısıma boşaltılmasını istediğiniz alanları belirtin.

'Örneğin 

'Me.CezaYeri=""

End Select