• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit
• Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

• Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

  tranthanhan1962 > 16-11-19, 11:22 AM

  Nhiều anh em đang gặp rắt rối trong vấn đề viết ứng dụng access xử dụng cho cả 32 và 64 bit. Access 32 và 64 bit có một số điểm không tương thích nên khi chạy sẽ bị lỗi nếu khác phiên bản. Thông thường là sẽ gặp lỗi ở code VBA.
  Bản 32 bit
       Function
       Sub
       ...
  Bản 64 bit
      PtrSafe Function
      PtrSafe Sub
      ...
  Vì vậy nhiều bạn sẽ phải xử lý 2 CSDL để chạy cho 2 phiên bản access tùy theo cài đặt. Đoạn code sau đây sẽ hỗ trợ mã VBA  chay cho cả 2 phiên bản 32 và 64 mà không phải tách riêng.
  

  Mã PHP:

      #If VBA7 Then
        Code VBA 64 bit
    #Else
        Code VBA 32 bit
    #End If 


  Trên phiên bản 32 bit, đoạn code 64 bit chuyển thành màu đỏ báo lỗi và ngược lại. Nhưng không hề gì và sẽ chạy bình thưởng đúng theo code của phiên bản

• RE: Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

  tracanhtam > 16-11-19, 11:40 AM

  (16-11-19, 11:22 AM)tranthanhan1962 Đã viết: Nhiều anh em đang gặp rắt rối trong vấn đề viết ứng dụng access xử dụng cho cả 32 và 64 bit. Access 32 và 64 bit có một số điểm không tương thích nên khi chạy sẽ bị lỗi nếu khác phiên bản. Thông thường là sẽ gặp lỗi ở code VBA.
  Bản 32 bit
       Function
       Sub
       ...
  Bản 64 bit
      PtrSafe Function
      PtrSafe Sub
      ...
  Vì vậy nhiều bạn sẽ phải xử lý 2 CSDL để chạy cho 2 phiên bản access tùy theo cài đặt. Đoạn code sau đây sẽ hỗ trợ mã VBA  chay cho cả 2 phiên bản 32 và 64 mà không phải tách riêng.
  

  Mã PHP:

      #If VBA7 Then
        Code VBA 64 bit
    #Else
        Code VBA 32 bit
    #End If 


  Trên phiên bản 32 bit, đoạn code 64 bit chuyển thành màu đỏ báo lỗi và ngược lại. Nhưng không hề gì và sẽ chạy bình thưởng đúng theo code của phiên bản

  
  Nhờ bạn hướng dẫn rõ hơn dùm, xin cám ơn

• RE: Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

  tranthanhan1962 > 16-11-19, 12:26 PM

  (16-11-19, 11:40 AM)tracanhtam Đã viết: Nhờ bạn hướng dẫn rõ hơn dùm, xin cám ơn

  Hì hì vầy là quá rõ rồi còn gì. Code là của các bạn tùy theo trường hợp mà.
  Thôi tạm lấy một ví dụ vậy. Mượn đỡ code MsgBoxUni() của đồng chí ongke0711:
  Đây là đoạn mã viết cho access 32 bit 
  

  Mã PHP:

  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

Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  Dim BStrMsg, BStrTitle
  'Hàm StrConv Chuyen chuoi ve ma Unicode'
  BStrMsg = StrConv(PromptUni, vbUnicode)
  BStrTitle = StrConv(TitleUni, vbUnicode) 


  Đây là đoạn mã viết cho access 64 bit (có thêm keywork PtrSafe phía trước Function)
  

  Mã PHP:

  Option Compare Database

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

Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  Dim BStrMsg, BStrTitle
  'Hàm StrConv Chuyen chuoi ve ma Unicode'
  BStrMsg = StrConv(PromptUni, vbUnicode)
  BStrTitle = StrConv(TitleUni, vbUnicode) 


  Nếu đưa doạn mã 32 bit vào phiên bản 64 bit sẽ báo lỗi và ngược lại.
  Chỉnh sửa đoạn mã thành:
  

  Mã PHP:

  Option Compare Database

#If VBA7 Then '64 bit
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#Else '32 bit
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
#End If

Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
  Dim BStrMsg, BStrTitle
  'Hàm StrConv Chuyen chuoi ve ma Unicode'
  BStrMsg = StrConv(PromptUni, vbUnicode)
  BStrTitle = StrConv(TitleUni, vbUnicode) 


  Đoạn mã này sẽ chạy trên 2 phiên bản 32 và 64 bit mà không bị lỗi.
  VBA7 là phiên bản VBA 64 bit
  *#If VBA7 có nghĩa là "nếu phiên bản VBA 64 bit" . Ý nghĩa của #If...#Else...#End IF cũng không khác gì cấu trúc If...Else...End IF thông thường chỉ là ở đây là điều kiện kiểm soát việc biên dịch các phần của tệp nguồn (VBA) nên phải thêm key work #

