AccessTr.neT

Bul · 13/11/2015, 13:00

(13/11/2015, 11:30)atoz112 yazdı: Sayın oomerrrr,

Öncelikle,eklediğiniz uygulama üst sürüm olduğundan dolayı inceleme durumum olmamakla birlikte,eğer önceki sürüme göre konunuza dahil etme fırsatı olursa kendi adıma ya da önceki sürüm kullanıp da katılımda bulunmayı isteyebilecekler adına,bu eklemeyi sağlayabilirsiniz.

Pencere ya da Access gizleme işlemlerini tekrar gözden geçirmek sureti ile bu hazırlık sürecini kontrol edip varsa olası hatalar ya da dahil edilmesi veya düzeltilmesi gerekenler,bunları uygulayabilirsiniz.

Aşağıda bağlantısı yazılı konularda yazılı bilgilendirmeleri anlatıldığı hali ile aynı şekilde tatbik edip etmediğinizi kontrol ediniz.çünkü;bu konularda yazılı hususları bire bir uygulandığı takdirde gerek pencere gizleme ve gerekse de sistem farklılıklarında çalıştırma işlemleri sorunsuz olarak işlevlerini yerine getirmektedir.

PENCERE GİZLEME üzerine;

Access Penceresini Gizleme

32 BIT / 64 BIT SİSTEMLERDE FONKSİYON YA DA MODÜL ÇALIŞTIRMA üzerine;(2.mesaj)

32 bit (x86) yapılan programların 64 bit (x64) çalıştırılması

Son olarak,sorununuzun bir ihtimal asıl nedeni,pencere gizleme işlemlerini uygularken bir yerinde yapılması gerekenin dışında bir kod yazımı veya ayarında soruna maruz kalıyorsunuzdur. ya da bir diğer ihtimal;pencere gizleme işlemlerinde gerek formların ve gerekse de özellikle de raporların ÖZELLİKLER-DİĞER-KALICI ve ÖZELLİKLER-DİĞER-AÇILAN satırlarını EVET olarak belirtmelisiniz ki,raporu ister rapor ve isterseniz de ön izleme olarak açtığınızda tüm formların üstünde ön planda ekranda belirmesini sağlamanız gerekir.

Bilginize…iyi çalışmalar,saygılar.

Sayın Atoz112;

Öncelikle yardımınız için çok teşekkür ederim. Belirttiğiniz husuları projeyi hazırlarken de göz önünde bulundurmuştum. Ancak olası hatalara karşı verdiğiniz bilgiler ışığında tekrar kontrol ettim. Bir hataya rastlamadım. Örneğimi .mbd formatında tekrar yüklüyorum.

Saygılarımla...

Bul · 13/11/2015, 17:45

Sayın oomerrrr,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT:
gerek formun ve gerekse de raporun olay yordamlarını ve hem Tasarım sayfalarındaki hem de üst menüden ARAÇLAR-BAŞLANGIÇ penceresinde yer alan

ACCESS ÖZEL TUŞLARINI KULLAN
TAM MENÜLERE İZİN VERME
VARSAYILAN KISA YOL MENÜLERİ İZLE
YERLEŞİK ARAÇ ÇUBUKLARI İZNİ
seçeneklerinin İŞARETSİZ olmalarına dair ayarları kontrol ederek incelemeyi deneyiniz.

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

Bul · 15/11/2015, 17:48

Sorunu aldığım yardım sonucu Rapor Açıldığında Olay Yordamına "Me.Requery" kodunu ekleyerek çözdüm.
İncelemek isteyenler için son halini ekledim.

Cevap yazan herkese çok teşekkürler.

Bul · 16/11/2015, 14:19

Sayın oomerrrr,

Her ne kadar çözüm elde ettiğinizi beyan etmiş olsanız da,konunuzun 9.mesajında eklediğiniz örnek uygulama incelendiğinde,aşağıdaki hususlara dair açıklamaların yapılması uygun görülmüştür.

1) Pencere (arka planda Access) gizleme işlemi için üst menüden ARAÇLAR-BAŞLANGIÇ sekmesinde yer alan

- UYGULAMA SEÇENEKLERİ başlığı altındaki Access ÖZEL TUŞLARINI KULLAN

- ŞERİT ARAÇ ÇUBUĞU SEÇENEKLERİ altındaki TAM MENÜLERE İZİN VERME,VARSAYILAN KISAYOL MENÜ İZNİ ve YERLEŞİK ARAÇ ÇUBUKLARI İZNİ seçeneklerinin işaretli olduğu fark edilmiştir.

Yukarıda bahsi geçen ifadelerinin olduğu checkbox kutuları İŞARETSİZ olması gerekmektedir ki,bu işlemlere zemin hazırlansın.

2) frm_1 adlı formun Açıldığında olay yordamındaki

Kod:

Call fSetAccessWindow(0)

kod satırının hatalı ve bazı kodların eksik yazıldığı fark edilmiştir.bu nedenle,bu durumu düzeltmeniz için aşağıda yapmanız gerekenler anlatılmıştır:

a) mdl_access_gizleme adlı modülün içeriğini tamamen siliniz ve aşağıdaki kodları dahil ediniz.

Kod:

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

 

#If VBA7 And Win64 Then

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

#Else

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)

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

b) frm_1 adlı formun Açıldığında olay yordamını tamamen siliniz ve Yüklendiğinde olay yordamına aşağıdaki kod satırını dahil ediniz.

Kod:

fSetAccessWindow (SW_HIDE)

3) rpr_1 adlı raporun Yüklendiğinde olay yordamına Me.Requery kod satırını yazmanıza gerek yok aslında.çünkü;zaten rapor açıldığında bilgiler güncel hali ile yer almaktadır.

EK'te;
Yukarıda bahsi yapılan tüm açıklamaların uygulandığı hali ile düzenlenerek hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bu paylaşımın faydalı olması temennisi ile.bilginize…iyi çalışmalar,saygılar.

AccessTr.neT

Rapor Oluşturduğunda Access Kilitleniyor.

Rapor Oluşturduğunda Access Kilitleniyor.

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

Giriş yap

Hesap oluştur

Konu Linkleri