Skip to main content

AccessTr.neT


accsess gizleme.

accsess gizleme.

Çözüldü #1
İ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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
accsess gizleme. - Yazar: ferhatozge - 23/05/2013, 19:59
Cvp: accsess gizleme. - Yazar: benremix - 23/05/2013, 20:10
Cvp: accsess gizleme. - Yazar: ferhatozge - 23/05/2013, 20:28
Cvp: accsess gizleme. - Yazar: fatih karagöl - 23/05/2013, 20:33
Cvp: accsess gizleme. - Yazar: ferhatozge - 23/05/2013, 20:40
Cvp: accsess gizleme. - Yazar: ferhatozge - 24/05/2013, 16:07
Cvp: accsess gizleme. - Yazar: fatih karagöl - 24/05/2013, 17:18
Cvp: accsess gizleme. - Yazar: ferhatozge - 24/05/2013, 20:35