VB 6.0. - Unos brojeva (tacke, decimalni zarezi)

[Carlito]

Pozdrav!

Imam na formi Text kontrolu . Kad se unese broj sa 1000 separatorima i decimalnom zarezom npr. 123.456,90 prepoznaje prvu tacku kao decimalni zarez pa se u bazu (Access) upise 123.
Jasno mi je da su mu zamenjene funkcije zareza i tacke, ali mi treba resenje kako to da podesim...tj. kopiram nesto iz Excela i unesem u to polje i da se u bazu upise pravilno ? znaci kad iz Excela iskopiram 15,78 i Paste u to polje on u bazu unese 1578....Nadam se da me je neko skapirao.

Hvala unapred.

Pozdrav! :wave:

 

[ssteva]

Proveri da li je u regional settings podesen zarez za decimal separator.
Mozes da koristis i sledeci kod, onda ne zavisis od lokalnog setovanja za usera.

Declare Function WriteProfileString Lib "kernel32.dll" _
        Alias "WriteProfileStringA" _
        (ByVal lpszSection As String, _
        ByVal lpszKeyName As String, _
        ByVal lpszString As String) As Long

Dim ret As Long 'Return code
ret = WriteProfileString("Intl", "sDecimal", ",")