[ ljbm @ 03.04.2015. 07:27 ] @
| Na nekim računarima (Win7) iz, meni nepoznatog razloga, dolazi do gubljenja regionalih podata, koje se u programu (MS Access) ispoljava kroz tako što prikazuje pogrešno formatirane decimalne brojeve.
Onda moram da idem na Region an Language - Formats - Additional setings (Tu izbacuje poruku "One or more regional settings ar invalid. To fix this problem review and correct the setings"customizable) i onda Reset. posle toga je u redu neko vreme i opet.
Podešavanja su mi na Serbia (Latin) i probao sam sa Serbia (Latin, Serbi and Montenegro (Former)), ali se isto dešava.
|
[ ljbm @ 03.04.2015. 08:58 ] @
Za sada sam rešio sa:
Function IspraviWindows()
Dim WSHShell
Set WSHShell = CreateObject("Wscript.Shell")
If RegKeyRead("HKCU\control panel\international\sDecimal") <> "," Then
WSHShell.RegWrite "HKCU\control panel\international\sDecimal", ",", "REG_SZ"
End If
If RegKeyRead("HKCU\control panel\international\sThousand") <> "." Then
WSHShell.RegWrite "HKCU\control panel\international\sThousand", ".", "REG_SZ"
End If
End Function
gde je:
Function RegKeyRead(i_RegKey As String) As String
Dim myWS As Object
On Error Resume Next
'access Windows scripting
Set myWS = CreateObject("WScript.Shell")
'read key from registry
RegKeyRead = myWS.RegRead(i_RegKey)
End Function
pa sve to na OpenForm event.
[ ljbm @ 16.04.2015. 10:40 ] @
[ ljbm @ 17.04.2015. 13:20 ] @
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.