Code Access lỗi khi chạy trên win7-64bit

[manhhuong]

Em có đoạn code viết trong access 2007 như sau :

Option Compare Database

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Public Function msgBoxOK(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult

'BStrMsg, BStrTitle : La chuoi Unicode
Dim BStrMsg, BStrTitle
'Hàm StrConv Chuyen chuoi ve ma Unicode
BStrMsg = StrConv(PromptUni, vbUnicode)
BStrTitle = StrConv(TitleUni, vbUnicode)

msgBoxOK = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function

Public Function msgBoxYESNO(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbYesNo, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult

'BStrMsg, BStrTitle : La chuoi Unicode
Dim BStrMsg, BStrTitle
'Hàm StrConv Chuyen chuoi ve ma Unicode
BStrMsg = StrConv(PromptUni, vbUnicode)
BStrTitle = StrConv(TitleUni, vbUnicode)

msgBoxYESNO = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function

Khi chạy trên Win7 32 bit thì không vấn đề gì, nhưng khi chuyển sang máy khác(64bit) thì Compile bị lỗi (Hai hàng bôi đỏ)
Em mới nghiên cứu món này nên không rõ lắm, các bác chỉ cho em sửa đoạn code này với,
Mong nhận được sự giúp đỡ của các bác!!!Cảm ơn nhiều!!

View more random threads:

• Làm sao để INSERT INTO giá trị DATE trong ACCESS?
• Giúp đở về listbox và textbox . help !
• Hộp thoại InputBox trong Access có InputMask dạng password hay ko?
• Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 2 - Query và Report)
• Giao trình hệ quản trị CSDL MS.Acess
• Mọi người giúp mình với, chết toi roài
• Code Access lỗi khi chạy trên win7-64bit
• Mình muốn tạo Form tìm kiếm dạng lọc theo ngày tháng mong mọi người giúp
• Giúp mình sort tren listbox vớii
• Lựa chọn và mặc định máy in trên access

[hyundaivt]

Ðề: Code Access lỗi khi chạy trên win7-64bit

sửa user32 thì 64 đi pạn