Insertion automatique zone de texte celon besoin

**jokenjo** · 13/06/2007, 20h28

Bonsoir
J´aimerai realsier un formulaire de saisie de donner .Mais en fait les saisies different , selon que l´utilsateur veux enregistrer 2 ou 8 ou plus donner dans une zone de texte .Dans mon formulaire j´ai deja des zones de texte , mais si la personne a besoin de plus de zone text comme par exemple :J´ai 1 zone de text pour enregistrer 1 donne , mais jai plus qu´un donnee .comment faire en sorte qu´apres enregistrement de la premiere donnee en autre zone texte se met en place en dessous du premier pour que l´utilsateur saisisse ses donnée et ainsi de suite .Ces donnes sont stocker dans une table, mais dans ce cas il faudrait que nouveau champ dans la table se mette en place aussi pour la nouvelle donne ....
Quelqu´un aura til une idee sur comment faire realiser cela .
Merci

**lola06** · 13/06/2007, 22h11

Salut,
tu pourrais contourner le problème en créant des zones de texte initialement qui sont invisible. Et quand l'utilisateur clique sur le bouton la zone de texte apparaît.
Voici un exemple de code que tu pourrais appliquer.

Code :

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

1
2
3
4
5
6
7
8
Sub NomBouton_Click()

dim a%

a% = a% + 1
NomZoneTexte_a%.Visible = True

End Sub

En fait à chaque clic du bouton la variable a% s'incrémente de 1, les noms des zones de texte ont la même première partie et un chiffre qui augmente de 1 à chaque fois, par exemple :

Code :

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

1
2
3
4
Zone_1
Zone_2
Zone_3
Zone_4

Voilà j'espère que tu pourras réussir ce que tu veux ou que sinon ma méthode puisse t'aider.

**jokenjo** · 14/06/2007, 00h43

Envoyé par lola06

Salut,
tu pourrais contourner le problème en créant des zones de texte initialement qui sont invisible. Et quand l'utilisateur clique sur le bouton la zone de texte apparaît.
Voici un exemple de code que tu pourrais appliquer.

Code :

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

1
2
3
4
5
6
7
8
Sub NomBouton_Click()

dim a%

a% = a% + 1
NomZoneTexte_a%.Visible = True

End Sub

En fait à chaque clic du bouton la variable a% s'incrémente de 1, les noms des zones de texte ont la même première partie et un chiffre qui augmente de 1 à chaque fois, par exemple :

Code :

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

1
2
3
4
Zone_1
Zone_2
Zone_3
Zone_4

Voilà j'espère que tu pourras réussir ce que tu veux ou que sinon ma méthode puisse t'aider.

Bonjour
Merci de votre code je pense que cela doit pouvoir bien arranger le cote formulaire , mais est ce quil ne faudrait pas aussi un code pour la creation automatique de l´insertion d´un champ correspondant a cet nouveau zone texte.J´essaye le code et je vous tiens au courant .
Merci

**lola06** · 14/06/2007, 08h40

Il y a deux solutions, soit les champs sont déjà créé mais ne se remplisse que si l'utilisateur le veut ce qui est plus logique car tu ne peux pas avoir une même table avec un nombre différent de champs mais tu peux avoir une table avec 10 champs dont 8 vides il n'y a aucun problèmes.

Pour moi ca serait plus logique que tu établisse le nombre de préalablement et que tu limite le nombre de zone de texte à afficher.

**jokenjo** · 15/06/2007, 11h51

Envoyé par lola06

Il y a deux solutions, soit les champs sont déjà créé mais ne se remplisse que si l'utilisateur le veut ce qui est plus logique car tu ne peux pas avoir une même table avec un nombre différent de champs mais tu peux avoir une table avec 10 champs dont 8 vides il n'y a aucun problèmes.

Pour moi ca serait plus logique que tu établisse le nombre de préalablement et que tu limite le nombre de zone de texte à afficher.

