AccessTr.neT

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.

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?

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.

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.

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.

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.