Private Sub Close_Click()
Dim R As Integer
R = MsgBox("Zatvaras formu  ", vbYesNo + vbExclamation + _
vbApplicationModal + vbDefaultButton2, "Napomena")
    If R = vbYes Then
     DoCmd.Close
    End If
End Sub