Access Pencerelerini Gizleme

Evet Sn.okileturc Uygulamaları Doğrudan taskbar'a İndirme Fikrini Daha Önce Düşünmüştüm Ama Böyle Bir Çalışmayı Daha Önce Göremediğim İçin Sadece Fikir Olarak Kalmıştı.Ancak El Birliği İle Yapılabileceğini Düşünüyorum.Mutlaka Farklı Çözümler Üretilecektir.
Sizin Denediğiniz Kodda Nasıl Bir Çakışma Oluyor,Çakışmanın Neden Kaynaklandığını Görebiliyor musunuz? Teşekkürler,İyi Çalışmalar.

Bu kod task bar a alma işlemini başarıyla
çözüyor. Ancak diğer ( gizleme ) modülle
birlikte çalışmıyor

Option Compare Database



      Declare Function GetActiveWindow% Lib "user32" ()

      Declare Function ShowWindow% Lib "user32" (ByVal hwnd%, ByVal nCmdShow%)



      Function MaximizeAccess()

         Dim ActiveWnd%, Maxit%

         ActiveWnd% = GetActiveWindow()

         Maxit% = ShowWindow(ActiveWnd%, 3)

      End Function

      Function MinimizeAccess()

         Dim ActiveWnd%, Minit%

         ActiveWnd% = GetActiveWindow()

         Minit% = ShowWindow(ActiveWnd%, 2)

      End Function



      Function RestoreAccess()

         Dim ActiveWnd%, Restoreit%

         ActiveWnd% = GetActiveWindow()

         Restoreit% = ShowWindow(ActiveWnd%, 1)

      End Function

Call MinimizeAccess uygulamayı taskbara alıyor

Bu sefer de çalışacağı tuttu Ama taskbara değil, boşluğa küçülttü
iyice şaşırdım

Sayın lifeexciting çok teşekkürler emeğinize ve ellerinize sağlık efendim

Son durum nedir hala boşluğa mı küçültüyor taskbara iniyor mu
Veya taskbara inince zaten minimize olmuyor mu

sayın @accessman biraz kolaycılığa kaçmıyor musunuz? bu kaçıncı sorunuzdur hep çalışıp-çalışmadığını soruyorsunuz, kodlar da var örnek de... Denemesi çok mu zor? bu kadar "armut piş, ağzıma düş" olmaz.