code vba pour bouton en relation avec case oui/non
Bonjour à tous,
je suis nouveau sur ce forum et j'aimerais avoir un petit coup de main pour mon TFE (Travail de Fin d'Etudes). Je suis actuellement en fin de 2eme Technicien Bureautique et je dois établir une base de données à présenter d'ici le 16Juin?
Pour ma part, ma base de données concerne la gestion d'un VidéoClub. Alors jusqu'ici tout va bien, j'arrive a faire la base quasi complète mais maintenant je tombe sur un petit problème.
Alors voila, j'ai créer une requête pour avoir la liste des Films qui n'ont pas encore été retourné en stock apres la date de fin de locations. Pour ce faire, j'ai créer un formulaire qui reprend tous les champs de ma table Films en location sachant que dans ma table j'ai un champ Retour qui est de type Oui/Non (à cocher).
A la base, j'ai un formulaire GestionLocations et dedans j'ai 2 boutons: Ajout et Modification. Lorsque je clique sur l'un ou l'autre, mon formulaire s'ouvre soit en Add ou en Edit. Pour ce formulaire la, j'ai insérer comme code vba:
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub Commande0_Click()
variableLocations = "Ajout"
DoCmd.OpenForm "Locations", acNormal, acFormAdd, acWindowNormal
DoCmd.Close acForm, "Gestion Locations", acSaveNo
End Sub
Private Sub commande1_Click()
variableLocations = "Modif"
DoCmd.OpenForm "Locations", acNormal, acFormEdit, acWindowNormal
DoCmd.Close acForm, "Gestion Locations", acSaveNo
End Sub |
Et maintenant voici le code VBA que j'ai insérer pour mon formulaire Locations;
(le code est insérer sous A l'ouverture):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Private Sub Form_Open(Cancel As Integer)
Commande8.Visible = True
Commande9.Visible = True
Commande10.Visible = True
Select Case variableLocations
Case "Ajout"
Commande11.Visible = True
Étiquette15.Visible = False
Modifiable14.Visible = False
Case "Modif"
Commande11.Visible = False
Étiquette15.Visible = True
Modifiable14.Visible = True
End Select
End Sub |
Pour mes variables, je les ai créer dans mon module DéclarationVariable.
Commande 8=Annuler
commande9=Enregistrer
commande10=Etat
commande11=NouvelEnregistrement
étiquete15=Recherche
modifiable14=Liste déroulante de mes locations
Alors voila, j'aimerai insérer un bouton Lettre sur le formulaire mais le faire apparaitre uniquement lorsque j'ai ma case Oui/Non (Retour) qui n'est pas cocher donc en faux(false)
Pourriez vous m'aider a trouvé le code car je présume que je dois utilisé des IF THEN mais je ne sais pas comment le faire.
Merci de me répondre au plus vite si vous avez la réponse car moi je nage. :?:(
