Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Form tìm kiếm không hiển thị hết !
#11
Bạn có thể cho mình "Xin" đoạn code chuyển mã trong Access không ?
Thanks !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#12
bạn muốn chuyển số sang chữ có phải không? nếu đúng thì mình share qua cho
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#13
Bạn Tiến có thể viết lại đoạn code đó được mà. Nếu chỉ đơn thuần là chuyển đổi tcvn sang unicode và ngược lại thì thủ tục cực kỳ đơn giản. Nếu có nhiều bảng mã thì mới cần phải viết lại cần thận. Bạn có thể xem qua thủ tục tounicode trong addin_excel tôi post trên liên kết ở trên

Mã PHP:
Function ToUnicode(txtString As StringOptional isReversed As Boolean FalseOptional isISO As Boolean False) As String
    
' This function will do the conversion of text string into unicode
    Dim iStr As String, repTxt As String, mText As String
    Dim i As Long, j As Long
    Dim iUnicode As Variant ' 
array to keep unicode char set
    Dim iTCVN 
As Variant ' array to keep TCVN char set
    Dim iProcList() As String ' 
array to keep what to convert
    
    
'parse the parameter into this local variable
    iStr = txtString
    mText = txtString
    
    iUnicode = Array(225, 224, 7843, 227, 7841, 259, 7855, 7857, 7859, 7861, 7863, 226, _
        7845, 7847, 7849, 7851, 7853, 233, 232, 7867, 7869, 7865, 234, 7871, 7873, 7875, _
        7877, 7879, 237, 236, 7881, 297, 7883, 243, 242, 7887, 245, 7885, 244, 7889, 7891, _
        7893, 7895, 7897, 417, 7899, 7901, 7903, 7905, 7907, 250, 249, 7911, 361, 7909, _
        432, 7913, 7915, 7917, 7919, 7921, 253, 7923, 7927, 7929, 7925, 273, 193, 192, 195, _
        258, 194, 212, 416, 431, 272)
    
    iTCVN = Array(184, 181, 182, 183, 185, 168, 190, 187, 188, 189, 198, 169, 202, 199, 200, _
        201, 203, 208, 204, 206, 207, 209, 170, 213, 210, 211, 212, 214, 221, 215, 216, 220, _
        222, 227, 223, 225, 226, 228, 171, 232, 229, 230, 231, 233, 172, 237, 234, 235, 236, _
        238, 243, 239, 241, 242, 244, 173, 248, 245, 246, 247, 249, 253, 250, 251, 252, 254, _
        174, 193, 192, 195, 161, 162, 164, 165, 166, 167)
    
    ' 
Reenlarge the array
    
ReDim iProcList(1133)
    
' process the vowel only and covert to asc code
    For i = 1 To Len(mText)
        repTxt = Mid(mText, i, 1)
        If AscW(repTxt) > 122 Then
            iStr = Replace(iStr, repTxt, "[" & AscW(repTxt) & "]")
            mText = Replace(mText, repTxt, " ")
            ' 
write the processed list
            
iProcList(1j) = "[" AscW(repTxt) & "]"
            
If isISO Then
                iProcList
(0j) = GetElementNo(AscW(repTxt), iUnicode)
            Else
                If 
isReversed Then
                    iProcList
(0j) = GetElementNo(AscW(repTxt), iUnicode)
                Else
                    
iProcList(0j) = GetElementNo(AscW(repTxt), iTCVN)
                
End If
            
End If
            
1
        End 
If
    
Next
    
If 0 Then
        ToUnicode 
txtString
        
Exit Function
    
End If
    
ReDim Preserve iProcList(11)
    
' now convert to unicode
    For i = 0 To UBound(iProcList, 2)
        If isReversed Then
            iStr = Replace(iStr, iProcList(1, i), ChrW(iTCVN(Val(iProcList(0, i)))))
        Else
            If isISO Then
                iStr = Replace(iStr, iProcList(1, i), "&#" & iUnicode(Val(iProcList(0, i))) & ";")
            Else
                iStr = Replace(iStr, iProcList(1, i), ChrW(iUnicode(Val(iProcList(0, i)))))
            End If
        End If
    Next
fExit:
    ToUnicode = iStr
End Function

