هلا استاذ كرار .. وينك اخوي ؟ .. فاقدينك
ان شاء الله بخير وعافية
تفضل هذا الكود من محفوظاتي :
Option Compare Database
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long, _
ByVal dwnewlong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nindex As Long) As Long
Const WS_CLOSEBOX = &H80000
Const GWL_STYLE = (-16)
Sub RemoveCloseBox()
Dim i As Long
Dim hWnd As Long
hWnd = Application.hWndAccessApp
i = GetWindowLong(hWnd, GWL_STYLE)
i = i And Not (WS_CLOSEBOX)
i = SetWindowLong(hWnd, GWL_STYLE, i)
End Sub
Private Sub Form_Open(Cancel As Integer)
RemoveCloseBox
End Sub
Private Sub Form_Close()
DoCmd.Quit
End Sub
اخفاء ايقونة اطار.rar