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):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
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then 'no Activeform
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Nemogu minimizirati Access formu :" _
& loForm.Caption
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Nemogu sakriti Access formu : " _
& loForm.Caption
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function