initialisation des variables sous Access

Question

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 End Sub Merci par avance de vos reponses. Ps: toutes les

cs_CanisLupus · Answer

Salut,

Comme je ne programme pas sous VBA ACCESS, je ne comprend pas les lignes :

'initialisation de la superficie
DoCmd.SelectObject acForm, "tabla SC2", True

C!tabla_SC1!tabla_SC2!Superficie = S

S.Value = tabla_SC1!Superficie

Par contre, dans ta comparaison, tu oublies les valeurs 50000 et 100000 puisque c toujours < ou > à ces valeurs.

Cordialement, CanisLupus

qaoutar · Answer

merci de ta reponse.
En effet j'ai oublier de preciser certaines choses. :blush) 

DoCmd.SelectObject acForm, "tabla SC2", True 'selection du formulaire tabla SC2

C!tabla_SC1!tabla_SC2!Superficie = S  'ouverture du dossier C, de la base de donnée tabla SC1, du formulaire tabla SC2, et la textbox superficie.
 
'S.Value = tabla_SC2!Superficie 'initialisation de la valeur de la superficie du formulaire dans S.

 De toutes facon aucune de ces manipulations ne me premettent d'initialiser la valeur de S. :)

Initialisation des variables sous Access

2 réponses

Discussions similaires