Office: (Office 2007) Acc2007

Hung · 2. Dezember 2010

Hallo Forum,

hatte das Problem auch nach der Umstellung auf 2007.

Dieser code von dem Italiener Maurizio Borelli hilft:

Im Startformular
Call ShowCloseBtn(False)

In einem Modul:

Code:

Option Compare Database
Option Explicit
'Im Startformular
'Call ShowCloseBtn(False)

Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_NORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_MAXIMIZE = 3
Private Const SW_SHOWNOACTIVATE = 4
Private Const SW_SHOW = 5
Private Const SW_MINIMIZE = 6
Private Const SW_SHOWMINNOACTIVE = 7
Private Const SW_SHOWNA = 8
Private Const SW_RESTORE = 9
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MAX = 10

Private Const GWL_STYLE = -16
Private Const WS_SYSMENU = &H80000
Private Const WM_NCPAINT = &H85

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

Private Declare Function apiFindWindow Lib "user32" Alias _
"FindWindowA" (ByVal strClass As String, _
ByVal lpWindow As String) As Long

Private Declare Function apiSendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal _
wParam As Long, lParam As Long) As Long

Private Declare Function apiSetForegroundWindow Lib "user32" Alias _
"SetForegroundWindow" (ByVal hWnd As Long) As Long

Private Declare Function apiShowWindow Lib "user32" Alias _
"ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function apiIsIconic Lib "user32" Alias _
"IsIconic" (ByVal hWnd As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long

Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long

Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Function ShowCloseBtn(ShowIt As Boolean)
Dim mhWnd As Long
Dim lngOldStyle As Long
Dim lngNewStyle As Long

mhWnd = Application.hWndAccessApp

' Get the current window style of the form.
lngOldStyle = GetWindowLong(mhWnd, GWL_STYLE)

If ShowIt Then
' Turn on the bit that enables system menu.
lngNewStyle = lngOldStyle Or WS_SYSMENU
Else
' Turn off the bit the shows the system menu.
lngNewStyle = lngOldStyle And Not WS_SYSMENU
End If
' Questa Funzione suggerita da Maurizio Borrelli
' Serve per rimuovere anche il Menù POPUP della CaptionBar
Call RemoveItem(mhWnd)
' Set the new window style.
Call SetWindowLong(mhWnd, GWL_STYLE, lngNewStyle)

' The 1 as the third parameter tells
' the window to repaint its entire border.
Call apiSendMessage(mhWnd, WM_NCPAINT, 1, 0)

ExitHere:
Exit Function

HandleErrors:
Select Case Err.Number
Case Else
MsgBox Err.Number & " " & Err.Description
End Select
Resume ExitHere
End Function

Sub RemoveItem(hWnd As Long)
Dim hMnu, Y, i
Const MF_BYPOSITION As Long = 1024
Const MF_GRAYED As Long = 1
Const MF_DISABLED As Long = 2
hMnu = GetSystemMenu(hWnd, 0)
For i = 6 To 0 Step -1
Y = RemoveMenu(hMnu, i, MF_BYPOSITION)
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf · 2. Dezember 2010

Hallo
Ihr braucht Euch nicht mehr lang ab mir auf zuregen
ich werde in kürze hier keine (solche) Beiträge mehr schreiben
da es erstens gesundheitlich gar nicht mehr geht.
und ich von solchen Stör meinungen
genug habe.

ps.
Upload geht schneller als suchen unter Anhännge!
was ich in den letzten par Antworten auch gemacht habe.
"schliessen verhindern" habe ich nicht gefunden.

ich find eben das meine PDF's machmal mehr bringen als
ein Psoudo Code.

Office: (Office 2007) Acc2007

Acc2007

Acc2007

Acc2007 - Similar Threads - Acc2007

Acc2007

ODBCDirect-Workspace in Acc2007 nicht mehr möglich