songlong1424 > 29-12-20, 07:07 AM
ledangvan > 29-12-20, 09:32 AM
(29-12-20, 07:07 AM)songlong1424 Đã viết: Các Bác giúp mình hiển thị form cố định ngay góc phải màn hình với . Kich thuoc : rong 3cm , dai 12 cm và không hiển thị access toolbar nhe . Mình không biết cách up hình . Mấy bác thông cảm nhe
AnNguyen > 29-12-20, 11:53 AM
(29-12-20, 07:07 AM)songlong1424 Đã viết: Các Bác giúp mình hiển thị form cố định ngay góc phải màn hình với . Kich thuoc : rong 3cm , dai 12 cm thông cảm nheBạn thử đoạn code này xem
Private Sub Form_Open(Cancel As Integer)
Application.Echo False 'turn off screen updates
DoCmd.Maximize
w = Me.WindowWidth
h = Me.WindowHeight
DoCmd.Restore 'restore the window to it's old size
Application.Echo True 'turn on screen updates
Me.InsideWidth = 1440 * 4.72 ' chieu dong
Me.InsideHeight = 1440 * 1.18 ' chieu cao
DoCmd.MoveSize w - Me.InsideWidth - 700, 0
End Sub
songlong1424 > 29-12-20, 08:52 PM
(29-12-20, 11:53 AM)AnNguyen Đã viết:(29-12-20, 07:07 AM)songlong1424 Đã viết: Các Bác giúp mình hiển thị form cố định ngay góc phải màn hình với . Kich thuoc : rong 3cm , dai 12 cm thông cảm nheBạn thử đoạn code này xem
Mã:Private Sub Form_Open(Cancel As Integer)
Application.Echo False 'turn off screen updates
DoCmd.Maximize
w = Me.WindowWidth
h = Me.WindowHeight
DoCmd.Restore 'restore the window to it's old size
Application.Echo True 'turn on screen updates
Me.InsideWidth = 1440 * 4.72 ' chieu dong
Me.InsideHeight = 1440 * 1.18 ' chieu cao
DoCmd.MoveSize w - Me.InsideWidth - 700, 0
End Sub
AnNguyen > 29-12-20, 11:26 PM
tranthanhan1962 > 29-12-20, 11:35 PM
AnNguyen > 30-12-20, 09:19 AM
songlong1424 > 30-12-20, 06:00 PM
(30-12-20, 09:19 AM)AnNguyen Đã viết:(29-12-20, 08:52 PM)songlong1424 Đã viết: ... chưa ẩn được toolbar access mặc định .Bạn cho đoạn code này vào form chính khi mở lên nhé, mỗi lần mở đầu tiên thì nó sẽ tạm ẩn đi thôi
Mã:DoCmd.ShowToolbar "Ribbon", acToolbarNo ' An