Access formun boyutlarını sabitleme

[miss_pert]

Merhaba arkadaşlar accesste bir form penceresinin boyutunu nasıl sabitleyebilirim? Kullanıcı formun boyutlarını değiştiremesin istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[GKMER]

makrolar da taşı ve boyutlandır var oradan makro ile yapabilirsin

 

[miss_pert]

?

Tam olarak anlamadım kodu yazabilirmisiniz rica etsem ama ben form özelliğinde yer alacağını düşünüyorum.

 

[GKMER]

DoCmd.MoveSize 5670, 5670, 11340, 8505
örnek olarak bu kod 10 cm aşağıda 10 cm sağda 20 x 15 formu boyutlandırır

 

[miss_pert]

?

Yardımın için teşekkürler ama ben ilk açılışta bu ayarları yapmak değiş kullanıcının bu formu hareket ettirmesini veya boyutlandırmasını engellemek istiyorum. ben programı hazırlarken o boyutta kalsn manuel olarak değiştiremesin.

 

[GKMER]

formun açılışına yazarsın kalıcı yaparsın sorun olmaz msn açarsan daha rahat konuşuruz

 

[miss_pert]

Border style

Arkadaşlar buldum formun border style nı thin yaparsanız kullanıcı formunuzun boyutlarını değiştiremiyor.

 

[gulsum1]

cevap

bunu formun açılışına

Call Yerlestir(400, 300, 10, 10)

buda modüle


Option Compare Database
Option Explicit



Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Const SW_RESTORE = 9
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Const SPI_GETWORKAREA = 48
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Sub MasaustuneYerlestir()
'Kodu şimdi çalıştırmak için buraya gelip F5 tuşuna basın.
Dim r As RECT
SystemParametersInfo SPI_GETWORKAREA, 0, r, 0
Call Yerlestir(r.Left, r.Top, r.Right - r.Left, r.Bottom - r.Top)
End Sub
Public Sub Yerlestir(Sol As Long, Ust As Long, Sag As Long, Alt As Long)
ShowWindow hWndAccessApp, SW_RESTORE
MoveWindow hWndAccessApp, Sol, Ust, Sag, Alt, 1
End Sub


araçlar başlangıçtan formunu seç ve diğer bütün seçenek düğmelerini pasif et

ekranda yalnızca formun görünür başka bir şey görünmez tasarıma geçmek içinde programını şift tuşuna basılı tutarak aç

yalnız bütün forumların üzerine açılacak şekilde olacak