Dim status As Boolean
status = 0
If (MsgBox("ÖÛØ ÚäÏ ÇáÎÑæÌ" & Chr(13) & Chr(13) & "åá ÊÑíÏ ÖÛØ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÚäÏ ÇáÎÑæÌ", vbYesNo, "ÖÛØ ÇòÎÊíÇÑí")) = vbYes Then
status = 1
Else
status = 0
End If
Application.SetOption "Auto Compact", status
DoCmd.Quit