Merhaba arkadaşlar;
Access penceresini gizlemek için bir modül kullanıyorum. Fakat uygulamayı açtığımda görev çubuğundaki Access simgesi de gizleniyor. Simge durumuna küçültme gibi durumlarda aksaklık yaşıyorum. Bu sorunu nasıl çözebiliriz? 
Yardımlarınızı rica ederim.

Merhaba, https://accesstr.net/konu-access-pencere...zleme.html bağlantısındaki konuda 3. Yol olarak anlatılan kodu uygulayın. Konuda 3. yolun örnek uygulaması da mevcut.

(09/10/2019, 13:56)ozanakkaya yazdı: Merhaba, https://accesstr.net/konu-access-pencere...zleme.html bağlantısındaki konuda 3. Yol olarak anlatılan kodu uygulayın. Konuda 3. yolun örnek uygulaması da mevcut.

Teşekkürler üstad.

Uyguladım. Görev çubuğunda gözüküyor fakat simge durumuna küçülttüğümde başlat menüsünün üzerine gidiyor. 
 

Bir çözüm önerisi yoksa cevaplanmış konulara taşıyabiliriz üstad (:

sayın @sipuasfaf internette aşağıdaki kodları buldum denemelerimde istediğiniz sonucu verdi dilerim işinize yarar
iyi çalışmalar
Not: aşağıdaki kodlar sadece görev çubuğuna göndermek için. gizleme kodlarını içermiyor
1- öncelikle bir modul oluşturun
module aşağıdaki kodlarrı ekleyin

#If VBA7 And Win64 Then '64 bit için

Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _

  ByVal hwnd As Long, _

  ByVal nIndex As Long, _

  ByVal dwNewLong As Long) As Long



Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _

  ByVal hwnd As Long, _

  ByVal nIndex As Long) As Long

#Else '32 bit için

Private Declare  Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _

  ByVal hwnd As Long, _

  ByVal nIndex As Long, _

  ByVal dwNewLong As Long) As Long



Private Declare  Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _

  ByVal hwnd As Long, _

  ByVal nIndex As Long) As Long

#End If







Private Const WS_EX_APPWINDOW = &H40000

Private Const GWL_STYLE = -20



Public Function ShowInTaskbar(Lhwnd As Long, Show As Boolean)

Dim lStyle As Long

lStyle = GetWindowLong(Lhwnd, GWL_STYLE)



If Show Then

lStyle = lStyle Or WS_EX_APPWINDOW

Else

lStyle = lStyle And Not WS_EX_APPWINDOW

End If



Call SetWindowLong(Lhwnd, GWL_STYLE, lStyle)



End Function

2 - daha sonra tüm formların Form_Load (yüklendiğinde) olayına aşağıdaki kodu ekleyin

ShowInTaskbar Me.hwnd, True