Xin giúp chỉnh sửa code (1 người xem)

[hlovns]

Chào các bạn! Mình tiến hành convert 1 file access 2.0 được viết từ 1994 sang access 2003. Kết quả khá khả quan, khi hầu hết các code đều chạy được. Nhưng có một số code lại bị lỗi, có lẽ do access 2003 không support được nữa, VBA debug tìm được một số lỗi sau:

' Của Function Star:
    If Not ReDefineQuery("", True) Then i = QuitApp()
  
    If Not Data_Check() Then i = QuitApp()
    
    If Reg_OCX() = False Then
               i = QuitApp()
    End If
/[CODE]
Mình nghĩ là có liên quan gì đó đến cú pháp khác nhau của các version, nhưng tìm mãi không biết cách sửa. Vì trình độ mình chỉ ở mức sơ sơ thôi. Mong các bạn giúp mình với.

 

[hlovns]

Mình đã sửa được lỗi trên bằng một cách rất củ chuối. Function Star nằm trong module là KHOIDONG, còng Function ReDefineQuery và Reg_OCX lại nằm trong module KIEMTRA. Vậy là copy Function ReDefineQuery và Reg_OCX vào module KHOIDONG thì chạy.
Có bạn nào chỉ cho mình cách khác được không? Vì có một số function được sử dụng ở nhiều form. Không lẽ lại copy hết vào từng code của form?