Salut à tous
Voila mon problème:
Une Base acces 97, une table nommée "stock" un champs appelé "Prix unitaire"
Type numérique
taille reel simple
format fixe
decimale 2
Null imterdit non
indexe non



Je fais une interface en vb4 pro pour gerer cette base;
donc
un data qui pointe sur la table stock
record source: stock
recordtype: 0 table


Enfin sur l'interface j'ai 4 textbox qui sont dirige par le data et 1 qui a pour datafield
le champs "Prix unitaire"
Quand je teste, si je tape 12,25 avec la virgule du clavier ça passe.
Si je tape 12.25 avec le point du pave numerique ça plante.
En fait un bouton de commande est censé transferer dans la table l'enregistrement que je viens
de faire avec le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command2_Click()
 
    Dim Base As String
Base = "INTRANTS.mdb"
 
  If DStock.Recordset.NoMatch Then
    DStock.BOFAction = 1
 
End If
  DStock.UpdateRecord
  DStock.Recordset.Bookmark = DStock.Recordset.LastModified
 
DStock.Refresh
DgStock.Refresh
DBGrid1.Refresh
 
End Sub
J'ai droit au message "erreur 524 erreur de conversion de type de donnée"

Ce code dans le lostfocus du textbox me permet le controle de la saisie de chiffre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i As Integer
Dim c As String
 
'---- Contrôle la validité de la saisie
    For i = 1 To Len(Text4.Text)
        c = Mid$(Text4.Text, i, 1)
        If c < "0" Or c > "9" Then
            MsgBox "Vous ne pouvez entrer que les chiffres de 0 à 9"
'---- Erreur : place la sélection sur le 1er caractère erroné
            Text4.SelStart = i - 1
            Text4.SelLength = 1
            Text4.SetFocus         'focus sur numero
            Exit For
        End If
    Next
La, je ne peut rentrer que les chiffres.
Voila enfin la question:

Comment on peut rajouter dans les carateres valable, le POINT du pave numerique?

Esperant avoir ete assez clair
Merci d'avance pour vos tuyaux
jpphttp://www.developpez.net/forums/images/smilies/icon_redface.gif