Bonjour Lola06
j´ai essaye votre code pour la creation de nouveau zonetext, mais il m´affiche a chaque fois une erreur de compilation "Qualificateur Incorrect" sur "nomZonetext_a%"(Au prealable les zones de texte sont invisibles.
Je travaille sur access 2002 .
Merci

**lola06** · 15/06/2007, 11h58

Autant pour moi, il faut que tu mette le code dans le module réservé au formulaire (est ce que c'est bon déjà ça ?) et que tu mette Me. devant tes contrôles :

Code :

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

1
2
3
4
5
6
7
8
Sub NomBouton_Click()
 
dim a%
 
a% = a% + 1
Me.NomZoneTexte_a%.Visible = True
 
End Sub

**jokenjo** · 15/06/2007, 12h45

Envoyé par lola06

Autant pour moi, il faut que tu mette le code dans le module réservé au formulaire (est ce que c'est bon déjà ça ?) et que tu mette Me. devant tes contrôles :

Code :

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

1
2
3
4
5
6
7
8
Sub NomBouton_Click()
 
dim a%
 
a% = a% + 1
Me.NomZoneTexte_a%.Visible = True
 
End Sub

BOnjour Lola06
j´ai change le code ,mais il me donne toujours une erreur "Membre de de methode ou de données introuvable"
Merci

**lola06** · 15/06/2007, 13h13

Où as-tu mis ton code ?
Dans un module normal ou celui du formulaire ?

**jokenjo** · 15/06/2007, 14h48

Envoyé par lola06

Où as-tu mis ton code ?
Dans un module normal ou celui du formulaire ?

je l´ai mis dans celui du formulaire .De plus si je mets le nom normal avec zonetext1 par exemple il m´affiche la zonetext quand je clic sur mon bouton de commande .

**lola06** · 15/06/2007, 15h11

Comment as tu écrit tes noms des contrôles ?
Si tu as écrit ZoneTexte1 dans le formulaire et que tu as utilisé mon code avec ZoneTexte_a% c'est faux.
Car dans ce cas ton contrôle devrait être ZoneTexte_1 par exemple.

Sinon donne moi en détail ton code et les noms de tes contrôles.

**jokenjo** · 15/06/2007, 15h25

Envoyé par lola06

Comment as tu écrit tes noms des contrôles ?
Si tu as écrit ZoneTexte1 dans le formulaire et que tu as utilisé mon code avec ZoneTexte_a% c'est faux.
Car dans ce cas ton contrôle devrait être ZoneTexte_1 par exemple.

Sinon donne moi en détail ton code et les noms de tes contrôles.

voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
Sub Commande30_Click()
 
Dim a%
a% = a% + 1
Me.projet_a%.Visible = True
 
End Sub

le nom de mes controles :
projet_1
projet_2
projet_3 et ....

**lola06** · 15/06/2007, 15h32

Met des boites de dialogue pour voir où le problème se trouve, dis moi lesquelles sont apparues.

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
Sub Commande30_Click()
 
Msg Box "un"
 
Dim a%
 
Msg Box "deux"
 
a% = a% + 1
 
Msg Box "trois"
 
Msg Box a%
 
Me.projet_a%.visible = true
 
Msg Box "quatre"
 
End Sub

**jokenjo** · 16/06/2007, 17h19

Envoyé par lola06

Met des boites de dialogue pour voir où le problème se trouve, dis moi lesquelles sont apparues.

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
Sub Commande30_Click()
 
Msg Box "un"
 
Dim a%
 
Msg Box "deux"
 
a% = a% + 1
 
Msg Box "trois"
 
Msg Box a%
 
Me.projet_a%.visible = true
 
Msg Box "quatre"
 
End Sub

Bonjour
il ne me compile pas ce code , il me donne toujours l´anciennce erreur au depart "Membre de de methode ou de données introuvable"...
je ne sais vraiment pas ou est le probleme ...
merci