Access VBA

Question

Bonjour 


Mon probl&#232;me est le suivant :


J&#146;ai cr&#233;e une table ville avec comme champ le nom de la ville ainsi que le nombre de case :
Explication du nombre de case : chaque ville poss&#232;de un nombre de case, par exemple Lys Lez Lannoy &#224; pour nombre de case 1 tandis que Armenti&#232;res &#224; pour nombre de case 4, en faite plus la ville est &#233;loign&#233;e plus le nombre de case est &#233;lev&#233;e.


Je dois faire un planning, pour g&#233;rer la livraison des commandes.


J&#146;ai donc fait un formulaire ou j&#146;y ai mis des listes d&#233;roulantes contenant le nom des villes :


Une fois que l&#146;utilisateur a choisi sa ville, il doit entrer le nombre de case correspondant &#224; la ville.


Enfin pour que le planning soit valider le nombre total de case doit &#234;tre inf&#233;rieur &#224; 10 ou 4 cela d&#233;pend de l&#146;horaire de livraison.


Voil&#224; le code que j&#146;ai mis sur mon bouton " v&#233;rification " : 


Dim Tot As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer


Private Sub Bascule87_Click()


Tot = 0


a = case1.Value
b = case2.Value
c = case3.Value
d = case4.Value
Tot = a + b + c + d


If Tot <= 10 Then
MsgBox ("Votre planning est correcte")
Else: MsgBox ("Votre planning est sup&#232;rieur &#224; 10 cases")End If


End Sub


Les listes d&#233;roulantes ne sont pas tous utilisables l&#146;un de met premier probl&#232;me est lorsqu&#146;il me met un message d&#146;erreur en me disant que les valeurs null sont interdites.


Enfin mon dernier probl&#232;me est lors de la v&#233;rification, il ne contr&#244;le pas la condition il me met toujours la condition apr&#232;s le then. 


Merci d'avance pour l'aide que vous m'apporterer .

omsylv · Answer

salut, 



il faut qu'&#224; chaque valeur , au lieu de faire a = case1.value tu fasses



            if isNull ( case1.value) then

                    a = 0

            else : a = case1.value



Sinon, je ne comprends pas ton probl&#232;me sur la condition, peux tu r&#233;expliquer ?

sambb59 · Answer

If Tot <= 10 Then
MsgBox ("Votre planning est correcte")
Else: MsgBox ("Votre planning est sup&#232;rieur &#224; 10 cases")End if

Le probl&#232;me sur la condition est que si jamais tot = 8
alors il va me mettre "Votre planning est correcte"
si l'utilisateur remanipule est que tot = 12 il va afficher
"Votre planning est correcte" alors qu'il ne l'ai pas.

si je change le if, en mettant l'inverse:
If Tot >= 10 Then
MsgBox ("Votre planning est sup&#232;rieur &#224; 10 cases")
Else: MsgBox ("Votre planning est correcte")
End if

que j'entre une valeur sup&#232;rieur ou inf&#233;rieur &#224; 10 il m'affichera toujours "Votre planning est sup&#232;rieur &#224; 10 cases"

j'esp&#232;re que c'est plus compr&#233;hensible cette histoire de condition ?!!

Merci bizz

omsylv · Answer

Essaye avec le If que je t'ai dit. sinon si ce sont des listes d&#233;roulante remplace les .value par .column(0)

sinon je ne sais pas.

keiko11245 · Answer

Salut pour ton histoire de condition, affiche la valeur de Tot pour
voir si c'est un probl&#232;me de condition ou un probleme de valeur de Tot.

 Ah l'informatique c'est bien quant m&#234;me quand &#231;a marche

Access VBA

4 réponses

Discussions similaires