Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm này làm sao chạy được trên office 2003
#1
Chào các bác, mình có sưu tầm một dc một đoạn code sau.

Mã:
Option Compare Database

'*************************** Code Start ************************
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code courtesy of
'Terry Kreft
'
Type Rect
    x1 As Long
    y1 As Long
    x2 As Long
    y2 As Long
End Type
Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal _
    nCmdShow As Long) As Long
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
Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
'Use following instead of GetWindowRect
Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect _
    As Rect) As Long

Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNORMAL = 1

Sub MaximizeRestoredForm(F As Form)
    Dim MDIRect As Rect
    ' If the form is maximized, restore it.
    If IsZoomed(F.hWnd) <> 0 Then
        ShowWindow F.hWnd, SW_SHOWNORMAL
    End If
    ' Get the screen coordinates and window size of the
    ' MDIClient area.
    'This is the line which is different
    GetClientRect GetParent(F.hWnd), MDIRect
    ' Move the form to the upper left corner of the MDIClient
    ' window (0,0) and size it to the same size as the
    ' MDIClient window.
    MoveWindow F.hWnd, 0, 0, MDIRect.x2 - MDIRect.x1, MDIRect.y2 - MDIRect.y1, True
End Sub
'*************************** Code End ************************

Các bác cho mình hỏi là đoạn code này theo chủ nhân của nó thì chạy tốt với access 2000 những mình thử với 2003 thì không chạy được. Vậy phải chỉnh sửa như thế nào để nó chạy dc bây giờ?

Hay bác nào biết cách để main form ở chế độ max khi load form, còn các form khác khi mở ra thì ở chế độ restore thôi.


P.S: Post ở đây k biết đúng không, có gì admin move vào đúng nơi hộ với nha!
Chữ ký của meohenmiao Xin chào, mình là meohenmiao, Tham gia http://thuthuataccess.com/forum từ ngày 15-02 -12.
Reply
Những người đã cảm ơn
#2
Vấn đề thứ nhứt là đoạn code trên Bợm đang lười nên chưa có thử xem sao...

Vấn đề thứ 2 đơn giản thôi mà:

1. Main form:
- bạn chỉnh thuộc tính: Pop UpModal No
- viết code cho event Active của form như sau:
Private Sub Form_Activate()
DoCmd.Maximize
End Sub

Khi đó mỗi lần "đụng tới nó" là nó bung bự lên.

2. Các form khác thì chỉnh:
- Pop UpModal Yes
- viết code cho event Active của form như sau:
Private Sub Form_Activate()
DoCmd.Restore
End Sub

ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , haquocquan
#3
2 lệnh này sài cũng được nè, gắn vào On load
DoCmd.Maximize: phóng to
DoCmd.Restore: khôi phục
Hỏng biết xóa sao khi có người trả lời rồi
Chữ ký của hadangpr Hỡi thế gian ngu là gì mà không ai chịu nhận!
Reply
Những người đã cảm ơn Noname
#4
(20-02-12, 11:54 PM)hadangpr Đã viết: 2 lệnh này sài cũng được nè, gắn vào On load
DoCmd.Maximize: phóng to
DoCmd.Restore: khôi phục
Hỏng biết xóa sao khi có người trả lời rồi

Note: gắn lệnh này vào On load cũng tác dụng i chang (AC03), nhưng nếu làm cách này trên AC07 và AC10 sẽ báo lỗi ngay.
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hadangpr
#5
Mình chưa bao giờ sài AC07 và AC10 nên không biết, cảm ơn anh.
Chữ ký của hadangpr Hỡi thế gian ngu là gì mà không ai chịu nhận!
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,489 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 139 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  [Help] lệnh tìm kiếm và hiển thị kết quả tìm kiếm trên form tvn_hut 12 1,011 25-06-16, 12:22 AM
Bài mới nhất: zinzin8x
  [Hỏi] Hiện ảnh trên form ngay sau khi insert đường link hình tvn_hut 18 771 09-03-16, 11:34 AM
Bài mới nhất: maidinhdan
Photo Dbclick từ 1 kết quả trên subform để mở main form với dữ liệu của dòng đó tvn_hut 9 625 25-12-15, 01:13 PM
Bài mới nhất: tvn_hut

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