tronghieu9792 > 07-06-15, 03:24 PM
tranthanhan1962 > 08-06-15, 08:37 AM
(07-06-15, 03:24 PM)tronghieu9792 Đã viết: trong access 2003 khi tạo form cho hiện thị đầy màn hình thì bên trên góc phải của form luôn có 2 hình vuông lòng vào nhau, khi lick chuột vào ký hiệu này thì form lặp tức trở về định dạng form thu nhỏ theo thiết kế ban đầu không còn đầy màn hình nữa mặc dầu trong thuộc tính đã tắt hết các lệnh: min, max...
Trường hợp: khi thiết kế form đầy màn hình và khi mở form khác nó cũng đầy màn hình luôn. Anh chị chỉ giúp có cách nào cố định main form đầy màn hình và mở các form khác thì cố định kích thước như thiết kế. Cảm ơn
DoCmd.Maximize
Private Sub Form_Activate()
Form nhận focus
DoCmd.Restore
End Sub
---------------------------------------------
Private Sub Form_Deactivate()
Form mất focus
DoCmd.Restore
End Sub
---------------------------------------------
Private Sub Form_Load()
Tải form
DoCmd.Restore
End Sub
---------------------------------------------
Private Sub Form_Open(Cancel As Integer)
Mở form
DoCmd.Restore
End Sub
---------------------------------------------
Private Sub Form_Resize()
Thay đổi kích cở form
DoCmd.Restore
End Sub
tronghieu9792 > 08-06-15, 10:56 AM
tranthanhan1962 > 08-06-15, 02:08 PM
(08-06-15, 10:56 AM)tronghieu9792 Đã viết: Cảm ơn bạn rất nhiều, để mình thử xem
DoCmd.OpenReport ....
DoCmd.Maximize
MTNQ > 09-06-15, 02:16 AM
(07-06-15, 03:24 PM)tronghieu9792 Đã viết: trong access 2003 khi tạo form cho hiện thị đầy màn hình thì bên trên góc phải của form luôn có 2 hình vuông lòng vào nhau, khi lick chuột vào ký hiệu này thì form lặp tức trở về định dạng form thu nhỏ theo thiết kế ban đầu không còn đầy màn hình nữa mặc dầu trong thuộc tính đã tắt hết các lệnh: min, max...
Trường hợp: khi thiết kế form đầy màn hình và khi mở form khác nó cũng đầy màn hình luôn. Anh chị chỉ giúp có cách nào cố định main form đầy màn hình và mở các form khác thì cố định kích thước như thiết kế. Cảm ơn
Private Sub Form_Resize()
If WM_apiIsZoomed(Me.hWnd) = 0 Then
Me.TimerInterval = 1
End If
End Sub
Private Sub Form_Timer()
DoCmd.Maximize
Me.TimerInterval = 0
End Sub
'bên dưới hai dòng này nhé
'Option Compare Database
'Option Explicit
Public Declare Function WM_apiIsZoomed Lib "user32.dll" Alias "IsZoomed" _
(ByVal hWnd As Long) As Long
tronghieu9792 > 09-06-15, 11:36 AM