Skip to main content

AccessTr.neT


64 bit de access penceresini gizleme

64 bit de access penceresini gizleme

#1
herkese merhaba ,

32 bit bilgisayarlada asagida verdidim kodlari modulun icine koyunca basarili bir sekilde calisiyor, ancak sikintim 64 bit bilgisayarda calismiyor. calistigim is yerinde hem 32 hemde 64 bit bilgisayar var dolayisiyla hazirladigim veri tabani her yerde calismiyor.

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 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 fSetAccessWindow(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
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else

loX = apiShowWindow(hWndAccessApp, nCmdShow)

End If
fSetAccessWindow = (loX <> 0)
End Function


Formun acilisina

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (0)
End Sub

Pop up = yes
modal = yes
.rar Database9.rar (Dosya Boyutu: 14,68 KB | İndirme Sayısı: 169)
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
64 bit de access penceresini gizleme - Yazar: vstural75 - 18/05/2013, 08:28