Access Penceresini Gizleme

1 2
25/02/2009, 12:01

debris

ofis 2007 de nasıl yapıcalağını nerden bulabilirim acaba epey aradım bulamadım.yardım ederseniz çok sevinirim.şimdiden çok teşekkürler.
29/02/2012, 11:31

smiley

bu örnekteki göster - gizle butonlarını tek butonda birleştirmek mümkün mü? ilk tıklandığında pencereyi gösterecek ikinci tıklamada gizleyecek bir buton iki durumlu düğme ile yapılabilir mi?
14/01/2017, 20:04

misak70

access penceresini gizleme amaçlı yazılan kod 64 bitlik sisteme uygun görünmüyor. örnek uygulamayı açınca aşağıdaki hatayı alıyorum. yardımcı olabilirmisiniz.

Compile error;

The code in this project must be updated for use on 64-bit systems.
Please review and update Declare statements and then mark them with
the PtrSafe attribute.
14/01/2017, 20:46

atoz112

sayın misak70,

Alıntı:access penceresini gizleme amaçlı yazılan kod 64 bitlik sisteme uygun görünmüyor. örnek uygulamayı açınca aşağıdaki hatayı alıyorum. yardımcı olabilirmisiniz.

ifadenize yönelik olarak;

bu konunun 2.mesajında eklenen örnek uygulamadaki MODÜLE1 adlı modülün içeriğini,

Option Compare Database




#If VBA7 Then




Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3




Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Longptr, ByVal nCmdShow As Longptr) As Longptr




#Else




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




#End If












Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm




If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If




If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function

yukarıdaki kodlar ile değiştirip kaydederek kullanmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
17/01/2017, 11:37

misak70

Sayın atoz112  ilginiz için teşekkür ederim. Veritabanın çalıştığı bilgisayar Windows 10 pro 32 bit (10.0 Yapı 10586) Microsoft Office 2016 kurulu. Access penceresini gizleyemedim.
17/01/2017, 11:42

atoz112

sayın misak70,

Site Kuralları sayfasını tekrar incelemenizi temenni etmekle birlikte;
Cevaplanmış Sorular kategorisi içerisine taşınıp kapatılmış ve örnek eklemesinin dahi yapılamayacağı bir konuda,mesaj eklemesinde bulunmayınız.

bu konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek yeni bir konu açarak sorununuza çözüm arayabilirsiniz.

böylece,hem bu konunun mesaj yoğunluğunu artırmamış olursunuz hem de benzer soruna maruz kalabilecek olan diğer üyelerin site içi aramalarda alternatif bir konuya da bakılmasını ve incelemesini de sağlamış olursunuz.

konunuza,örnek uygulamanızı;içeriğinde farazi gerçek dışı bilgiler ve 5-10 kayıt barındıracak şekilde eklemeniz de yerinde olacaktır.

uygulamanızda herhangi bir soruna veya hataya maruz kalacak olursanız,bu hata veya sorunların gerek isimlerini ayrıntılı belirterek ya da sorunları net ifade ederek ve gerekse de ekran görüntüleri dahi eklemek sureti ile,çözümler arayabilirsiniz.

katılımcılar tarafından,açacağınız konuda uygun görülecek olan gerekli bilgi ya da örnek paylaşımlarının yapılması da mümkün olacaktır.

bilginize...iyi çalışmalar,saygılar.
1 2