maksimeret

På formens "VedIndlæsning"-hændelse (OnLoad) lægger du denne kode:
docmd.Maximize

Lav en makro hvor du åbner formularen som 1. handling. derefter laver du endnu en handling der hedder "Maksimeret". Luk makroen og døb den "Autoexec".

place docmd.maximize in th eon open event

Så må thomas vist føre 1-0-0  :-)

Thats one of the pitfalls of having your webmail in the USA

Jeg vil have tillægspoint for den kunstneriske udførelse :o)

gosh I er hurtige...tak drenge

Her efter det sidste fløjt vil ja da lige tilføje en yderligere mulighed:

Hvis det er hele programmet, der skal maksimeres kan du i Mugs' makro angive handlingen "KørKommando" og angive kommandoen til "MaksimerProgram".

Selv tak :o)

drenge? Må jeg lige bede om kammertonen? Jeg er en voksen mand der nærmer sig pensionsalderen, p.g.a. gigt i fingrerne kom jeg derfor 39 sek. for sent.

*gg* sorry (der er da altid noget du ikke er en pige - så havde det jo været helt galt)

*LOL*

I forlængelse af Superjap's sidste indlæg, vil jeg da også bidrage med endnu en løsning. Det er en lille stump kode, som bruges til at styre Access-vinduet.

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)
'Usage Examples
'Maximize window:
'      ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'      ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'      ?fSetAccessWindow(SW_HIDE)
'Normal window:
'      ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
    If Err <> 0 Then 'no Activeform
      If nCmdShow = SW_HIDE Then
        MsgBox "Cannot hide Access unless " _
                    & "a form is on screen"
      Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
      End If
    Else
        If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
            MsgBox "Cannot minimize Access with " _
                    & (loForm.Caption + " ") _
                    & "form on screen"
        ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
            MsgBox "Cannot hide Access with " _
                    & (loForm.Caption + " ") _
                    & "form on screen"
        Else
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
        End If
    End If
    fSetAccessWindow = (loX <> 0)
End Function

ok den er jeg glad for at du ikke lagde ud med *s*

We make it difficuly when you can MakeITeasy :o)

Det må være dagens ord - halleluja :o)

Haha, Terry...den kunne du huske fra min gamle hjemmeside, hva'? :o)
(eller var det på mit minisite her på eksperten?)

Men det er fortid nu...inden længe er der ikke noget MakeIT Easy mere!

(we=why)