J'ai des zones de textes ind=E9pendantes dans lesquelles je=20
saisie des crit=E8res afin d'ex=E9cuter une requ=EAte.=20
J'aimerais pouvoir mettre =E0 blanc toutes ces zones sans=20
avoir =E0 mettre :
Ni le requery ni le refresh ne fonctionnent et la seule=20
solution que j'ai trouv=E9e est de fermer le form et de le=20
rouvrir, ce qui n'est pas tr=E8s =E9l=E9gant, vous en=20
conviendrez.
un peu de courage, 12 lignes qu'est-ce que c'est ?
Dim I As Integer For I = 1 To 12 Me("texte" & I) = "" Next I
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jpg" a écrit dans le message de news:1737001c448b8$b2ee71d0$ Bonjour tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
Ni le requery ni le refresh ne fonctionnent et la seule solution que j'ai trouvée est de fermer le form et de le rouvrir, ce qui n'est pas très élégant, vous en conviendrez.
Merci beaucoup pour votre aide.
JPG
bonjour.
un peu de courage, 12 lignes qu'est-ce que c'est ?
Dim I As Integer
For I = 1 To 12
Me("texte" & I) = ""
Next I
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"jpg" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1737001c448b8$b2ee71d0$a501280a@phx.gbl...
Bonjour tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête.
J'aimerais pouvoir mettre à blanc toutes ces zones sans
avoir à mettre :
Ni le requery ni le refresh ne fonctionnent et la seule
solution que j'ai trouvée est de fermer le form et de le
rouvrir, ce qui n'est pas très élégant, vous en
conviendrez.
un peu de courage, 12 lignes qu'est-ce que c'est ?
Dim I As Integer For I = 1 To 12 Me("texte" & I) = "" Next I
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jpg" a écrit dans le message de news:1737001c448b8$b2ee71d0$ Bonjour tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
Ni le requery ni le refresh ne fonctionnent et la seule solution que j'ai trouvée est de fermer le form et de le rouvrir, ce qui n'est pas très élégant, vous en conviendrez.
Merci beaucoup pour votre aide.
JPG
3stone
Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête.
J'aimerais pouvoir mettre à blanc toutes ces zones sans
avoir à mettre :
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
jpg
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit de "date_début_justif", "date_fin_justif", "age_du_capitain e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute 20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai
pris "texte1", "texte2" comme exemple, car en vrai il
s'agit
de "date_début_justif", "date_fin_justif", "age_du_capitain
e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute
20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de
réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne
serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine-----
Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête.
J'aimerais pouvoir mettre à blanc toutes ces zones sans
avoir à mettre :
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit de "date_début_justif", "date_fin_justif", "age_du_capitain e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute 20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
"jpg" Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Dim c As Control For Each c In Me.Controls If TypeOf c Is TextBox Then c.Value = Null End If Next
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
si si ;-((
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Eric
Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Sub ReInitialisation Dim c as control For each c in Me.Controls If TypeOf c is Textbox then c.Text="" End If Next c End Sub
et tu peux la rendre plus générique en lui passant le formulaire et en l'écrivant dans un module général.
A+ Eric
"jpg" écrivait news:1725e01c448c0 $1441e500$:
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit de "date_début_justif", "date_fin_justif", "age_du_capitain e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute 20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
Cependant dans mon précédent message j'ai
pris "texte1", "texte2" comme exemple, car en vrai il
s'agit
de "date_début_justif", "date_fin_justif", "age_du_capitain
e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute
20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de
réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne
serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine-----
Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête.
J'aimerais pouvoir mettre à blanc toutes ces zones sans
avoir à mettre :
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Sub ReInitialisation Dim c as control For each c in Me.Controls If TypeOf c is Textbox then c.Text="" End If Next c End Sub
et tu peux la rendre plus générique en lui passant le formulaire et en l'écrivant dans un module général.
A+ Eric
"jpg" écrivait news:1725e01c448c0 $1441e500$:
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit de "date_début_justif", "date_fin_justif", "age_du_capitain e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute 20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Et, s'il en a des autres...utiliser le tag (remarque)
Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "Vider" Then ctl.Value = Null End If Next
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
jpg
Mille mercis pour vos réponses, mais hélas j'ai plein d'autres zones de texte qui affichent le résultat d'un calcul dès l'ouverture du form.
Et pour tout vous dire (car je vous ai caché la vérité !) j'ai aussi des zones de liste déroulantes et des cases à cocher, que j'aurais aimé réinitialiser (il me plait ce mot) également.
@ +
JPG
-----Message d'origine----- Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Sub ReInitialisation Dim c as control For each c in Me.Controls If TypeOf c is Textbox then c.Text="" End If Next c End Sub
et tu peux la rendre plus générique en lui passant le formulaire et en
l'écrivant dans un module général.
A+ Eric
"jpg" écrivait news:1725e01c448c0
$1441e500$:
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit
de "date_début_justif", "date_fin_justif", "age_du_capitain
e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute
20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
.
Mille mercis pour vos réponses, mais hélas j'ai plein
d'autres zones de texte qui affichent le résultat d'un
calcul dès l'ouverture du form.
Et pour tout vous dire (car je vous ai caché la vérité !)
j'ai aussi des zones de liste déroulantes et des cases à
cocher, que j'aurais aimé réinitialiser (il me plait ce
mot) également.
@ +
JPG
-----Message d'origine-----
Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc
peut t'interesser
Sub ReInitialisation
Dim c as control
For each c in Me.Controls
If TypeOf c is Textbox then
c.Text=""
End If
Next c
End Sub
et tu peux la rendre plus générique en lui passant le
formulaire et en
Mille mercis pour vos réponses, mais hélas j'ai plein d'autres zones de texte qui affichent le résultat d'un calcul dès l'ouverture du form.
Et pour tout vous dire (car je vous ai caché la vérité !) j'ai aussi des zones de liste déroulantes et des cases à cocher, que j'aurais aimé réinitialiser (il me plait ce mot) également.
@ +
JPG
-----Message d'origine----- Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Sub ReInitialisation Dim c as control For each c in Me.Controls If TypeOf c is Textbox then c.Text="" End If Next c End Sub
et tu peux la rendre plus générique en lui passant le formulaire et en
l'écrivant dans un module général.
A+ Eric
"jpg" écrivait news:1725e01c448c0
$1441e500$:
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit
de "date_début_justif", "date_fin_justif", "age_du_capitain
e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute
20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
.
jpg
Merci tout le monde.
J'ai finalement opté pour la réponse ci dessous et j'ai mis un autre tag (remarque) pour mes cases à cocher afin de les mettre à 0 et on pas à Null.
Vraiment tous mes remerciements (il faudra que je me créé une table pour saisir le nombre de fois où vous m'avez sauvé la vie sur ce forum, mais je ne sais pas si ACCESS suffit).
@ +
-----Message d'origine----- Salut,
"Eric"
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Et, s'il en a des autres...utiliser le tag (remarque)
Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "Vider" Then ctl.Value = Null End If Next
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Merci tout le monde.
J'ai finalement opté pour la réponse ci dessous et j'ai
mis un autre tag (remarque) pour mes cases à cocher afin
de les mettre à 0 et on pas à Null.
Vraiment tous mes remerciements (il faudra que je me créé
une table pour saisir le nombre de fois où vous m'avez
sauvé la vie sur ce forum, mais je ne sais pas si ACCESS
suffit).
@ +
-----Message d'origine-----
Salut,
"Eric"
Si tu n'as pas d'autres zones de texte alors cette proc
peut t'interesser
Et, s'il en a des autres...utiliser le tag (remarque)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "Vider" Then
ctl.Value = Null
End If
Next
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
J'ai finalement opté pour la réponse ci dessous et j'ai mis un autre tag (remarque) pour mes cases à cocher afin de les mettre à 0 et on pas à Null.
Vraiment tous mes remerciements (il faudra que je me créé une table pour saisir le nombre de fois où vous m'avez sauvé la vie sur ce forum, mais je ne sais pas si ACCESS suffit).
@ +
-----Message d'origine----- Salut,
"Eric"
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Et, s'il en a des autres...utiliser le tag (remarque)
Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "Vider" Then ctl.Value = Null End If Next
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
Eric
re,
Private Sub Commande10_Click() Dim c As Control For Each c In Me.Controls If TypeOf c Is TextBox And c.Tag = "Vider" Then c.Value = Null ElseIf TypeOf c Is ComboBox Then ' et c.Tag eventuellement c.Value = Null ElseIf TypeOf c Is CheckBox Then ' et c.Tag eventuellement c.Value = 0 ' non coché End If Next c End Sub
Pour chaque contrôle à vider tu mets en Remarque :Vider (Propriétés du controle, Onglet Autres) (Avec l'aimable autorisation de Pierre(3Stone)) ,-)
A+ Eric
"jpg" écrivait news:1745d01c448c6 $123193e0$:
Mille mercis pour vos réponses, mais hélas j'ai plein d'autres zones de texte qui affichent le résultat d'un calcul dès l'ouverture du form.
Et pour tout vous dire (car je vous ai caché la vérité !) j'ai aussi des zones de liste déroulantes et des cases à cocher, que j'aurais aimé réinitialiser (il me plait ce mot) également.
@ +
JPG
-----Message d'origine----- Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Sub ReInitialisation Dim c as control For each c in Me.Controls If TypeOf c is Textbox then c.Text="" End If Next c End Sub
et tu peux la rendre plus générique en lui passant le formulaire et en
l'écrivant dans un module général.
A+ Eric
"jpg" écrivait news:1725e01c448c0
$1441e500$:
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit
de "date_début_justif", "date_fin_justif", "age_du_capitain
e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute
20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
.
.
re,
Private Sub Commande10_Click()
Dim c As Control
For Each c In Me.Controls
If TypeOf c Is TextBox And c.Tag = "Vider" Then
c.Value = Null
ElseIf TypeOf c Is ComboBox Then ' et c.Tag eventuellement
c.Value = Null
ElseIf TypeOf c Is CheckBox Then ' et c.Tag eventuellement
c.Value = 0 ' non coché
End If
Next c
End Sub
Pour chaque contrôle à vider tu mets en Remarque :Vider (Propriétés du
controle, Onglet Autres)
(Avec l'aimable autorisation de Pierre(3Stone)) ,-)
Mille mercis pour vos réponses, mais hélas j'ai plein
d'autres zones de texte qui affichent le résultat d'un
calcul dès l'ouverture du form.
Et pour tout vous dire (car je vous ai caché la vérité !)
j'ai aussi des zones de liste déroulantes et des cases à
cocher, que j'aurais aimé réinitialiser (il me plait ce
mot) également.
@ +
JPG
-----Message d'origine-----
Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc
peut t'interesser
Sub ReInitialisation
Dim c as control
For each c in Me.Controls
If TypeOf c is Textbox then
c.Text=""
End If
Next c
End Sub
et tu peux la rendre plus générique en lui passant le
formulaire et en
Private Sub Commande10_Click() Dim c As Control For Each c In Me.Controls If TypeOf c Is TextBox And c.Tag = "Vider" Then c.Value = Null ElseIf TypeOf c Is ComboBox Then ' et c.Tag eventuellement c.Value = Null ElseIf TypeOf c Is CheckBox Then ' et c.Tag eventuellement c.Value = 0 ' non coché End If Next c End Sub
Pour chaque contrôle à vider tu mets en Remarque :Vider (Propriétés du controle, Onglet Autres) (Avec l'aimable autorisation de Pierre(3Stone)) ,-)
A+ Eric
"jpg" écrivait news:1745d01c448c6 $123193e0$:
Mille mercis pour vos réponses, mais hélas j'ai plein d'autres zones de texte qui affichent le résultat d'un calcul dès l'ouverture du form.
Et pour tout vous dire (car je vous ai caché la vérité !) j'ai aussi des zones de liste déroulantes et des cases à cocher, que j'aurais aimé réinitialiser (il me plait ce mot) également.
@ +
JPG
-----Message d'origine----- Bonjour,
Si tu n'as pas d'autres zones de texte alors cette proc peut t'interesser
Sub ReInitialisation Dim c as control For each c in Me.Controls If TypeOf c is Textbox then c.Text="" End If Next c End Sub
et tu peux la rendre plus générique en lui passant le formulaire et en
l'écrivant dans un module général.
A+ Eric
"jpg" écrivait news:1725e01c448c0
$1441e500$:
Hé hé ! deux réponses et exactement les mêmes !
Cependant dans mon précédent message j'ai pris "texte1", "texte2" comme exemple, car en vrai il s'agit
de "date_début_justif", "date_fin_justif", "age_du_capitain
e", etc...
De plus, j'en suis à 12 zones aujourd'hui, mais sans doute
20 demain !
Etes-vous sûr qu'il n'existe pas une fonction de réinitialisation ?
Est-ce que la fermeture et la réouverture du form ne serait finalement pas une si mauvaise idée que ça ?
Merci beaucoup.
-----Message d'origine----- Salut,
"jpg" ur tout le monde,
J'ai des zones de textes indépendantes dans lesquelles je
saisie des critères afin d'exécuter une requête. J'aimerais pouvoir mettre à blanc toutes ces zones sans avoir à mettre :
