În Access se întâmplă ca, atunci când foloseşti un formular, având anumite dimensiuni, dar vizualizezi vreun raport, de regulă extins pe tot ecranul, să constaţi că, dacă redeschizi formularul, este şi el extins pe tot ecranul, aspect inestetic, de cele mai multe ori.
în astfel de situaţii, se pot folosi două comenzi VBA, plasate în evenimentul Load al formularului:
|
1 2 3 4 |
Private Sub Form_Load() DoCmd.Restore DoCmd.RunCommand acCmdSizeToFitForm End Sub |
Dacă este necesară dimensionarea explicită, la anumite valori, se poate apela la următorul script.
Primul pas este să declarăm variabilele publice:
|
1 |
Public int_drt, int_jos, int_lat, int_inalt As Integer |
Ulterior, se apelează la metoda MoveSize.
|
1 2 3 4 5 6 7 8 |
Private Sub Form_Load() int_drt = 500 int_jos = 100 int_lat = 13000 int_inalt = 12000 DoCmd.MoveSize int_drt, int_jos, int_lat, int_inalt End Sub |
Metoda MoveSize conţine patru argumente (toate opţionale):
- int_drt – Distanţarea spre dreapta, pornind de la marginea din stânga ferestrei.
- int_jos – Distanţarea în jos, pornind de la marginea de sus a ferestrei.
- int_lat – Lățimea ferestrei.
- int_inalt – Înălţimea ferestrei
Un argument necompletat implică setarea curentă pentru fereastră (de ex. DoCmd.MoveSize int_drt, int_jos, , int_inalt presupune că lăţimea este neschimbată). Trebuie inclus cel puțin un argument pentru metoda MoveSize.
