heroes1412 > 26-01-13, 12:32 PM
Function Result(strData)
no =10
strResult = ""
For i = 1 To Len(strData)
strResult = strResult + Chr(Asc(Mid(strText, i, 1)) Xor no)
Next
Result = strResult
End Function
Xuân Thanh > 26-01-13, 04:50 PM
(26-01-13, 12:32 PM)heroes1412 Đã viết: Cho hỏi, hiện tại e có 1 function visual basic, nội dung như này:
Mã:Function Result(strData)
no =10
strResult = ""
For i = 1 To Len(strData)
strResult = strResult + Chr(Asc(Mid(strText, i, 1)) Xor no)
Next
Result = strResult
End Function
Giờ e muốn tạo 1 cái macro trong Access để chuyển các ký tự trong Access thành dạng ký tự dc encode bằng hàm kia thì e phải làm ntn
File DB của e có hơn 4k dòng nên e cần 1 cái macro để nó tự động làm ý mà
heroes1412 > 26-01-13, 11:54 PM
Xuân Thanh > 27-01-13, 05:10 PM
heroes1412 > 28-01-13, 07:49 PM