Thiết lập ngày hệ thống trong Access

[thanhphong23893]

Xin chào mọi người!
Trong bài Access của em đang làm, có một số chỗ có định dạng ngày tháng theo kiểu dd/mm/yyyy. nhưng định dạng ngày tháng của hệ thống lại là mm/dd/yy. Muốn chỉnh lại phải vào Control panel. Em muốn thiết kế một Button để khi Click vào nó sẽ tự động định dạng lại ngày tháng trong hệ thống theo ý mình.
Còn nữa, một số Font đặc biệt có trong chương trình không sao hiển thị được ở những máy không cài font chữ đó. Có cách nào để Access kiểm tra xem font chữ đó đã tồn tại trong hệ thống hay chưa? Nếu chưa có sẽ tiến hành cài đặt.
Mong mọi người giúp đỡ.
Thanks tất cả:cry7:

View more random threads:

• Tìm bản ghi đầu tiên trên Form
• Help! Tự động ẩn dòng khi giá trị bằng 0 trong
• Giúp mình code tạo From với access
• Xóa dữ liệu ở 2 bảng cùng lúc
• Kế toán tiền gửi trong một Ngân hàng
• Quản lý mua bán hàng - Phần 4: Thiết kế form
• Bẫy lỗi trong Access bằng VBA
• keycode phím # là thế nào vậy ạ?
• Vô hiệu hóa nút Close của ứng dụng Access
• Đưa nhiều record vào một Unbound

[sock123]

Ðề: Thiết lập ngày hệ thống trong Access

Xin chào mọi người!
Trong bài Access của em đang làm, có một số chỗ có định dạng ngày tháng theo kiểu dd/mm/yyyy. nhưng định dạng ngày tháng của hệ thống lại là mm/dd/yy. Muốn chỉnh lại phải vào Control panel. Em muốn thiết kế một Button để khi Click vào nó sẽ tự động định dạng lại ngày tháng trong hệ thống theo ý mình.
Thanks tất cả:cry7:

Cái này mình sưa tầm được trên mạng. Định dạng lại ngày hệ thống theo dạng dd/mm/yyyy.

Option Compare Database

Private Const LOCALE_SSHORTDATE = &H1F
Private Const WM_SETTINGCHANGE = &H1A
Private Const HWND_BROADCAST = &HFFFF&
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long


Function DinhDangNgay()
Dim dwLCID As Long
dwLCID = GetSystemDefaultLCID()
If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy") = False Then MsgBox "Failed": Exit Function
SendMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0&, 0&

End Function

Bạn có thể thay đổi chổ màu xanh theo ý định dạng của bạn.

[tvintec]

Ðề: Thiết lập ngày hệ thống trong Access

các bác cho em hỏi chút, câu hỏi của em hơi "tối" các bác đừng cười nhé! em muốn hỏi là cái Function DinhDangNgay() của bác quochoi_05 sẽ được gọi ra ở đâu? có tác dụng như thế nào đối với hệ thống? và bình thường em thấy các function luôn trả về Giá Trị, nhìn qua cái function đó em thấy nó nên là dạng Sub hơn chăng? nếu ai có nhiều freetime giải thích hộ em với nhé! nếu hiểu và như ý em hiểu thì có lẽ đoạn code và function trên sẽ rất hữu ích với em! thanks