qaoutar
Messages postés3Date d'inscriptionmercredi 13 octobre 2004StatutMembreDernière intervention14 octobre 2004
-
13 oct. 2004 à 17:08
qaoutar
Messages postés3Date d'inscriptionmercredi 13 octobre 2004StatutMembreDernière intervention14 octobre 2004
-
13 oct. 2004 à 17:56
Bonjour,
novice dans la programmation, je suis actuellement en train de realiser une base de donnée mais j'éprouve des difficultées à faire un programme.
Dans ma base de données j'ai une superficie, celle-ci est reprise dans un formulaire. Je dois faire un programme qui me permette de comparer cette donnée à un intervalle.
Mon plus grand problème est que je n'arrive pas à donner une valeur à la superficie de mon programme car je ne sais pas par quel moyen je peux l'initialiser . Actuellement le résultat que j'obtiens est <50000 car la superficie est toujours égale à 0.
Mon programme se présente comme cela :
Private Sub CalculSup_Click()
Dim S As Single
'initialisation de la superficie
DoCmd.SelectObject acForm, "tabla SC2", True
C!tabla_SC1!tabla_SC2!Superficie = S
S.Value = tabla_SC1!Superficie
'comparaison
If S < 50000 Then
Calcul = "<50000"
ElseIf S > 50000 And S < 100000 Then
Calcul = ">50000 Y < 100000"
Else: Calcul = " >100000"
End If
'resultat final dans la bonne case
CalculSup = Calcul