Discussion :

[KAF]

j'ai créé une feuille pour mettre a jour les données d'une base de données access. voici le code

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
18
Dim DB As Database
Dim Req As QueryDef
 
Set Req = DB.CreateQueryDef("", "UPDATE Zones SET " & _
"  DateInit =" & DateInit.Text & _
", DateFin =" & DateFinale.Text & _
", SA =" & SA.Text & _
", PopU =" & CDbl(Pop.Text) & _
", NatInitU =" & CDbl(NatInit.Text) & _
", NatFinU =" & CDbl(NatFin.Text) & _
", NatIFU =" & CDbl(NatIF.Text) & _
", NatPIU =" & CDbl(NatPI.Text) & _
", MortInitU =" & CDbl(MortInit.Text) & _
", MortFinU =" & CDbl(MortFin.Text) & _
", MortPIU =" & CDbl(MortPI.Text) & _
", MortIFU =" & CDbl(MortIF.Text) & _
"  WHERE NomZone=" & "'" & Trim(NomZone.Text) & "'")
Req.Execute

ce code marche tant que je tape des entiers dans les zones textes. mais des que je tape par exemple 10,5 dans une zone texte une erreur se produit. merci de m'aider

[SfJ5Rpw8]

dans la requête SQL il faut remplacer les , par des .

utilise par exemple cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function mfDbl(st As String)
 mfDbl = Replace(CDbl(st), ",", ".")
End Function

et modifie ton code ainsi

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
18
Dim DB As Database
Dim Req As QueryDef
 
Set Req = DB.CreateQueryDef("", "UPDATE Zones SET " & _
" DateInit =" & DateInit.Text & _
", DateFin =" & DateFinale.Text & _
", SA =" & SA.Text & _
", PopU =" & mfDbl(Pop.Text) & _
", NatInitU =" & mfDbl(NatInit.Text) & _
", NatFinU =" & mfDbl(NatFin.Text) & _
", NatIFU =" & mfDbl(NatIF.Text) & _
", NatPIU =" & mfDbl(NatPI.Text) & _
", MortInitU =" & mfDbl(MortInit.Text) & _
", MortFinU =" & mfDbl(MortFin.Text) & _
", MortPIU =" & mfDbl(MortPI.Text) & _
", MortIFU =" & mfDbl(MortIF.Text) & _
" WHERE NomZone=" & "'" & Trim(NomZone.Text) & "'")
Req.Execute

[Megaxel]

Hello!
Oui, c'est un problème de séparateur numérique.
Une autre solution, qui a été posté il y a quelques temps sur ce forum, est carrément de contrôler la saisie dans les check-box, pour que la touche "," soit directement transformée en ".", au cours de la frappe.
Si j'ai le temps, je ferai une petite recherche sur le forum pour voir si je le retrouve.

[KAF]

ca marche. merci pour la reponse

[Megaxel]

Alors tu as oublié de mettre le tag ...

[agro]

Une autre solution est de stocker le séparateur décimal dans une variable à l'ouverture du programme et puis de le mettre à ".". A la fermeture du programme, il suffit de remettre le séparateur décimal à sa valeur initiale.

[Xo]

Une autre solution est de stocker le séparateur décimal dans une variable à l'ouverture du programme et puis de le mettre à ".". A la fermeture du programme, il suffit de remettre le séparateur décimal à sa valeur initiale.

Pas d'accord, si tous les développeurs d'appli font pareil, ça va donner un beau boxon ...

[ar_men]

désolé ami Xo

c vrai mes appli datent du siècle dernier, et elles vivent toujours
mes nombres (dument vérifiés) sont enregistrés en NOMBRES ENTIERS, avec une zone complémentaire pour la position de la virgule

fini les erreurs base 2, base 10 ...

le séparateur ... bof , ou . out pourquoi pas *
pour mon appli c un non numérique parmi les numérique (chut, il doit etre unique... )

c vrai que je fais du code le plus bas possible ...