• Trang chủ click to expand contents 

  • Demo Cho tất cả thông báo tiếng việt vào một Macro

  • Demo Cho tất cả thông báo tiếng việt vào một Macro

    maidinhdan > 27-02-15, 11:51 PM

    Rảnh rỗi sinh nông nổi, làm cái demo chơi. Thấy lúc trước anh Noname có hướng dẩn 1 bài "Msgbox dùng Unicode Tiếng việt" ( Dùng code và Macro) Hôm nay xin bổ sung về phần Macro của anh Noname.

    Nhiều bạn tao table, chuyển mã Unicode để hiện được tiếng việt trong thông báo...đòi hỏi rất mất nhiều thơi gian và công sức và phải là người chuyên viết code mới làm được. Hôm nay xin mạng phép giới thiệu Demo này để các bạn đỡ vất vả hơn.

    Mục đích: Có bao nhiêu thông báo cứ nhét vào một Macro không cần tạo table, tạo code VBA, Uni làm gì


    Hình minh họa
    [Hình: hinhthongbao1.png]

    Khi cần thông báo thứ mấy chỉ cần gọi câu thần chú:
    Mã:
    DoCmd.RunMacro "mcthongbao.1"
     ' Số .1 là số mình cho trong Macro

    Demo: https://sites.google.com/site/congthucassecc/home/phan-mem-suu-tam/Thong%20bao%20tieng%20viet%20bang%20Macro.zip?attredirects=0&d=1

    Chúc các bạn thành công.
    Nếu không hay xin đừng chém nhé. Chào các bạn.

    Rất mong nhận được sự góp ý của các bạn.

  • RE: Demo Cho tất cả thông báo tiếng việt vào một Macro

    Xuân Thanh > 13-03-15, 04:29 PM

    Cũng là một cách thay vì viết trong table. Để bảo mật thì người ta sử dụng code VBA

  • RE: Demo Cho tất cả thông báo tiếng việt vào một Macro

    rainkv > 22-07-15, 10:30 PM

    Với cách này để gọi macro thông báo trùng mã số textboxmasohs trên form thì dùng code thế nào để gọi khi nhạp số hs bị trùn

  • RE: Demo Cho tất cả thông báo tiếng việt vào một Macro

    maidinhdan > 23-07-15, 03:09 PM

    (22-07-15, 10:30 PM)rainkv Đã viết: Với cách này để gọi macro thông báo trùng mã số textboxmasohs trên form thì dùng code thế nào để gọi khi nhạp số hs bị trùn

    Viết code kiểm tra trùng khóa chính trên form:

    Mã PHP:
    Private Sub Form_Error (DataErr As Integer, Response As Integer)
         Response = acDataErrContinue ‘ tắt thông báo của Access
    Select     Case DataErr
    Case 3022
    DoCmd    .RunMacro "mcthongbao.5"    ' Đây là thông báo trùng khóa chính, số 5 là số bạn đặt như hình trên demo
    Case 3058
    MsgBox “Khóa chính để trống.”
    Case 3314
    MsgBox “Có ít nhất một field chưa nhập theo yêu cầu bắt buộc.”
    Case Else
    MsgBox “Có lỗi xảy ra.” & Chr(13) & “Chỉ số lỗi: “ & DataErr & Chr(13) & _
    “Nội dung lỗi: “ & Err.Description
    End Select
    End Sub 



    Chúc bạn thành công!