hadangpr > 19-02-12, 05:27 PM
muaphonui_2010 > 20-02-12, 10:20 AM
(19-02-12, 05:27 PM)hadangpr Đã viết: Em thấy có code chỉnh mặc định ngày tháng năm dd/mm/yy trong diễn đàn vậy mấy anh có code reset lại ngày tháng năm không cho em xin với
hadangpr > 20-02-12, 10:25 AM
(20-02-12, 10:20 AM)muaphonui_2010 Đã viết:(19-02-12, 05:27 PM)hadangpr Đã viết: Em thấy có code chỉnh mặc định ngày tháng năm dd/mm/yy trong diễn đàn vậy mấy anh có code reset lại ngày tháng năm không cho em xin với
Ý của bạn có phải là khi mình nhập 1 phiếu xong và tạo bảng ghi mới thì cái ngày tháng mình vừa nhập đó nó sẽ giữ lại cho phiếu tiếp theo không.
VD: bắt đầu nhập Số phiếu 1, ngày 01/01/2012 => xong, lưu lại.
tiếp theo ta nhập Số phiếu 2, ngày 01/01/2012 => ngày này nó sẽ tự động gửi lại , khỏi phải nhập lại mắt công....
có phải vậy không bạn?
hadangpr > 20-02-12, 11:01 AM
gialilama > 20-02-12, 04:55 PM
quanghoasla > 21-02-12, 12:19 AM
haquocquan > 22-02-12, 02:07 PM
Option Compare Database
Option Explicit
Public Const LOCALE_SSHORTDATE = &H1F
Public Const WM_SETTINGCHANGE = &H1A
'same as the old WM_WININICHANGE
Public Const HWND_BROADCAST = &HFFFF&
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 PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetSystemDefaultLCID Lib "kernel32" _
() As Long
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
Sub SetSysDate()
Dim lLocal As Long
Dim Length As Long
Dim dwLCID As Long
Dim Buf As String * 1024
On Error GoTo SetSysDate_Error
lLocal = GetSystemDefaultLCID()
Length = GetLocaleInfo(lLocal, LOCALE_SSHORTDATE, Buf, Len(Buf))
If Not Left(Buf, Length - 1) = "dd/MM/yy" Then
dwLCID = GetSystemDefaultLCID()
If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yy") = False Then
MsgBox "Khong doi duoc dinh dang ngay he thong.", 64, "Thong bao"
Exit Sub
End If
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End If
Exit Sub
SetSysDate_Error:
MsgBox "Unexpected Error No. " & Err.Number & _
" in procedure SetSysDate of Form Main. " _
& vbCrLf & vbCrLf & Err.Description, 64, "Dish Care Centre"
End Subhadangpr > 22-02-12, 05:15 PM
huylam > 29-02-12, 06:49 PM