belkassa
Messages postés2Date d'inscriptionsamedi 14 octobre 2006StatutMembreDernière intervention29 octobre 2011 29 oct. 2011 à 14:52
merci
drari
Messages postés14Date d'inscriptionjeudi 16 mars 2006StatutMembreDernière intervention31 mai 2006 3 mai 2007 à 17:36
Autres remarque le count des fields en VBA n'est pas le même que celui des controles
Les controles commencent bien à 1 d'ou le i = 1
par contre dans un recordset (rst) le count commence à 0 donc i-1 dans ce cas-ci
controle(i).Name = "TXT_" & rst.Fields(i-1).Name
drari
Messages postés14Date d'inscriptionjeudi 16 mars 2006StatutMembreDernière intervention31 mai 2006 3 mai 2007 à 17:28
Petites incoherences dans le code
il faut insérer l'égalité aussi sinon il manquera toujours un champs au formulaire
While i <= rst.Fields.Count
cs_observatoire
Messages postés75Date d'inscriptionvendredi 10 mars 2006StatutMembreDernière intervention23 août 2006 3 mai 2006 à 10:27
Bonjour,
Je crée une interface utilisateur sur VBA Access et je souhaite dans un formulaire (Form1)créer un sous-formulaire (Form2) affichant les données d'une requête. Je me suis servie de ce code pour créer le sous-formulaire, et ça marche plutôt bien, avec quelques modifications :
' --suppression de tous les contrôles avant de les créer de nouveau
boucle:
i = 0
For Each ctl In Forms!F_AFFICHAGE.Controls
i = 1
DeleteControl "F_AFFICHAGE", ctl.Name
Next ctl
While i = 1
GoTo boucle:
Wend
ET
' --nous ne pensons pas que vous aurez plus de 100 contrôles
Dim controle(0 To 100) As Control
J'ai juste un petit problème: avec ce code, mon sous-formulaire (Form2) serait défini par défaut en mode création (je n'ai pas identifié le pourquoi du comment!) ce qui empêche donc l'ouverture du formulaire (Form1) en mode formulaire.
Si vous savez comment régler ce problème...
à bientôt
cs_cotmar
Messages postés71Date d'inscriptionvendredi 13 septembre 2002StatutMembreDernière intervention 9 mars 2009 18 mai 2005 à 11:08
Salut amigos,
Ce code est une vraie aubaine.
J'ai eu la même difficulté que la personne précédente en fait.
Sinon, j'aimerais savoir comment créer objets (différents des texbox) qui soient en fonction des types de valeurs qu'il charge de la base (par exemple une checkbox si il trouve du bouléen...).
J'ai peut être un début de solution, mais c'est pas tellement satisfaisant à ce qu'il me semble.
Qu'en dites vous ?
A bientôt.
Marco.
cs_trymeup
Messages postés6Date d'inscriptionsamedi 3 mai 2003StatutMembreDernière intervention 9 novembre 2004 8 nov. 2004 à 15:09
Merci bcp pour ce code qui m'a bien aidé dans le developpement d'un projet sur access. Toutefois, j'ai eu qq petits soucis avec l'effacement préalable des controles dans le formulaire. En effet, la fonction "ctl.DeleteControl "F_AFFICHAGE", ctl.Name
" ne fonctionnais pas chez moi. De plus l'effacement d'un controle dans la boucle for each, fait "sauter" Access d'un controle, d'où un controle sur deux effacé. J'ai posté mes solutions dans le topic suivant :
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 29 sept. 2004 à 14:15
je suis d'accord, c'est du VBA et non fichier/disque
cs_dragon
Messages postés2336Date d'inscriptionsamedi 14 juillet 2001StatutMembreDernière intervention 5 mai 20096 29 sept. 2004 à 14:14
justement ce qu'il va me faloir dans 1 ou 2 mois pour mon projet a ma job.
Faudra juste améliorer un peu et le convertir en .Net, mais bon, la base est la
faudrais pouvoir personnaliser un peut (logo et mise en forme personnaliser, qui sera constante pour tout les formulaire)
en plus faudrais faire des catégories ou regroupement de donnée. Mais bon, dès que je serai rendu la, je vais le faire, a moins que ton projet est pas fini et que c'était dans tes intention de continuer ton créateur de formulaire
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 28 sept. 2004 à 12:57
C'est un peu ça qui m'a perturbé, au départ je savais plus trop de quoi il était question dans le code...
Inekman
Messages postés291Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention30 juin 2006 28 sept. 2004 à 12:18
le "DoCmd", c'est bien dans Access que je le trouve.
Dans Visual Basic 6 j'ai jamais eu l'occasion de l'utiliser et je l'ai jamais vu non plus d'ailleurs :-)
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 27 sept. 2004 à 22:22
Enfin sans vouloir t'offenser ni quoi que ce soit, mais en voyant comme ça on a tendance à croire que c'est du VB tout court et bon...
Enfin c'est comme tu veux
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 27 sept. 2004 à 22:21
29 oct. 2011 à 14:52
3 mai 2007 à 17:36
Les controles commencent bien à 1 d'ou le i = 1
par contre dans un recordset (rst) le count commence à 0 donc i-1 dans ce cas-ci
controle(i).Name = "TXT_" & rst.Fields(i-1).Name
3 mai 2007 à 17:28
il faut insérer l'égalité aussi sinon il manquera toujours un champs au formulaire
While i <= rst.Fields.Count
3 mai 2006 à 10:27
Je crée une interface utilisateur sur VBA Access et je souhaite dans un formulaire (Form1)créer un sous-formulaire (Form2) affichant les données d'une requête. Je me suis servie de ce code pour créer le sous-formulaire, et ça marche plutôt bien, avec quelques modifications :
' --suppression de tous les contrôles avant de les créer de nouveau
boucle:
i = 0
For Each ctl In Forms!F_AFFICHAGE.Controls
i = 1
DeleteControl "F_AFFICHAGE", ctl.Name
Next ctl
While i = 1
GoTo boucle:
Wend
ET
' --nous ne pensons pas que vous aurez plus de 100 contrôles
Dim controle(0 To 100) As Control
J'ai juste un petit problème: avec ce code, mon sous-formulaire (Form2) serait défini par défaut en mode création (je n'ai pas identifié le pourquoi du comment!) ce qui empêche donc l'ouverture du formulaire (Form1) en mode formulaire.
Si vous savez comment régler ce problème...
à bientôt
18 mai 2005 à 11:08
Ce code est une vraie aubaine.
J'ai eu la même difficulté que la personne précédente en fait.
Sinon, j'aimerais savoir comment créer objets (différents des texbox) qui soient en fonction des types de valeurs qu'il charge de la base (par exemple une checkbox si il trouve du bouléen...).
J'ai peut être un début de solution, mais c'est pas tellement satisfaisant à ce qu'il me semble.
Qu'en dites vous ?
A bientôt.
Marco.
8 nov. 2004 à 15:09
" ne fonctionnais pas chez moi. De plus l'effacement d'un controle dans la boucle for each, fait "sauter" Access d'un controle, d'où un controle sur deux effacé. J'ai posté mes solutions dans le topic suivant :
http://www.vbfrance.com/forum.v2.aspx?ID=328430
Salutations
29 sept. 2004 à 14:15
29 sept. 2004 à 14:14
Faudra juste améliorer un peu et le convertir en .Net, mais bon, la base est la
faudrais pouvoir personnaliser un peut (logo et mise en forme personnaliser, qui sera constante pour tout les formulaire)
en plus faudrais faire des catégories ou regroupement de donnée. Mais bon, dès que je serai rendu la, je vais le faire, a moins que ton projet est pas fini et que c'était dans tes intention de continuer ton créateur de formulaire
28 sept. 2004 à 12:57
28 sept. 2004 à 12:18
Dans Visual Basic 6 j'ai jamais eu l'occasion de l'utiliser et je l'ai jamais vu non plus d'ailleurs :-)
27 sept. 2004 à 22:22
Enfin c'est comme tu veux
27 sept. 2004 à 22:21