-
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é
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 > 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" 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ộ )
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ó , 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.