Discussion :

[alainmante]

Bonjour, j’utilise ce code conseillé par l’un d’entre vous, pour un bouton qui fait ajouter un nouvel enregistrement. Un nouvel enregistrement comprend 6 contrôles pour 6 champs de la table, dont 4 listes déroulantes. Ce code me sert à faire prendre au contrôle « codeaj » le contenu numérique du n° auto, pour qu’il soit renseigné par un nombre quelconque simplement parce que ce champ »codeaj » et lié avec une autre table et que s’il n’y a pas de nombre contenu dans l’enregistrement plus rien ne se lie, ça c’est pour l’explication, ça ne pose pas de problème.
Par contre je voudrais maintenant en rendant mes 6 champ d’ajout d’enregistrement invisibles sur le formulaire (visible non, pour éviter à l’utilisateur des ajouts par erreur, très faisable jusque là), qu’en cliquant sur le bouton ajout, tous ces contrôles « visible non » redeviennent « visibles oui ». Quelles lignes de code doit-on y ajouter par ça ? Merci de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Ajouter_école_Click()
    On Error GoTo Err_Ajouter_école_Click
 
    DoCmd.GoToRecord , , acNewRec
 
    Me.Codeaj = Me!N°                 ' Insérer le n° auto dans le champ
 
Exit_Ajouter_école_Click:
    Exit Sub
 
Err_Ajouter_école_Click:
    MsgBox Err.Description
    Resume Exit_Ajouter_école_Click
 
End Sub

[isabelle b]

bonjour

sur le code clic du bouton ajout tu lui indique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Ajouter_école_Click()
On Error GoTo Err_Ajouter_école_Click
 
DoCmd.GoToRecord , , acNewRec
 
Me.Codeaj = Me!N° ' Insérer le n° auto dans le champ
Me.nomdetoncontrole1.visible = True
Me.nomdetoncontrole2.visible = true
Me.nomdetoncontrole3.visible = true
Me.nomdetoncontrole4.visible = true
Me.nomdetoncontrole5.visible = true
Me.nomdetoncontrole6.visible = true
Exit_Ajouter_école_Click:
Exit Sub
 
Err_Ajouter_école_Click:
MsgBox Err.Description
Resume Exit_Ajouter_école_Click
 
End Sub

Isabelle

[alainmante]

Merci Isabelle ça marche bien, mais excuse-moi d’abuser, j’aurais besoin de 2 autres solutions sur le même formulaire (ACCESS 2003) :
1. Comment je fais pour faire apparaître les étiquettes qui vont avec les contrôles rendues invisibles avec les contrôles dans un premier temps (pour que l’utilisateur sache de quoi il s’agit avant de saisir) ? quel type de ligne ajouter dans le code ?
2. Je ne me suis pas étendu la 1° fois mais ma base consiste à renseigner des caractéristiques numériques des établissements scolaires d’un pays complet. Pour éviter des saisies fastidieuses à l’utilisateur, j’ai déjà rentré la listes des établissement connus (4500) dans les 6 champs identifiant l’établissement (région, département, commune, nom, statut, code) de la table. De ce fait l’utilisateur n’a qu’à faire défiler les enregistrements avec la flèche du bas et saisir pour chaque établissement les renseignements numériques sur d’autres contrôles qu’on lui demande. Or lorsqu’on ajoute un établissement, c’est qu’il est nouveau, et n’existe pas encore dans les champs identifiants. Et ici une fois que le nouvel établissement est saisi, tout reste tel quel et on ne peux que faire avancer que pour de nouveaux enregistrements à la fin de tous les enregistrements préexistants, sans pouvoir revenir au défilement normal des enregistrements déjà rentrés : ce que je voudrais c’est un bouton qui me fasse revenir à la situation de départ, au défilement normal des enregistrements déjà rentrés dans la table, avec mes ajouts invisibles.. Merci de ce que tu pourras faire. Cordialement ; (Si tu veux je te compresse ma base et je te l’envoie en Cjoint).

[Access_ible]

Bonsoir.

Partisant du moidre effort, je proposerait d'inserer un contrôle onglet.

Il est possible de faire disparaitre les onglets et de rendre ainsi ce contrôle complètement invisible. Il est cependant plus simple de laisser les onglets visible le temps de la construction de la base.

En revanche ces onglets ont des nom, généralement des N° de pages.

Et il est possible de les faire apparaitre par une commande Atteindre Controle je crois (on peut la créer avec le générateur de Macro d'access, en donnant le nom de la page comme controle à atteindre. Ensuite on convertit la macro en VBA...)

Ensuite on met sur le second onglet tout ce que l'on veut cacher (Contrôles, étiquettes etc...)

Il ne reste plus qu'à mettre un code qui passe du premier onglet, vierge, au second, qui contient les champs que l'on voulait masquer jusque là.

Par contre, je n'ai pas compris le problème N° 2. En quoi l'ajout d'une info dans une liste déroulante empêche son fonctionnement...

Cordialement.

[isabelle b]

Bonjour

prbl 1 : est ce qu'au départ dans les propriétés les contrôles sont visibles ?

plutôt que de les rendre invisibles lorsqu'on ne clique pas sur ajout, cad à l'ouverture du formulaire, cela serait il intéressant de les rendre juste inaccessibles ? Cad les vérouiller ? et les griser par exemple, de façon à ce que l'utilisateur sache que c'est une information mais non modifiable.

prbl 2 : je ne saisi pas ce que tu veux faire. Est ce que tes 4 listes déroulantes doivent se mettre à jour les unes en fonction des autres ?

tu peux poster ta base si tu veux, je jetterai un oeil

bonne journée
isabelle