23/05/2013, 19:59
ferhatozge
İyi akşamlar.
Arkadaşlar projemde accsess gizle modülü ile pencereleri gizledim. Ancak raporlarda sağ tıklayınca menüler hazırlamıştım (yazdır-mail gönder-vb.) şimdi onlar raporda sağ tıklayınca çıkmıyor. Nasıl düzeltebilirim.
Gizle Modülü:
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const forumlari_com = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "USER32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Function www_access(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
If nCmdShow = SW_HIDE Then
MsgBox "www.AccessForumlari.com" _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = forumlari_com And loForm.Modal = True Then
MsgBox "www.AccessForumlari.com" _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "www.AccessForumlari.com" _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
www_access = (loX <> 0)
End Function
Arkadaşlar projemde accsess gizle modülü ile pencereleri gizledim. Ancak raporlarda sağ tıklayınca menüler hazırlamıştım (yazdır-mail gönder-vb.) şimdi onlar raporda sağ tıklayınca çıkmıyor. Nasıl düzeltebilirim.
Gizle Modülü:
Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const forumlari_com = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "USER32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Function www_access(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
If nCmdShow = SW_HIDE Then
MsgBox "www.AccessForumlari.com" _
& "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = forumlari_com And loForm.Modal = True Then
MsgBox "www.AccessForumlari.com" _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "www.AccessForumlari.com" _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
www_access = (loX <> 0)
End Function