Prikazi cijelu temu 03.09.2011 10:12
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


Predmet:Re: Skriven access prozor da li je moguće??
Ako skrivaš startup prozor access dosta ti je staviti na lokaciju bate BMP Tvojabaza.mdb = Tvojabaza.bmp
ali ako baÅ¡ hočeÅ¡ sakriti prozor napravi modul neki i izkopiraj ovo dole a svoj prozor (formu) postavi na startup, a formu na modail i na okidač onopen možeÅ¡ sljedeče
Call fSetAccessWindow(SW_SHOWMAXIMIZED)'' - Povečaj
Call fSetAccessWindow(SW_SHOWMINIMIZED)'' - Smanji
Call fSetAccessWindow(SW_HIDE)''- Sakri
Call fSetAccessWindow(SW_SHOWNORMAL)''- Pokaži normalno

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.  
  4. Global Const SW_HIDE = 0
  5. Global Const SW_SHOWNORMAL = 1
  6. Global Const SW_SHOWMINIMIZED = 2
  7. Global Const SW_SHOWMAXIMIZED = 3
  8.  
  9. Private Declare Function apiShowWindow Lib "user32" _
  10. Alias "ShowWindow" (ByVal hwnd As Long, _
  11. ByVal nCmdShow As Long) As Long
  12.  
  13. Function fSetAccessWindow(nCmdShow As Long)
  14. Dim loX As Long
  15. Dim loForm As Form
  16. On Error Resume Next
  17. Set loForm = Screen.ActiveForm
  18. If Err <> 0 Then 'no Activeform
  19. loX = apiShowWindow(hWndAccessApp, nCmdShow)
  20. Err.Clear
  21. End If
  22. If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
  23. MsgBox "Nemogu minimizirati Access formu :" _
  24. & loForm.Caption
  25. ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
  26. MsgBox "Nemogu sakriti Access formu : " _
  27. & loForm.Caption
  28. Else
  29. loX = apiShowWindow(hWndAccessApp, nCmdShow)
  30. End If
  31. fSetAccessWindow = (loX <> 0)
  32. End Function