Private Function GetElementNo(iTxt As Long, iObj As Variant) As String
    Dim i As Long
    For i = 0 To UBound(iObj)
        If iTxt = iObj(i) Then
            GetElementNo = CStr(i)
            Exit For
        End If
    Next
End Function 
Bạn nghiên cứu nhé!
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn Minh Tiên
#14
ừ có phải mục đích của bạn là code chuyển từ .vntime sang unicode để làm cảnh báo msgbox? hay chỉ đơn thuần là conver font chữ trong tables thôi
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#15
Bạn Quang hòa chả đọc tiến trình topic này gì cả! Hãy đọc kỹ đã để biết họ đang lao xao cái gì chứ!
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn
#16
(18-09-13, 05:19 PM)tmtien261 Đã viết: Bạn có thể cho mình "Xin" đoạn code chuyển mã trong Access không ?
Thanks !

ừ thấy có cái này mà. topic thì nói đến form tìm kiếm. còn ở đây xin code chuyển mã trong access mà.
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#17
Thanks bạn "paulsteigel" nhiều. Mình sẽ nghiên cứu và "làm phiến" bạn tiếp nhé !
Chúc bạn luôn vui khỏe !
tmtien261 là: Trịnh Minh Tiên (Tp.Pleiku - Gia Lai)
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#18
Chào bạn "paulsteigel" cũng các ACE !
Chủ đề chuyển chuỗi từ Uniconde tổ hợp sang Unicode dựng sẳn lâu nay mình đắp chiếu, chưa nghiên cứu đến. Hiện mình đang dùng Unikey 4.0 RC và Phần mềm Ms office 2013.

Trong Ms Ex2013 và Ms Word2013 mình phát hiện:
1. Nếu chọn bảng mã kiểu "Unicode tổ hợp" thì gõ Tiếng Việt bình thường;
2. Nếu chọn bảng mã kiểu "Unicode dựng sẳn" thì khi gõ liên tục bị lỗi không hiển thị chữ Tiếng Việt.
...> Hiện mình phải dùng Unicode tổ hợp nên hiện trong Data của mình có tới 2 chuỗi --> Rất khó khăn trong việc tìm kiếm.

Nhờ các ACE Pro chỉ giúp: Có cách nào chuyển chuỗi "Unicode dựng sẳn" sang chuỗi "Unicode tổ hợp" hoặc ngược lại không ?
Cảm ơn nhiều !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#19
Chào các ACE !
Tiên có ngu ý thế này: Mỗi khi nhập liệu, chương trình sẽ kiểm tra và thiết lập lại phần mềm gõ Tiếng Việt (Unikey chặng hạn) sang chuẩn Unicode tổ hợp hay Unicode dựng sẳn ---> Thế là Ok không cần bận tâm nữa.
Ko biết cách này có làm được không ?
Nhờ các Pro chỉ giáo !
Thanks !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#20
Cái này do người Việt mình làm khó mình thôi. Ông nào cũng cho bảng mã mình là hay, là số một. Ngày trước (mà bây giờ vẫn còn) miền Bắc xài .vni, miền nam xài Vni-, rồi Unicode tổ hợp, Unicode dựng sẵn, TCVN1 - 2 - 3, BK HCM 1 - 2, Vietware..., Vietkey...Tốn công, tốn của, tốn thời gian. Chừng nào thống nhất được bộ mã, bà con mới được nhẹ nhàng.040
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Lỗi không tạo file mới bằng định dạng .mdb feeling 4 88 29-11-16, 04:22 PM
Bài mới nhất: feeling
  [Help] Thiết kế form nhập và lưu trữ dữ liệu theo yêu cầu brianhuynh 16 627 20-10-16, 10:54 PM
Bài mới nhất: brianhuynh
  [Hỏi] Cách loại bỏ icon Filter trên Datasheet Form có nguồn là Query. toancvp 2 103 19-10-16, 08:53 PM
Bài mới nhất: toancvp
  [Help] Nhờ tạo form lưu hóa đơn nhập, hóa đơn xuất, hàng nhập hàng xuất không cần tính tồn laxx_xxal 1 133 22-09-16, 02:35 PM
Bài mới nhất: Nguyen Hoang Diep
  [Lỗi] Không chạy được VBA Code hungthanmx 3 219 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