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