Chào mọi người!
Em có thiết kế 1 unbound form đặt tên là F_Main để khi mở chương trình Access, form này sẽ luôn hiển thị thường trực. Trên F_Main, em có gắn Menu Bar do em thiết kế (Bao gồm các menu: Danh Mục Hàng Hóa, Danh mục Khách hàng, Danh mục Nhân viên, Nhập Hàng, Xuất hàng, In,.........).
Em muốn là khi mở F_Main ở bất kỳ máy nào thì nó tự động tinh chỉnh lại cho vừa màn hình với máy tính đó, và lúc này trên F_Main sẽ ở chế độ full màn hình, trên đầu F_Main có gắn Menu Bar (nghĩa là: vẫn còn hiển thị Menu Bar do mình thiết kế, các nút: Max, Min, Restore, Close sẽ không còn).
Em đã làm được tới đây:
Mã:
Private Sub Form_Open(Cancel As Integer)
CommandBars("menu bar").Enabled = True
' Laáy ñoä phaân giaûi maøn hình & ñoåi ra twips. 1 twip = 1/15 pixels; 1/20 point; 1/567 cm ; 1/1440 inch
TwipResW = GetSystemMetrics(0) * 14.948
TwipResH = GetSystemMetrics(1) * 14.435
DoCmd.MoveSize 0, 0, TwipResW - 100, TwipResH - 100
Me.Width = Me.WindowWidth
Me.Detail.Height = Me.WindowHeight
End Sub
Tuy nhiên, khi qua máy khác, em sẽ phải vào lại module sửa lại code rất cực. Cụ thể là sửa lại 2 dòng:
Mã:
TwipResW = GetSystemMetrics(0) * 14.948
TwipResH = GetSystemMetrics(1) * 14.435
Mong mọi người xem thử, liệu có cách nào mà mình không cần vào sửa mà nó tự động canh chỉnh cho mình không.
Xin chân thành cảm ơn!