اريد كود اغلاق الوندوز

[همام]

؟؟؟؟؟؟؟؟؟؟؟؟

[أبو أفنان]

تفضل

[*]Option Compare Database

Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_LOGOFF = 0
Const EWX_FORCE = 4

 Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub ÃãÑ8_Click()
If Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ6] = "ÎÑæÌ ãä ÇáÈÑäÇãÌ" Then
DoCmd.Save
DoCmd.Quit
Else
If Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ6] = "ÇÞÝÇá æäÏæÒ" Then
ExitWindowsEx EWX_SHUTDOWN, 1
Else
If Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ6] = "ÇÚÇÏÉ ÊÔÛíá" Then
ExitWindowsEx EWX_SHUTDOWN, 2
End If
End If
End If
End Sub

تم تعديل أبريل 13, 2004 بواسطه امير عاطف

[المسك]

مانفع

[محمد طاهر عرفه]

http://www.officena.net/ib/index.php?showt...=اغلاق,or,إغلاق