Regionala podešavanja se gube !!

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.

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.

Izgleda da je ovo rešenje :

http://www.copsmodels.com/gpcommapnt.htm

A uzrok svemu je ovo 8-( "#$$$$$$%$&%/&(/($%#"!!~

http://bbs.kingsoftstore.com/f...hp?mod=viewthread&tid=3281