ARKADAŞLAR MERHABA;

UYGULAMAYI İNDİRDİM FAKAT EKRAN BOŞ OLARAK GELİYOR. NE YAPMAMIZ GEREKLİ.

TEŞEKKÜRLER

sayın Ali Kabahor,

bahsettiğiniz talebinize yönelik olarak;

aslında daha ayrıntılı bilgilendirmede bulunmanız yerinde olur."boş" olarak derken kast ettiğiniz nedir?

eğer uygulama içeriğinde yer alan pencere gizleme işlevinden kaynaklı bir durumdan dolayı ise,muhtemelen 32 bit / 64 bit kullanımı farklılığı neden olmaktadır.çözüm için;

öncelikle,uygulamayı SHIFT tuşuna basılı tutarak uygulama iyicene açılana kadar bırakmaksızın tamamen açılmasını sağlayınız.

ardından,ALT + F11 tuşuna basarak kod sayfasına geçiniz ve MODULE1 adlı modülün içeriğini tamamen silip

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 Then









Private Declare PtrSafe Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hWnd As Longptr, _

ByVal nCmdShow As Longptr) As Longptr









#Else









Private Declare Function apiShowWindow Lib "user32" _

Alias "ShowWindow" (ByVal hWnd As Long, _

ByVal nCmdShow As Long) As Long









#End If









' This function is to be called as such:

' Call fSetAccessWindow (argument)

' The arguments are as follows;

' SW_HIDE - this hides the Access database window

' SW_SHOWMAXIMIZED - this maximizes the window

' SW_SHOWMINIMIZED - this minimizes the window

' SW_SHOWNORMAL - this just shows (as normal) the window

















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ı dahil edip bu şekilde kullanmayı deneyiniz.bilginize...iyi çalışmalar,saygılar.

cevap için teşekkür ederim.

dediklerinizi uyguladım fakat yinede açılmadı.sorunu baştan anlatayım.

windows 7 64 bit offfice 2010 kullanıyorum 

 acess dosyasını ilk açtığımda kullanıcı adı şifre geliyor bilgileri giriyorum tamam dediğimde hiç bir hareket yok. yani yeni bir ekran vs. açılmıyor

daha sonra makroları aktifleştirdiğimde giriş ekranı gelmiyor. 

teşekkür ederim.iyi çalışmalar

sayın Ali Kabahor,

aşağıdaki açıklamaların yapılması uygun görülmüştür.

maruz kaldığınız durumun iki nedeni olabilir.

birincisi,bir önceki mesaj içeriğinde yer alan kodların kullanımı neticesinde eğer yine de bir çözüm olmadıysa pencere gizleme hususunda bir engelleme olabilir.

denemede bulunmak amacı ile,ilk açılacak form olarak belirlenen şifre formunun AÇILDIĞINDA olay yordamı içerisinde yer alan



ve resimde görülen fSetAccessWindow (SW_HIDE) kod satırını etkisizleştirip bir de bu şekilde kullanmayı deneyiniz.

ikincisi de,makro güvenlik seviyesi ayarınız ile ilgili olabilir.uygulama içerisinde oluşturulan bir makro mevcut.bunun kullanımı esnasındna kaynaklı bir sorun da olabilir.

ARAÇLAR-EXCEL SEÇENEKLERİ-GÜVEN MERKEZİ sekmesindeki GÜVEN MERKEZİ AYARLARI ifadeli butonu tıklayınız.

MAKRO AYARLARI sekmesindeki TÜM MAKROLARI ETKİNLEŞTİR (Enable all macros) seçeneğini işaretleyip TAMAM ile işlemleri onaylamak sureti ile bitirip uygulamayı tekrar çalıştırınız.

yalnız,uyarıda bulunmakta fayda var.bu ayarı yaptığınız takdirde bundan dolayı olası sorunlara da maruz kalabilirsiniz.

32 bit ortamda kullanım olarak herhangi bir sorun yaşanmaksızın elde edilen görsel sonuçlar aşağıda yer almaktadır.







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

çok teşekkür ederim.



pes ettim yapamadım . 64 bit olunca farklı oluyor sanırım :

daha verimli kullanabileceğim projem için yenilikler üretmede yardımcı olacağına inanıyorum.
boş vakitlerimde kodları inceleyerek kendi düşüncelerimle pekiştirip  iyi bir proje ortaya çıkartabilirsem mali müşavir ve küçük esnaflarında istediği gibi bir tablo ortaya çıkacak.
bitirdiğimde  paylaşımda bulunurum.

iyi akşamlar.

sayın Ali Kabahor,

Alıntı:pes ettim yapamadım .

ifadenize yönelik olarak;

kendi adıma geçerli olmak sureti ile belirtmek isterim ki ne pes etmenize ne de vaz geçmenize gerekli bir durum değil bu aslında.

kendi ifadeniz ile yapamadığınız nedir? neleri denediniz de olumsuz sonuçları aldınız?

naçizane bir öneri olması adına,bu örnek konuyu bağlantı göstermek sureti ile sorunuzu ya da talebinizi içerecek YENİ KONU açarak sorununuza çözüm arayabilirsiniz.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ınmasını ve incelemesini de sağlamış olursunuz.ayrıca,sorununuza daha hızlı bir katılım da elde etmiş 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.