Discussion :

[domik]

Bonjour,

Dans ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub champ2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable1=1
End Sub
Private Sub champ2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable2=1
End Sub
Private Sub champ3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable2=1
End Sub

comment faire apparaitre un message avec comme condition :
....???
If Variable1 > 0 and Variable2 > 0 and Variable3 > 0 Then
MsgBox "message"
End If
End Sub

Ou et comment dois je déclarer les 3 variables?
et quel serait le type de ce dernier sous programme?
Merci pour votre aide

[vodiem]

tu les déclares tes variables en dessous de

Code :

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

Option Compare Database

le type 'byte' serait suffisant
et ton test dans l'évènement AfterUpdate si c'est après une modif mais comme je vois que tu associe ca avec un mouseDown c'est peut être dans le MouveMove a toi de voir à quel moment tu veux déclencher ton test

[domik]

Merci vodiem mais peux tu etre un peu plus complet ds ta réponse avec un exemple stp.
Mon message devrait apparaitre dès qu'un MouseDown est detecté sur l'un des 3 champs et que la condition est respectée.

[vodiem]

ex:

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
Dim Variable1, Variable2, Variable3 As Byte
 
Sub test()
If (Variable1 > 0) And (Variable2 > 0) And (Variable3 > 0) Then
MsgBox "message"
End If
End Sub

sur le module de ton form
puis:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub champ2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable1=1
Call test
End Sub
 
Private Sub champ3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Variable2=1
Call test
End Sub

sur les événements

en initialisant par précaution les VariableN sur l'ouverture du form par exemple.

mais je ne vois pas l'utilité dans le MouseDown...
la succession de MouveDown déclanche ton message mais en visu t'as rien qui te dis que le MouseDown a été enfoncé?
parceque si c'est une un bouton bascule tu n'est pas obligé de faire ca comme ca...

[domik]

merci !vodiem c'est exactement ce que je voulais
comment initialise tu les variables à l'ouverture du formulaire?

[vodiem]

sur l'événement 'sur ouverture' du formulaire:

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
Variable1 = 0
Variable2 = 0
Variable3 = 0
End Sub