• RE: Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

  ongke0711 > 17-11-19, 09:01 AM

  (16-11-19, 11:40 AM)tracanhtam Đã viết: Nhờ bạn hướng dẫn rõ hơn dùm, xin cám ơn

  
  Bạn đọc thêm bài này rất chi tiết của MaiDinhDan nhé.
  Link: https://thuthuataccess.com/forum/post-36...l#pid36682
  
  Giải thích thêm: các bạn hay thấy các từ này trong khai báo viết code cho đa nền tảng 32bit và 64bit.
  
  1. PtrSafe: là Pointer Safe. Pointer là biến con trỏ dùng để lưu địa chỉ trên bộ nhớ của một biến khác (giống như số nhà trên một con đường vậy). Dùng từ khoá "PtrSafe" để bạn khai báo, khẳng định cho trình biên dịch biết là cứ biên dịch sang hệ 32bit hoăc 64bit đi, tôi đảm bảo code an toàn để chạy, không bị rò rỉ bộ, nhớ tràn bộ nhớ v.v..
  
  2. Long và LongPtr: Trên hệ thống 64bit, các kiểu dữ liệu (Data type) khác không thay đổi như: Integer, String... ngoại trừ kiểu "Long". Trong 64bit nó sẽ là kiểu: LongLong chiếm 8 bytes, Long - 32bit chỉ chiếm 4 bytes. Chính vì cái size của dữ liệu này làm phát sinh lỗi khi biên dịch. Từ đó phát sinh thêm kiểu dữ liệu "LongPtr" để làm trung gian chuyển đổi kiểu Long - 32bit thành LongLong - 64bit. Có thể gọi đây là kiểu dữ liệu lai (hybrid data type). Nếu trong 32bit kiểu LongPtr tự động chuyển thành 4 bytes và nếu trong hệ 64bit LongPtr tự động chuyển thành 8 bytes (LongLong).
  
  
  
  
  Trong phần chú ý của bạn maidinhdan có đoạn này:
  
  

  Trích dẫn:Kết Luận: Câu thần chú chung khi sử dụng câu lệnh Khai báo trong VBA
  
  Hầu như không cần phải thay đổi mã VBA khi sử dụng ở 64 bit hoặc 32 bit, trừ khi bạn sử dụng câu lệnh Khai báo để gọi API Windows bằng loại dữ liệu 32 bit như long, cho con trỏ và núm điều khiển. Trong hầu hết trường hợp, việc thêm PtrSafe vào Khai báo và thay thế long bằng LongPtr sẽ giúp cho câu lệnh Khai báo tương thích với cả 32 lẫn 64 bit. Tuy nhiên, cách này có thể không khả thi trong một số trường hợp hiếm gặp, khi không có API 64 bit nào để Khai báo. Để biết thêm thông tin về những thay đổi về VBA cần được thực hiện để giúp VBA chạy trên Office 64 bit, xem mục Tổng quan về Visual Basic for Applications 64 bit.

  
  Khi khai báo các hàm Windows API cho 64bit chỉ cần chú ý khai báo các giá trị Long đại điện cho các dữ liệu con trỏ (Pointer) hoặc bộ điều khiển (Handles).
  - Các tham số, biến kiểu Pointer:  có ký tự "lp" hoăc "l" ở đầu tên tham số. 
      lpdwFlasg As Long     --> lpdwFlags As LongPtr
      lpfnHook As Long    --> lpfnHook As LongPtr
      lParam As Long      --> lParam As LongPtr
      lCustData As Long   --> lCustData As LongPtr
  
  - Các tham số kiển điều khiển: có ký tự "h" ở đầu
          hWnd As Long        --> hwnd As LongPtr
      hProcess As Long    --> hProcess As LongPtr
      hThread As Long     --> hThread As LongPtr
  
  Ví dụ:
  
  

  Mã PHP:

  #If VBA7 Then
Public Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As LongPtr, ByVal lpCursorName As String) As LongPtr
#End If 


  
  

  Mã PHP:

  #If VBA7 Then
Public Declare PtrSafe Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As LongPtr, lpMinimumWorkingSetSize As LongPtr, lpMaximumWorkingSetSize As LongPtr) As Long
#Else

#End If 


• RE: Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

  Minh Tiên > 17-11-19, 07:32 PM

  (17-11-19, 09:01 AM)ongke0711 Đã viết: ...
  

  Mã PHP:

  #If VBA7 Then
[code]Public Declare PtrSafe Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As LongPtr, lpMinimumWorkingSetSize As LongPtr, lpMaximumWorkingSetSize As LongPtr) As Long[/code]
#Else

#End If 


  Ví dụ trên là As Long hay As LongPtr vậy bạn ?
  Mình hỏi thêm:
  1. Trường hợp dùng Win64 +Offic64 bit thì khai báo:
  

  Mã:

  Public Declare PtrSafe Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As LongPtr, lpMinimumWorkingSetSize As LongPtr, lpMaximumWorkingSetSize As LongPtr) As LongPtr

  2. Trường hợp dùng Win64 +Office 32 bit thì khai báo:
  

  Mã:

  Public Declare PtrSafe Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As LongPtr, lpMinimumWorkingSetSize As LongPtr, lpMaximumWorkingSetSize As LongPtr) As Long

  (Tham số là LongPtr trả về Long)
  Hay:
  

  Mã:

  Public Declare PtrSafe Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As Long, lpMinimumWorkingSetSize As Long, lpMaximumWorkingSetSize As Long) As LongPtr

  (Tham số Long trả về Long)
  Thân./.

• RE: Xử lý code VBA CSDL dùng chung access 64 bit và 32 bit

  ongke0711 > 17-11-19, 07:46 PM

  Bạn phải mở cái thư viện hàm API lên để tham khảo xem các hàm này trả về giá trị gì thì mới khai báo Long hay LongPtr
  Cái ví dụ hàm API LoadCursor là trả về cái trình điều khiển của cái con trỏ (handle of loaded cursor) phải chuyển thành LongPtr
  Còn hàm GetProcessWorkingSetSize chỉ trả về một giá trị số nào đó thể hiện số lượng process đang hoạt động chứ không phải là Pointer hay Handle nên cứ giữ nguyên kiểu Long.
• Bài trước Bài tiếp