• Nhập liệu trong Form
  • RE: Nhập liệu trong Form

    AnNguyen > 29-10-21, 03:41 PM

    Và tôi dùng thêm hàm chuyển đổi để tiện gõ chữ thì nó sẽ hiển thị theo
    UniConvert("xin chafo thur thuaajt Access nhes","Telex") => Xin chào thủ thuật Access nhé big green
    Mã:
    Function UniConvert(Text As String, Optional InputMethod As String = "Telex") As String
      Dim VNI_Type, Telex_Type, CharCode, Temp, i As Long
      UniConvert = Text
      VNI_Type = Array("a81", "a82", "a83", "a84", "a85", "a61", "a62", "a63", "a64", "a65", "e61", _
          "e62", "e63", "e64", "e65", "o61", "o62", "o63", "o64", "o65", "o71", "o72", "o73", "o74", _
          "o75", "u71", "u72", "u73", "u74", "u75", "a1", "a2", "a3", "a4", "a5", "a8", "a6", "d9", _
          "e1", "e2", "e3", "e4", "e5", "e6", "i1", "i2", "i3", "i4", "i5", "o1", "o2", "o3", "o4", _
          "o5", "o6", "o7", "u1", "u2", "u3", "u4", "u5", "u7", "y1", "y2", "y3", "y4", "y5")
      Telex_Type = Array("aws", "awf", "awr", "awx", "awj", "aas", "aaf", "aar", "aax", "aaj", "ees", _
          "eef", "eer", "eex", "eej", "oos", "oof", "oor", "oox", "ooj", "ows", "owf", "owr", "owx", _
          "owj", "uws", "uwf", "uwr", "uwx", "uwj", "as", "af", "ar", "ax", "aj", "aw", "aa", "dd", _
          "es", "ef", "er", "ex", "ej", "ee", "is", "if", "ir", "ix", "ij", "os", "of", "or", "ox", _
          "oj", "oo", "ow", "us", "uf", "ur", "ux", "uj", "uw", "ys", "yf", "yr", "yx", "yj")
      CharCode = Array(ChrW(7855), ChrW(7857), ChrW(7859), ChrW(7861), ChrW(7863), ChrW(7845), ChrW(7847), _
          ChrW(7849), ChrW(7851), ChrW(7853), ChrW(7871), ChrW(7873), ChrW(7875), ChrW(7877), ChrW(7879), _
          ChrW(7889), ChrW(7891), ChrW(7893), ChrW(7895), ChrW(7897), ChrW(7899), ChrW(7901), ChrW(7903), _
          ChrW(7905), ChrW(7907), ChrW(7913), ChrW(7915), ChrW(7917), ChrW(7919), ChrW(7921), ChrW(225), _
          ChrW(224), ChrW(7843), ChrW(227), ChrW(7841), ChrW(259), ChrW(226), ChrW(273), ChrW(233), ChrW(232), _
          ChrW(7867), ChrW(7869), ChrW(7865), ChrW(234), ChrW(237), ChrW(236), ChrW(7881), ChrW(297), ChrW(7883), _
          ChrW(243), ChrW(242), ChrW(7887), ChrW(245), ChrW(7885), ChrW(244), ChrW(417), ChrW(250), ChrW(249), _
          ChrW(7911), ChrW(361), ChrW(7909), ChrW(432), ChrW(253), ChrW(7923), ChrW(7927), ChrW(7929), ChrW(7925))
      Select Case InputMethod
        Case Is = "VNI": Temp = VNI_Type
        Case Is = "Telex": Temp = Telex_Type
      End Select
      For i = 0 To UBound(CharCode)
        UniConvert = Replace(UniConvert, Temp(i), CharCode(i))
        UniConvert = Replace(UniConvert, UCase(Temp(i)), UCase(CharCode(i)))
      Next i
    End Function
  • RE: Nhập liệu trong Form

    hoat > 29-12-21, 03:32 PM

    Các anh cho em hỏi thêm là trong form nhập liệu khi nhập xong mình muốn là khi bấm phím Ctrl + S thì nó không lưu (hay vô hiệu hoá chức năng Ctrl + S), khi nào bấm nút Lưu mình đã tạo thì mới lưu
    Không biết có cách nào làm được như vậy không ?

    Cảm ơn mọi người.
  • RE: Nhập liệu trong Form

    ongke0711 > 29-12-21, 04:40 PM

    (29-12-21, 03:32 PM)hoat Đã viết: Các anh cho em hỏi thêm là trong form nhập liệu khi nhập xong mình muốn là khi bấm phím Ctrl + S thì nó không lưu (hay vô hiệu hoá chức năng Ctrl + S), khi nào bấm nút Lưu mình đã tạo thì mới lưu
    Không biết có cách nào làm được như vậy không ?

    Cảm ơn mọi người.

    Bạn xem bài này. Link: https://thuthuataccess.com/forum/post-27...l#pid27025
  • RE: Nhập liệu trong Form

    tranthanhan1962 > 29-12-21, 11:50 PM

    (29-10-21, 03:36 PM)AnNguyen Đã viết: Trong VBA không biết được tiếng việt bạn nhé...
    Trong VBA gõ đươc tiếng Việt bạn nhé, với điều kiện sử dụng Vietnamese keyboard Windows 10 
    [Hình: QCr3ft4.jpg]
  • RE: Nhập liệu trong Form

    AnNguyen > 30-12-21, 09:27 AM

    (29-12-21, 11:50 PM)tranthanhan1962 Đã viết: Trong VBA gõ đươc tiếng Việt bạn nhé, với điều kiện sử dụng Vietnamese keyboard Windows 10 
    [Hình: QCr3ft4.jpg]

    Ôi hay vậy chú. Nhưng cháu thử không thấy được, cháu cũng đang dùng win 10 ạ.
  • RE: Nhập liệu trong Form

    ongke0711 > 30-12-21, 12:11 PM

    (29-12-21, 11:50 PM)tranthanhan1962 Đã viết: Trong VBA gõ đươc tiếng Việt bạn nhé, với điều kiện sử dụng Vietnamese keyboard Windows 10 

    Nếu file Access này đem qua máy Windows 7 có còn chạy đúng không anh tranthanhan1962?
  • RE: Nhập liệu trong Form

    tranthanhan1962 > 30-12-21, 03:02 PM

    (30-12-21, 12:11 PM)ongke0711 Đã viết: Nếu file Access này đem qua máy Windows 7 có còn chạy đúng không anh tranthanhan1962?
    Cái này mình chỉ trả lời việc có gõ tiếng Việt được trong giao diện code VBA thôi. Còn nó sẽ ra tiếng "Lào hoặc Cam"  005  khi chuyển qua Windows 7, có điều bạn sẽ thấy cái bảng chuyển mã ChrW() Unicode thường dùng cũng sẽ bị lỗi 1 số ký tự trong Win 10, vì vậy phải dùng IIF cho Msgbox, trong Window 10 thì sử dùng cái này còn Win 7 thì dùng ChrW().
    Ghi chú: Nói là gõ được tiếng Việt được trong giao diện code VBA, nhưng thực ra gõ vài chữ thì con trỏ ký tự chạy lung tung sau khi bỏ dấu. => phải gõ trong word rồi copy sang giao diện VBA mới OK. Nói chung đây cũng mới chỉ là giải pháp chứ chưa thực sự là một phương pháp. Có điều người ta đã sử dụng win 11 rồi. Giờ ai đặt hàng ofice 365 hoăc 2019 Win 10 trở lên thì viết không thì thôi. Mấy máy cài win 7:
    1/ Máy cũ, yếu, HĐH dễ bị lỗi mỗi lần cài win lại là có vấn đề, kêu réo mình suốt.
    2/ Access 2003 quá cổ khả năng lưu trữ dữ liệu thấp run code cũng chậm.
    3/ Đa số Backend giờ mình lưu trên đám mây máy cài đươc win 10 cấu hình mạnh hơn nên chạy tốt hơn.
    4/ Nếu viết trên nền access 2003 sẽ phải cài 2 office vì các công ty gửi mail word cao hơn 2003 sẽ không mở được.
    5/ Giao diện accbe đẹp hơn tính tiền dễ hơn.
    6/ Tạo điều kiện cho đơn vị đặt hàng xài máy mới (cái này nhân viên sử dung chương trình luôn ủng hộ  014  )
    7/ Win 7 dễ bị virus tống tiền còn win 10 thì không! chỗ mình cách đây 2 năm nhiêu công ty bị virus tống tiền (khoảng 5-6 công ty gì đó) đều cài win 7 mấy cái mài win 10 không bị. Tất nhiên nó chẳng tống được đồng nào! Ai dám gủi tiền cho nó  021 , nhưng dữ liệu bị mất hết, chỉ tội cho mấy công ty. giờ chỉ còn mấy chỗ vữa dốt, vừa kẹo mới còn xài win 7, mà mấy chỗ này có thuê mình viết chương trình nuốt cũng không trôi.