-
08-17-2009, 02:33 AM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
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.
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:
- Máy chủ vừa là máy khác
- Thiết lập ngày hệ thống trong Access
- Lỗi khi import dữ liệu vào table
- Code khóa phím Shift
- Cho Mình Hỏi Làm Sao Để Thu Nhỏ Cửa Sổ Access ?
- làm sao để hiển thị thông tin về last record
- Để Msgbox hiển thị ngôn ngữ tiếng Việt
- Không thể tắt nút Close trên thanh tiêu đề !
- [Hỏi] Lấy hàng được bán nhiều nhất mỗi quý
- Cho mình hỏi có cách nào để kiểm tra 1 Control có nhận Focus hay không ?
-
08-17-2009, 03:19 PM #2
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: Thiết lập ngày hệ thống trong Access
Gửi bởi TranDang
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.
-
08-18-2009, 04:00 AM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 1
Ðề: 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
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"