Formulier als Pop-up verkleinen (formaat aanpassen)

[dingesvandinges]

Helpmij'ers,

Hoe kan ik een Pop up verkleinen (formulier die als POP-up open).
Ik dacht met de volgende code alleen dit werkt niet:

Private Sub Form_Current()
DoCmd.MoveSize 2400, 100, 15000, 13000

End Sub

Wie o Wie help mij uit de brand

 

[OctaFish]

Bij mij werkt het prima; wat zijn de instellingen van je formulier?

 

[dingesvandinges]

Klopt, dit werkt nu ook

Hij overschrijft echter de autocenter, dit klopt ook wel....
Maar toch wil ik hem centreren ongeacht het schermformaat.
Dit wil niet lukken.

Anders wil ik het op scherm formaat 1024 x 786 meest gebruikte.


-----
Stukje tekst:

naar rechts, naar omlaag, breedte, hoogte

naar rechts - afstand vanaf linkerkant van het scherm tot de linkerkant van de pop up
naar onder - afstand vanaf de bovenkant van het scherm tot de bovenkant van de pop up
breedte - breedte
hoogte - hoogte

deze formaten worden aangegeven is swips, 567 swips is 1cm

bron: link

 

[OctaFish]

Als je hem wilt centreren, dan hoef je de code toch niet te gebruiken? Dan zet je de optie zoals je zelf al voorstelde, op AutoCentreren.
Of wil je eigenlijk wat anders?
Met deze code kun je de resolutie aanpassen.

Private Sub Form_Load()

    Call VerifyScreenResolution
     
End Sub

Sub VerifyScreenResolution(Optional Dummy As Integer)
     
    Dim x  As Long
    Dim y  As Long
    Dim MyMessage As String
    Dim MyResponse As VbMsgBoxResult
     
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    If x = 1024 And y = 768 Then
    Else
        MyMessage = "Je huidige schermresolutie is " & x & " X " & y & vbLf & "Dit formulier " & _
        "is ontwikkeld voor een schermresolutie van 1024 X 768 " & vbLf & "en wordt daarom misschien niet goed weergegeven " & _
        "met de huidige instellingen." & vbLf & "Wil je de schermresolutie aanpassen?"
        MyResponse = MsgBox(MyMessage, vbExclamation + vbYesNo, "Scherm resolutie")
    End If
    If MyResponse = vbYes Then
        Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")
    End If
     
End Sub