Salut,
Tu peux modifier la valeur écrite avant la mise à jour dans la BD en utilisant l'évènement 'BeforeColUpdate'. Tu peux alors modifier ton '.' en ',' en utilsant une fonction du type: Public Function TransDecimal(MyValue As String) As String If InStr(1, MyValue, ",", vbTextCompare) > 0 Then TransDecimal = Mid(MyValue, 1, InStr(1, MyValue, ",", vbTextCompare) - 1) & "." & Mid(MyValue, InStr(1, MyValue, ",", vbTextCompare) + 1, Len(MyValue) - InStr(1, MyValue, ",", vbTextCompare) + 1) Else TransDecimal = MyValue End If End Function
A+
|