Discussion :

[abdelillah00]

Bonjour,

Tout d’abords, je tiens a vous dire que je suis novice en ce qui concerne la programmation sur vba access.

Je sollicite votre aide afin de trouver une solution a mon problème.

Voila :

j'ai crée une base de donnée avec 2 tables T_Jaugeage_BAC_Huile et T_Table54A

J'ai crée un formulaire Form1 ou je dois introduire une valeur en décimal (exemple = 13,4) sur une textbox Temp_BAC_aprés_EXP avec comme source la table T_Jaugeage_BAC_Huile

J'ai crée un code vba pour rechercher la valeur supérieure et inférieure de 13,4 qui se trouve dans la table T_Table54A. Exemple :
Si 13,4 alors il doit trouver 12 et 14.
Si 12,8 alors il doit trouver 12 et 14
Si 16.8 alors il doit trouver 16 et 18 .... etc

Le problème est que lorsque je saisi par exemple 18.8 dans la textbox Temp_BAC_aprés_EXP au niveau du Form1. J’obtiens le message : erreur de syntaxe (virgule) dans l'expression ...
Alors que lorsque je saisi une valeur sans décimale (exemple 17) la valeur retournée est 0 au lieu de 18.

La base de données est en pièce jointe

Je vous remercie d'avance pour votre aide.
Salutations
CalcProd.rar

[tee_grandbois]

Bonsoir,
il faut utiliser le séparateur de décimales déclaré dans les paramètres locaux (panneau de configuration Windows)

[tee_grandbois]

Je pense qu'il faut tout simplement convertir la saisie en numérique, essaie ce code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command3_Click()
 
VCF = DLookup("VCF", "T_Table54A", "[Temp]= " & Val(Me.Temp_BAC_aprés_EXP) & " AND [Den15]= " & Me.Den15_EXP_H)
 
D1T1 = DLookup("Temp", "T_Table54A", " [Temp] <= " & Val(Me.Temp_BAC_aprés_EXP))
D1T2 = DLookup("Temp", "T_Table54A", " [Temp] >= " & Val(Me.Temp_BAC_aprés_EXP))
 
End Sub

[abdelillah00]

Merci pour vos repense.

En ce qui concerne le décimale c'est OK.

Reste maintenant comment rechercher les valeurs inférieurs et supérieure de la saisi sur le form1-> textbox=Temp_BAC_aprés_EXP.

Exemple 13.4 -> doit retourner 12 comme valeur inférieure et 14 comme valeur superieure à partir du champ (Temp) de la table T_Table_54A

merci d'avance

[tee_grandbois]

Reste maintenant comment rechercher les valeurs inférieurs et supérieure de la saisi sur le form1-> textbox=Temp_BAC_aprés_EXP.

Cà, c'est plus compliqué ... sur le moment, je ne vois pas comment

[tee_grandbois]

Bonsoir,
essaie ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command3_Click()
Dim sngTemp As Single
' conversion de la saisie
sngTemp = CSng(Me.Temp_BAC_aprés_EXP)
 
VCF = DLookup("VCF", "T_Table54A", "[Temp]= " & Replace(CStr(Me.Temp_BAC_aprés_EXP), ",", ".") & " AND [Den15]= " & Me.Den15_EXP_H)
 
' Arrondi au nombre inférieur
D1T1 = DMax("Temp", "T_Table54A", " [Temp] <= " & Fix(sngTemp))
' Arrondi au nombre supérieur
D1T2 = DLookup("Temp", "T_Table54A", " [Temp] >= " & Abs(Int(-sngTemp)))
 
End Sub

[abdelillah00]

Monsieur tee_grandbois, votre code marche à merveille.

Je vous remercie infiniment pour votre support.

Salutations
Baghdadi Abdelilah