Thủ Thuật Access

Thế Giới Thủ Thuật với Access

Gọi 1 đoạn code từ menu tự tạo

Posted by Noname on 27.01.2010

Hỏi: Tôi có 1 đoạn code trước đây tôi gọi từ form. Nhưng giờ chuyển sang menu thì làm sao gọi được.
Đáp: Để gọi 1 đoạn code từ menu, yêu cầu đoạn code của bạn phải là 1 function.
Ví dụ:

Function QuanlyUser()
If GetUserLevel > 1 Then
DoCmd.Close
DoCmd.OpenForm “frmQuanlyUser”, , , “[UserLevel] <” & GetUserLevel
Else
msgBoxOK DLookup(“[NDUNG1]”, “tblTHONGBAO”, “[SOTB] = 9”) & vbCrLf & DLookup(“[NDUNG2]”, “tblTHONGBAO”, “[SOTB] = 9”), vbCritical, DLookup(“[TIEUDE]”, “tblTHONGBAO”, “[SOTB] = 9”)
End If

End Function

Sau đó, tạo 1 macro và gọi function này bằng hàm runcode . Rồi lưu lại đầy đủ trường name, action…
(trong ví dụ mình lưu Macro tên Dulieuhethong)

Giờ bạn có thể tạo 1 memu gọi macro này bằng cách click chuột phải lên thanh menu, chọn custonmise, Sau đó chọn như hình, lôi Item muốn run lên vị trí tùy ý trên thanh bar tự tạo.

Chương trình demo xin phép modifield lại của bạn HaQuocQuan. :
ID: Admin
Pass: Admin
Pass enable/disable phím shift và VBA : ladieskiller
Demo

Các bạn có thể tham khảo thêm bài:
Thiết kế chương trình phân quyền  để biết thêm về cơ chế phân quyền trong demo này.
Cũng tham khảo thêm bài: Hướng dẫn tạo menu để biết cách tự tạo 1 menu

5 phản hồi to “Gọi 1 đoạn code từ menu tự tạo”

  1. TP said

    Toi tao menu bar o trenToi muon moi nguoi fai dang nhap vao thi moi mo dcBan co the chi dan cho minh dc ko?

  2. TP said

    Function Tindung() If GetUserLevel < 1 Then DoCmd.Close DoCmd.OpenForm "THONG_TIN_KHACH_HANG", , , "[UserLevel] >" & GetUserLevel Else msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 5") & vbCrLf & DLookup("[NDUNG2]", "tblTHONGBAO", "[SOTB] = 5"), vbCritical, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 5") End IfEnd FunctionToi co doan code nay. Nhung khong hieu sao ke ca khi dang nhap roi van khong mo dc form. No lai doi dang nhap tiep

  3. Noname said

    Tùy vào cấu trúc chương trình của bạn. Chứ chỉ đoạn Code thì không nói lên được gì cả!

  4. Anonymous said

    tôi đã tạo menubar, nhưng tôi muốn chỉ có admin mới mới được hết các menu trên menubar. Giúp tôi với.

  5. Noname said

    Bạn dùng gì để tạo? Macro? hay Code?Với code để tạo menu, bạn cho vào điều kiện if…else… để tạo menu.Với macro, bạn vẫn dùng macro, nhưng bật thêm condition!

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: