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

Thiết lập Region cho Win10

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Hỏi] Thiết lập Region cho Win10
• Thiết lập Region cho Win10

• Thiết lập Region cho Win10

  Minh Tiên > 03-11-20, 05:36 PM

  Nhờ ACE giúp đỡ:
  Tôi gặp trường hợp này: Khi mở một chương trình khác (Người khác viết) trên PC của tôi thì chương trình đó set toàn bộ Region format từ Vietnamese sang English và mọi format ngày tháng, number (Chấm, phải), ... bị thay đổi. Mỗi lần chạy Access phải vào thiết lập lại mới chạy đúng.
  Xin nhờ ACE diễn đàn chỉ dẫn code: Mỗi lần chạy Access sẽ kiểm tra thiết lập Region, nếu là English => Chuyển về Vietnamese, còn không thì thôi.
  Thanks all !

• RE: Thiết lập Region cho Win10

  ongke0711 > 03-11-20, 05:51 PM

  Xem bài này rồi tuỳ chỉnh nhé bạn.
  Link:https://thuthuataccess.com/forum/thread-10258.html

• RE: Thiết lập Region cho Win10

  Minh Tiên > 04-11-20, 10:07 AM

  Mình chạy demo của bạn (Bỏ phần Restart). Khi chạy lần 1 thì thông báo định dạng lại => Thay đổi định dạng ngày, số, tiền tệ của PC theo yêu cầu. Restart, chạy lại access thì tiếp tục nhận đc thông báo định dạng lại (tức phần kiểm tra định dạng không nhận thấy thay đổi).
  Không biết lỗi này là do gì ? ongke0711 cùng ACE xem giúp. Mình đang dùng Win64, Office 365.
  Thân./.

• RE: Thiết lập Region cho Win10

  ongke0711 > 04-11-20, 11:11 AM

  - Code đó chưa có thêm tuỳ chọn cho Win 64bit. Nó có 4 cái hàm APi trong đó, bạn thêm cho hệ 64 bit. Chút trưa tôi rảnh sẽ sửa lại.
  - Nếu không khởi động lại ứng dụng thì thay đổi chưa áp dụng được cho phiên Access đã mở sẳn. Việc khởi động lại là bắt buộc đối với thay đổi trong Control Panel.
  
  Khai báo API cho Win 64 bit:
  
  

  Mã PHP:

  #If VBA7 Then
    Public Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Public Declare PtrSafe Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
    Public Declare PtrSafe Function GetSystemDefaultLCID Lib "kernel32" () As Long
    Public Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
#Else
    Public Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
    Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
    Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
#End If 


• RE: Thiết lập Region cho Win10

  Minh Tiên > 04-11-20, 04:38 PM

  Mình cũng đã khai báo co Win64 rồi nhưng mỗi lầm chạy đều hiển thị:
  MsgBox "Ung dung se tu khoi dong lai de cac thiet lap co hieu luc.", vbInformation, "Thông báo"
  Bấm OK hiển thị:
  MsgBox "Loi khong xac dinh No. 0 trong thu tuc [ChangeSysDatNumCur] cua form khoi dong."
  Thân./.

• RE: Thiết lập Region cho Win10

  Minh Tiên > 04-11-20, 05:09 PM

  Mình kiểm tra 3 code:
  1. Left$(BufDate, LenDate - 1) => Luôn cho kết quả: M/d/yyyy
  2. Left$(BufCur, LenCur - 1) => Luôn cho kết quả: , (Dấu phẩy).
  3. Left$(BufNum, LenNum - 1) => Luôn cho kết qua: , (Dấu phẩy).
  
  => Việc trỏ tìm đến các thiết lập hệ thống đang chưa "đúng địa chỉ lưu thông số cần kiểm tra" nên luôn có sự khác biệt giữa thông số của hệ thống và thông số của 3 hàm trên => Chương trình mỗi lần chạy là mỗi lần thiết đặt lại.
  Mình ko rành vụ địa chỉ hệ thống này ...    ongke0711 cùng ACE nghiên cứu giúp.
  Cảm ơn nhiều./.

• RE: Thiết lập Region cho Win10

  ongke0711 > 04-11-20, 05:57 PM

  Tôi test trên Window 7 64bit + Office 2016 64bit thì chạy bình thường.
  Chẳng lẻ do Windows 10, các hàm API nó lấy không đúng tham số?

• RE: Thiết lập Region cho Win10

  Minh Tiên > 04-11-20, 08:06 PM

  Tiên mù API. Tiên test trên W10 32bit cũng lỗi tương tự Win10 64 bit.
  Thân./.

• RE: Thiết lập Region cho Win10

  thuyyeu99 > 04-11-20, 09:48 PM

  (04-11-20, 08:06 PM)Minh Tiên Đã viết: Tiên mù API. Tiên test trên W10 32bit cũng lỗi tương tự Win10 64 bit.
  Thân./.

  kỳ vậy mình win 10 64 office 32 chay đúng mà ta
  mình đổi ngày thành d/m/yyyy chạy code noi chuyển về dd/mm/yyyy
  [img][/img]

• RE: Thiết lập Region cho Win10

  ongke0711 > 05-11-20, 08:45 AM

  Tiên tắt mấy cái bẫy lỗi của 2 hàm xem nó báo lỗi dòng nào nhé.
• Bài trước Bài tiếp