Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 16/12/2011, 09h22   #1
Membre habitué
 
Inscription : janvier 2006
Messages : 317
Détails du profil
Informations forums :
Inscription : janvier 2006
Messages : 317
Points : 106
Points : 106
Par défaut Refus de cacher un bouton actif

Bonjour,
Dans un formulaire, deux boutons de commande Cmd1 et Cmd2.
A l'ouverture, Cmd1 est visible et Cmd2 caché.
Ils correspondent à deux processus qui doivent s'enchainer dans cet ordre.
Deux listes, Liste1 (remplie) et Liste2 (vide)
Un click sur Cmd1 après choix dans Liste1, lance le processus N°1 qui remplit la Liste2, cache Cmd1 et rend visible Cmd2.
L'utilisateur doit alors choisir dans la Liste2 un nom ou plusieurs, puis clicker sur Cmd2 (seul bouton visible) ce qui lance le processus N°2.

Je souhiaterais qu'à la fin du processus N°2, Cmd2 soit caché et Cmd1 réactivé.

Or je ne parviens pas à cacher Cmd2, opération refusée car elle concerne le bouton actif (ligne 20 du code).

Ci-dessous un résumé du code
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Sub Cmd1_Click()
'Choix de la base
rangBase = Me.Liste1.Column(0)
Liste2.Visible = True
Call ListeTab
Liste2.Enabled = True
End Sub
 
Public Sub ListeTab()
'  Affiche dans Liste2 les tables de la base de données sélectionnée dans Liste1
'.......Code....fournit Liste
  Liste2.RowSource = liste
  Liste2.Value = Null
End Sub
Public Sub Cmd2_Click() '111116
'Transfert des tables
'...........
'..................
  Call Transfert
Me.Cmd1.Visible = True
Me.Cmd2.Visible = False '' NE FONCTIONNE PAS
  Exit Sub
End Sub
 
Private Sub Liste2_AfterUpdate()
'Cache Cmd1 et rend visible Cmd2
Me.Cmd1.Visible = False
Me.Cmd2.Visible = True
End Sub
 
Public Sub Transfert()
'lancé par clic sur liste2 des tables
tabaj = ListeTables.Value
 'Transfert de la table vers la base destinataire sous le même nom
DoCmd.TransferDatabase acImport, "microsoft access", CheminAj, acTable, tabaj, tabaj 'nouvNom
Me.Cmd2.Visible = True
End Sub
Comment outrepasser cette interdiction ?
Merci de l'aide
Amitiés
AndréPe est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/12/2011, 09h39   #2
Rédacteur/Modérateur
 
Avatar de Philippe JOCHMANS
 
Homme Philippe JOCHMANS
Développeur informatique
Inscription : mai 2005
Messages : 17 625
Détails du profil
Informations personnelles :
Nom : Homme Philippe JOCHMANS
Âge : 44
Localisation : France, Loir et Cher (Centre)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Communication - Médias

Informations forums :
Inscription : mai 2005
Messages : 17 625
Points : 30 958
Points : 30 958
Envoyer un message via MSN à Philippe JOCHMANS Envoyer un message via Skype™ à Philippe JOCHMANS
Bonjour

Ce qui se passe est normal.

Active Cmd1, mets le focus dessus (setFocus) et là tu pourrais désactiver Cmd2

Philippe
__________________
Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
Si vous pensez commencer sans un livre, oublier : livres pour débuter
Vous pouvez consulter mes articles sur Access et PowerPoint
Le blog Office.

Inutile de m'envoyer un MP pour des questions techniques ou de me relancer , je n'y répondrais pas.
Philippe JOCHMANS est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/12/2011, 17h42   #3
Membre habitué
 
Inscription : janvier 2006
Messages : 317
Détails du profil
Informations forums :
Inscription : janvier 2006
Messages : 317
Points : 106
Points : 106
Merci Philippe,
C'est tellement évident que je n'y ai pas pensé : donc activer le bouton à faire apparaître, lui donner le focus et ensuite seulement cacher le bouton qui n'est plus actif.

Un efois de plus le forum a joué son rôle.
Amitiés à tous
AndréPe est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 01h41.


 
 
 
 
Partenaires

Hébergement Web