Chạy 1 function vbscript trong Access?

[heroes1412]

Cho hỏi, hiện tại e có 1 function visual basic, nội dung như này:

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à

 

[ketoanthattinh]

Ðề: Chạy 1 function vbscript trong Access?

Cho hỏi, hiện tại e có 1 function visual basic, nội dung như này:

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à

Để đơn giản thì từ code của cái hàm kia bạn tạo 1 cái function có scope public ở trong file access đi (Modules). Chỉ phải chuyển code từ VB sang VBA.
Việc gọi hàm chỉ trong nội bộ file access thôi.

Cho hỏi, hiện tại e có 1 function visual basic, nội dung như này:

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à

Để đơn giản thì từ code của cái hàm kia bạn tạo 1 cái function có scope public ở trong file access đi (Modules). Chỉ phải chuyển code từ VB sang VBA.
Việc gọi hàm chỉ trong nội bộ file access thôi.

 

[heroes1412]

Ðề: Chạy 1 function vbscript trong Access?

bác cho e xin cái yahoo dc k? e cần cái này lắm

 

[ketoanthattinh]

Ðề: Chạy 1 function vbscript trong Access?

bác cho e xin cái yahoo dc k? e cần cái này lắm

Mình ít online YM lắm

Mình code lại cái Code của bạn thành code VBA

Function KetQua(strData As String) As String
Dim no As Integer
Dim strText As String
strText = strData
no = 10
strResult = ""
For i = 1 To Len(strData)
strResult = strResult + Chr(Asc(Mid(strText, i, 1)) Xor no)
Next
KetQua = strResult
End Function

 

[heroes1412]

Ðề: Chạy 1 function vbscript trong Access?

Nhưng thật sự là e có việc cần nên mới post hỏi, chứ b cho e cái hàm đấy e cũng chả bik dùng như nào cơ , e cũng k học access mấy

tạo 1 cái function có scope public ở trong file access đi (Modules)

Tạo 1 cái module e còn bik chứ cái scope kia thì e chịu r lại còn việc chạy hàm nữa chứ . B giúp e chi tiết phát .

Nhưng thật sự là e có việc cần nên mới post hỏi, chứ b cho e cái hàm đấy e cũng chả bik dùng như nào cơ, e cũng k học access mấy

Cái table chứa dữ liệu cần mã hóa là: tbl_item. Trong table tbl_item này thì cần mã hóa các trường: item_text, item_des, item_com

B hướng dẫn e cái, thật chi tiết càng tốt ạ, b dùng cái bb flash player hay CamStudio để quay phim cho e nữa thì e rất rất cám ơn ạ.