Discussion :

[LeSkwal]

Bonjour à tous

J'ai mis en fichier joint un exemple support pour expliquer ce que je désire.

3 champs sont à remplir :

Nom, Prénom, et civilité à l'aide d'un menu déroulant.

Ce que je souhaite :

- Si aucun champ n'ai rempli alors le bouton "FERMER" est SEUL ACTIF mais pas le bouton de création d'un nouvel individu (INACTIF).
Pourquoi ? EX : l'utilisateur s'est trompé en entrant dans ce formulaire et souhaite quitter sans rien y entrer.

- Si l'utilisateur rempli les champs :
Le bouton "création d'un nouvel individu" devient actif si et seulement si le champ civilité est rempli.
Au survol du bouton "création d'un nouvel individu", un message comme quoi il doit indiquer impérativement la civilité apparait.


Voilà.
Peut-être que ce sujet à déjà été traité mais mes recherches n'ont pas abouti.

En fait ce que je désire, c'est que la bonne âme qui me répondra le fasse à même le fichier exemple.
En effet, très souvent les solutions données aux questions posées le sont sous forme de code VBA, mais quand on est un "NEWBEE" comme moi je ne sais jamais où le coller, et quand je crois avoir trouvé et que je lance le formulaire : rien ne se passe...

En vous fournissant le fichier exemple, je prendrai le temps de le décortiquer et de reproduire l'idée à l'identique dans ma création.

Très cordialement.

Pascal.

[Heureux-oli]

Ton bouton doit avoir la propriété Activé sur non !

Pour le champ civilité,

Code :

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

1
2
3
4
 
Private Sub Modifiable14_AfterUpdate()
Me.Création_d_une_nouvelle_personne.Enabled = True
End Sub

[LeSkwal]

Comme je l'ai précisé :

En fait ce que je désire, c'est que la bonne âme qui me répondra le fasse à même le fichier exemple.
En effet, très souvent les solutions données aux questions posées le sont sous forme de code VBA, mais quand on est un "NEWBEE" comme moi je ne sais jamais où le coller, et quand je crois avoir trouvé et que je lance le formulaire : rien ne se passe...

En vous fournissant le fichier exemple, je prendrai le temps de le décortiquer et de reproduire l'idée à l'identique dans ma création.

J'ai bien essayé ce que tu proposes, mais cela ne marche pas.
Faut-il activer quelque part une option permettant le fonctionnement du code VBA ?

En fichiers joints des copies écran de ce que j'ai effectué.

Cordialement

Pascal

[Heureux-oli]

Je pense qu'il y a une différence entre Activé et Visible.

Pour remettre le bouton actif

Code :

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

Me. ....... .Enabled = True

Alors que pour le rendre visible

Code :

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

Me. ........ .Visible = True

[LeSkwal]

J'ai essayé les 2 soluces : Cela ne marche toujours pas.

Code :

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

1
2
3
4
Private Sub Modifiable1110_AfterUpdate()
Me.BoutonSortir.Enabled = True
Me.BoutonSortir.Visible = True
End Sub

Une idée ???
(Pourquoi ne pas utiliser mon fichier exemple comme support de réponse ? Premier message ) je pourrai alors comparer option par option de ce qui diffère
de ma base

Pascal

[Heureux-oli]

C'est trop facile, dans ton fichier, il n'y a pas une seule ligne de code.

Mais tu as de la chance que l'on change les heures cette nuit.

[LeSkwal]

Comme tu peux le voir en fichier joint, le fait d'utiliser le menu déroulant n'active en rien le BOUTON ???

Une solution ?

Pascal

[Heureux-oli]

Surprenant, chez moi ça fonctionne, j'ai même par acquis de conscience utilisé le fichier uploadé.

Dans le code, mets un

Code :

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

MsgBox "Ok"

Tu verras si le code est exécuté ou non !

[Renardo]

Bonjour si sa fonctionne pas regarde au niveau de la securité d'access

[LeSkwal]

Avant tout, merci de vous occuper de moi.

Pour Heureux-oli

Code :

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

MsgBox "Ok"

Rien n'apparaît.... (Ca y'est j'ai filé un coup de tête dans le mur)

Pour Renardo :
Entreverrai-je peut-être une soluce ????
C'est où qu'on trouve la sécurité d'Access ????

Mieux vaut en rire qu'en mourir....

Cordialement

Pascal

[Heureux-oli]

Tes paramètres de sécurités empêchent les macro de fonctionner.

Remède :

Bouton Office
Options Access
Centre de gestion de la confidentialité
Paramètre du centre de gestion de la confidentialité
Emplacements Approuvés

Tu ajoutes l'endroit où tu mets tes DB.

Tu fermes tout

[LeSkwal]

Code :

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

Tu ajoutes l'endroit où tu mets tes DB.

DB ??????????????

Ca sent la solution

Encore Merci

Pascal

[Heureux-oli]

DataBase
Ou base de données

[LeSkwal]

UN TRÈS GRAND MERCI.



ÇA MAAAAAAAAARCHE....

Cordialement

Pascal

[LeSkwal]

Maintenant que ça marche j'ai pu rajouter plein de codes glanés par ci par là...

Partant de ce modèle qui active un bouton :

Code :

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

1
2
3
4
Private Sub Modifiable1110_AfterUpdate()
Me.BoutonSortir.Enabled = True
Me.BoutonSortir.Visible = True
End Sub

Quelle est la commande qui active un sous formulaire ?

En gros :
Je suis dans un formulaire avec pleins de champs.

Quand j'en rempli un spécifique, après la MAJ, le sous formulaire apparaît.

Merci