Gérer des formulaires sur access vba

Question

Salut tout le monde, d&#233;butant sur vba j'ai un p'tit probl&#232;me &#224; vous poser:
J'ai 2 formulaires:
Sur le formulaire 1 un champ nombre
Je veux faire un bouton qui ouvre le formulaire 2 et affecte la somme des nombres (Dsum je pense) &#224; un contr&#244;le .
J'ai essay&#233; mais impossible dans la proc&#233;dure du formulaire 1 d'&#233;crire sur un controle d'un autre formulaire (il ne le reconnait pas)??
Comment faire et que me proposez vous????

Merci d'avance

rvblog · Answer

Salut penny, quelle version d'Access, s'il te plait? Comment le formulaire 1 ouvre-t-il le formulaire 2? (Quelle commande ou instruction?) à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Merci de me r&#233;pondre 
Voila ce que je veux faire:
J'explique, j'ai 2 formulaires:
formulaire 1: qui donne les heures (format num&#233;rique) pour chaque article "rcn" et cela pour chaque mois(ex: 200502)
C'est a dire rcn1   200h   200602
                     rcn1   125h   200601  etc...
                     rcn2    144h  200602
                     rcn2     155h  200601   etc....

Dans le formulaire 2, je veux faire un tableau crois&#233; dynamique donnant :
Pour chaque rcn  la somme des heures sur une p&#233;riode de  6 mois donn&#233;es .
Pour l'instant j'arrive a faire la somme des heures mais pas a la sp&#233;cifier a chaque rcn comment faire?? 
Et surtout comment afficher sur ce  formulaire2 
RCN1 avec son total sur 6 mois
RCN2 avec son total sur 6 mois 
etc....

Je me sers de vba pour d&#233;finir mon outil que je veux utiliser a des fins scientifiques c'est le plus pratique et je n'ai qu quelques jours de vba un vrai d&#233;butant.

Merci de me r&#233;pondre .

rvblog · Answer

version Access? c'est important! rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

malheureusement on a que ca c'est pas faisable ou dit moi ce qui l'ai.

Merci

rvblog · Answer

Si c'est faisable, pour l'instant, je n'en sais rien, mais lis sur mes lèvres : Quel est la version de ton Access? : a- Access 97 b- Access 2000 c- Access 2002 (XP) d- Access 2003 e- Access 2006 rvblogn^{Je veux ton bien... et je l'aurais}

rvblog · Answer

Bon, je part du principe que tu as Access 2000 (tant pis si je me trompe) Pour répondre à ta question initiale, comment écrire dans le formulaire 2, dans ton formulaire 1(que j'ai nommé, dans cet exemple, Formulaire1), écris : 'il faut un bouton nommé Commande0, dans le formulaire 1 Private Sub Commande0_Click() Dim varTermes() As Variant Dim strOpenArgs As String 'prépare les valeurs à passer ReDim varTermes(2) varTermes(0) = "txtChamp1=123" varTermes(1) = "txtChamp2=ABC" varTermes(2) = "txtChamp3=" & Now 'concatène la chaine d'arguments strOpenArgs = Join(varTermes, ";") DoCmd.OpenForm "Formulaire2", acNormal, , , acFormEdit, acDialog, strOpenArgs DoCmd.Close acForm, "Formulaire2", acSaveNo End Sub et dans ton formulaire 2 (que j'ai nommé, dans cet exemple, Formulaire2), écris : 'il faut un bouton nommé Commande6, dans le formulaire 2 Private Sub Commande6_Click() With Me .Tag = vbYes .Visible = False End With End Sub 'il faut un bouton nommé Commande7, dans le formulaire 2 Private Sub Commande7_Click() With Me .Tag = vbYes .Visible = False End With End Sub 'il faut 3 champs nommés txtChamp1,txtChamp2,txtChamp3, dans le formulaire 2 Private Sub Form_Load() Dim varTermes As Variant Dim strOpenArgs As String 'récupère la chaine d'arguments strOpenArgs = Me.OpenArgs 'sépare les mots de la chaine varTermes = Split(strOpenArgs, ";") 'mets les valeurs dans les champs Me.txtChamp1.SetFocus Me.txtChamp1.Text = Split(varTermes(0), "=")(1) Me.txtChamp2.SetFocus Me.txtChamp2.Text = Split(varTermes(1), "=")(1) Me.txtChamp3.SetFocus Me.txtChamp3.Text = Split(varTermes(2), "=")(1) End Sub voilà, essayes (copie/colle dans ton code, et vérifie que les évènements sont bien rattachés aux boutons, en regardant dans les propriétés) à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Bonjour!!
Merci pour le code que tu m 'as donn&#233; tr&#233;s utile!!
Mais le gros soucis que j'ai c'est que les donn&#233;es que j'ai sont nombreux : et cela pour chaque "rcn" serait il possible de faire une boucle pour chaque rcn par exemple... 

merci d'avance

penny05 · Answer

Quelques soucis avec le code pr&#233;c&#233;dent d'abord,
sur le-dit form2 les champs que je dois creer qui portent le meme non ("txtchamp1") je les met en mode cr&#233;ation sous une zone de texte et lui affecte le meme nom au niveau de la source ou pas??
ensuite si vous pouvez me renseigner sur la fonction split son fonctionnement car l'erreur que j'ai est "l'indice n'appartient pas &#224; la slection" de quoi peut il s'agir??

thanks!

rvblog · Answer

Non, non, il y a 3 champs txtChamp1, txtChamp2, txtChamp3. ensuite "l'indice n'appartient pas à la sélection" est une erreur qui se doit se déclencher par ce que : - soit tu n'as rien mis dans strOpenArgs dans la procédure Commande0_Click du formulaire 1 : 'prépare les valeurs à passer ReDim varTermes(2) varTermes(0) = "txtChamp1=123" varTermes(1) = "txtChamp2=ABC" varTermes(2) = "txtChamp3=" & Now 'concatène la chaine d'arguments strOpenArgs = Join(varTermes, ";") - soit tu ne passes pas cette chaine lors de l'ouverture du formulaire 2 : DoCmd.OpenForm "Formulaire2", acNormal, , , acFormEdit, acDialog, strOpenArgs - soit c'est à cause de "je ne sais pas encore mais je te propose un petit test", ajoutes la modification en rouge ci-dessous (dans le Form_Load du formulaire 2) : 'sépare les mots de la chaine varTermes = Split(strOpenArgs, ";") msgbox ubound(varTermes ) 'mets les valeurs dans les champs Me.txtChamp1.SetFocus Me.txtChamp1.Text = Split(varTermes(0), "=")(1) et dis-moi ce que te dit la boite quand elle s'ouvre (si jamais elle s'ouvre) à tout de suite, bon, en plus, j'ai regardé ton besoin, et je ne suis pas tout à fait sûr que la solution est adpatée au besoin (mais ça t'aura appris quelque chose). Je t'en dirai plus après. rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

j'ai fais un test en me limitant d'abord a un seul champ et la boite de dialogue m'affiche 0! j'aimerai bien savoir ce que fait cette boite qu'est ce que cela signifie t'il? 

Sur mon probl&#232;me hier j'ai fait grace a tout ca un petit code qui me permet de faire la somme des &#233;lements d'un champ heures sur un crit&#232;re date fix&#233; c'est celui la:
un bouton qui lors du click
Private Sub statsperRCN_Click()
Dim SQL As Double
je copie les donn&#233;es du formulaire 1
Dim rs As Object
Set rs = Me.Recordset.Clone
je fais la somme des heures qui sont >200509

 sommeh = DSum("[SommeDeFiability hours]", "classementideal", (("(classementideal.ann&#233;emois)=" & 200509)))
puis j'ouvre le formulaire 1
 DoCmd.OpenForm "formulaire1", acNormal
     
 End Sub

ensuite dans le formulaire 1 j'ai cr&#233;e un controle:
Private Sub Form_Load()
Me.&#201;tiquette1.Caption = sommeh

End Sub

qui correspond quand je v&#233;rifie.


Mais le hic c'est que ca concerne toutes les valeurs rcn correspondantes


est ce que la boucle for each rcn pourra me permettre de faire ca? et comment? c'est pour cela que je pense que c'est faisable enfin je crois parce que si je veux afficher apr&#233;s pour chaque rcn sur une page diff&#233;rente je sais pas faire....


A plus

rvblog · Answer

Ubound(varTermes) renvoie le plus grand indice du tableau, si c'est un tableau, sinon, il renvoie une erreur (crois-je). Ici, cela corrobore tes spécifications, puisque tu n'a passé qu'un champ dans strOpenArgs (ravi de voir que tu t'appropries l'exemple et que tu le modifies pour comprendre, c'est la bonne démarche!). Tiens, pour ta culture perso, quand tu ne sait pas ce que fait un instruction, tu la double-cliques (pour la surligner), et tu appuies sur la touche [F1], et l'aide t'en dira toujours bien plus que moi. Ensuite, dans l'appel de DSum, tu peux affiner ton critère en utilisant l'opérateur AND : sommeh = DSum("[SommeDeFiability hours]", "classementideal", ( ("(classementideal.annéemois)=" & 200509) AND ( "(classementideal.article) ='rcn1'" ) ) ) bien sûr, pour ce que j'écris fonctionne, il faut que le champ article (de type chaine) existe dans classementideal (requête?), et que la valeur rcn1 existe aussi, à moins qu'il ait un identifiant numérique (ce qui est mieux), genre 1. en ce qui concerne for each, dans l'état des informations que je possède sur ton code, non. Pour ta culture perso des forums, évites de mettre plein de questions dans un seul post, ou même d'enchainer les post avant d'avoir une réponse. On met beaucoup plus de temps à te répondre, et toi, pendant ce temps, tu pars encore plus loin dans tes investigations, et tu reviens avec un wagon de questions. Enfin, ta problématique (qui n'est pas un problème, mais un besoin) n'est pas une problématique insurmontable, même pas rare (je ne cherche pas à blesser ton orgueil), mais si tu ne t'organises pas mieux dans la définition exacte de ton besoin (sans mélanger besoins et solutions envisageables), tu vas te retrouver avec une problématique insurmontable (je ne cherche pas à frimer, mais c'est mon métier, je sais donc de quoi je parle). Ce qui m'étonne le plus dans ton problème est l'ergonomie d'utilisation. Je m'explique : d'ordinaire, on affiche une synthèse, et ensuite, éventuellement, sur spécification de l'utilisateur, les détails. Ce qui, transposé à ton cas, donne : on affiche les sommes regroupées par semestre et par article, et si l'utilisateur clique un semestre, on affiche les détails du semestre, donc regroupés par mois et article. Tu as l'air de faire le contraire. Qu'est-ce qui motive ce choix? Qu'en penses-tu? rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

C'est vrai que c'est pas trop clair. L'utilisation de vba pour mon application m'est venu &#224; l'esprit quand j'ai vu les fonctionnalit&#233;s propos&#233;es. Je veux m'en servir pour faire une analyse de fiabilit&#233; a&#233;ronautique.
Le but final pour moi est de d&#233;tecter tous les &#233;quipements qui posent probl&#232;mes donc dans un premier temps je veux afficher pour chaque article (nomm&#233; rcn) ses chiffres par semestre sachant que je dispose de toutes les donn&#233;es par mois. ensuite je ferai un graphe &#233;volutif pour chaque article, afin d'en voir le comportement. J'espere que tu me comprends.

Je me limite &#224; ca pour l'instant avant de d&#233;velopper plus.

Pour revenir sur vba la fonction dsum calcule en fonction d'un crit&#232;re, et j'ai test&#233; mettre les deux comme tu m'as propos&#233; cependant j'ai une incompatibilit&#233; de type pourtant l'article est num&#233;rique et rcn1 aussi.
Bizarre surtout que quand je fais sommeh DSum("[SommeDeFiability hours]", "classementideal", (RCN) 9) ca marche mais les deux non.
D'ou ma question qu'est ce qu'une incompatibilit&#233; de type?

penny05 · Answer

C'est vrai que c'est pas trop clair. L'utilisation de vba pour mon application m'est venu &#224; l'esprit quand j'ai vu les fonctionnalit&#233;s propos&#233;es. Je veux m'en servir pour faire une analyse de fiabilit&#233; a&#233;ronautique.
Le but final pour moi est de d&#233;tecter tous les &#233;quipements qui posent probl&#232;mes donc dans un premier temps je veux afficher pour chaque article (nomm&#233; rcn) ses chiffres par semestre sachant que je dispose de toutes les donn&#233;es par mois. ensuite je ferai un graphe &#233;volutif pour chaque article, afin d'en voir le comportement. J'espere que tu me comprends.

Je me limite &#224; ca pour l'instant avant de d&#233;velopper plus.

Pour revenir sur vba la fonction dsum calcule en fonction d'un crit&#232;re, et j'ai test&#233; mettre les deux comme tu m'as propos&#233; cependant j'ai une incompatibilit&#233; de type pourtant l'article est num&#233;rique et rcn1 aussi.
Bizarre surtout que quand je fais sommeh DSum("[SommeDeFiability hours]", "classementideal", (RCN) 9) ca marche mais les deux non.
D'ou ma question qu'est ce qu'une incompatibilit&#233; de type?

rvblog · Answer

Dans ce que je t'ai donné, il y a une erreur, il faut écrire : sommeh = DSum("[SommeDeFiability hours]", "classementideal", "annéemois' 200509' AND rcn9") comme tu peux le voir, dans notre cas, il n'est pas nécessaire de préciser le nom du domaine dans les termes de l'expression : (classementideal.annéemois) devient annéemois un mot d'ordre simple, se débarraser des parenthèses inutiles. attention, si tu copies/colles cet exemple, j'ai inséré un retour chariot juste avant le critère (le critère est entouré de guillemets verts), et est composé de 2 expressions : - la première travaille sur des données de type Texte, et, à ce titre, la valeur (à droite du signe égal) doit être entourée d'apostrophes. - la seconde travaille sur des données numériques, et la valeur ne doit pas être entourée de quoi que se soit (si ce n'est des parenthèses, si la valeur est une expression). si on met une valeur de type Texte dans une variable de type numérique, VB essaye automatiquement de la transtyper (on appelle ça "caster", parce qu'en anglais "cast"). si la valeur ne contient que des caractères représentant des chiffres, VB parvient à la transtyper, sinon, une erreur survient et te dit "incompatibilité de type". Ca a l'air simple vu comme ça, mais ça n'est pas toujours le cas, il existe des subtilités qui font qu'on ne voit pas toujours au 1er coup d'oeil qu'on est sur le point de transgresser la loi de la "Compatibilité des Types". Je ne peux pas tous te les citer, j'en connais au moins un 30aine, et au moins autant que je ne connais pas encore! voilà, essaies comme ça. rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Ton avis me serait fort utile parce que sur les deux requetes quand je lance l'un ca marche nickel, l'autre tout seul ca marche aussi sans probl&#232;me. Mais les deux non, un vrai myst&#232;re que j'arrive pas &#224; comprendre:

sommeh = DSum("[SommeDeFiability hours]", "classementideal", "ann&#233;emois >= 200509" ) ok sans pb
sommeh = DSum("[SommeDeFiability hours]", "classementideal", "RCN=9")
sans soucis 
mais les deux non:
sommeh = DSum("[SommeDeFiability hours]", "classementideal", "ann&#233;emois >= 200509" And "RCN=9")

Eclaire ma lanterne c'est le black out total.

penny05 · Answer

CA MARCHE!!! c'est fou 
j'experimente et je tiens au courant!!

rvblog · Answer

D'abord, lis bien ce que j'ai écris, l'argument critères est composé de 2 expressions et est entouré de guillemets : "annéemois >= 200509" And "RCN=9", non "annéemois >= 200509 And RCN=9", oui ensuite, je crois comprendre que le stockage d'annéemois fonctionne, mais à plus ou moins long terme, ça va "partir en cacahuète". Ici, s'il fonctionne, c'est parce qu'il est de type numérique. Mais on n'a jamais vu personne stocker ce genre de données, c'est très barbare. Tu as le choix : - 2 champs de type numérique dans la table, un pour année, et un pour mois - 1 champ de type Date dans la table, mais il te faut une date à stocker (et une vraie date, pas une chaine contenant la représentation littérale d'une date, à cause des problème de format).(la date, c'est vraiment ce qu'il y a de mieux, je ne te dis pas pourquoi, parce que je vais te dire plein d'autres choses, mais il faut me croire) Si tu n'as pas de date à stocker, alors choisis la 1ère solution, et ça te fera un critère tel que suit : "annee > = 2005 And mois>=09 And RCN=9" ah oui, j'oubliait, on ne mets pas d'accent dans les noms d'identificateurs (de tables, de champs, de contrôles, de formulaire,...), Access le tolère, mais très peu d'autres langages, et encore moins d'autres base de données, et comme j'ai cru comprendre que tu réalises une maquette, vaut mieux suivre ce conseil! D'ailleurs, c'est un très bon choix de ta part que de choisir Access pour réaliser une maquette. J'en profites pour te dire que, dans mon domaine professionnel, je rencontre beaucoup de projets qui sont passés par une phase de maquettage (souvent d'ailleurs pour aider à spécifier le besoin, et plus particulièrement dans le domaine scientifique). Malheureusement, le maquettage est parfois long, et il grignote pas mal les budgets alloués (qui ne sont pas, comme beaucoup le croient, extensibles à volonté). Alors un jour, un décideur se penche sur l'avancement du projet, et décide (c'est son métier, et il est très fort dans ce domaine) de mesurer combien a coûté le maquettage, et combien va coûter la réalisation de l'application définitive (démarche très méthodique de sa part, il est vraiment bon!). Le problème est, que quand, dans la maquette, on n'a pas pris le soin de développer méthodiquement (certains diraient proprement), le portage (la récupération) de ce qu'on a maquetté va coûter exessivement cher, car la cible vers laquelle on porte n'est pas aussi tolérante que la source qui nous a permis de maquetter, et il y a beaucoup de corrections à faire, parfois même fonctionnelles. Alors le décideur (encore lui!), malin comme un outil d'aide à la décision, va : - 1./ décider qu'il n'y aura pas de portage. - 2./ décider qu'on va utiliser la maquette finalisée comme une application finale. - 3./ décider que le budget restant va être divisé en 2 (voire moins encore) pour la finalisation, parce qu'il y a forcément moins de boulot (il n'y a pas de portage!). - 4./ décider que les fonctions supplémentaires prévues pour l'application finale, il va falloir les implémenter dans la maquette finalisée (et souvent, la maquette ne sait pas le faire). Alors, l'outil livré (en retard sûrement), ne correspond pas exactement à ce que veulent les utilisateurs, a pleins de problèmes de fonctionnement, est très limité au niveau évolutif (quoi changer l'icone pour avoir un nouvel état, 2 semaines ?!?), et on dira que c'est de la faute des développeurs, et les développeurs n'auront pas d'autre choix que de dire : "C'est encore un bug de Microsoft, on attend le patch", et Microsoft de dire "le produit est trop vieux, il n'y a plus de support!", alors les utilisateurs descendent dans la rue et protestent contre le CPE et la loi contre le téléchargement !! non, j'déconne. je t'ai sûrement saoûlé, mais j'adore que les projets aboutissent (même si ce n'est pas les miens, à part ceux de la concurrence bien sûr :)) rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Non tu m'as surtout pas soul&#233; parce que a long terme si ce que je dois faire marche bien il sera surement d&#233;velopp&#233; pour usage courant dans la compagnie enfin j'espere.

Je d&#233;couvre et c'est vraiment passionnant.
Pour en revenir &#224; mon probl&#232;me maintenant que ca marche pour un article je me suis dit pourquoi pas sp&#233;cifier.
Je m'explique:
j'ai cr&#233;e un modifiable qui filtre les donn&#233;es rcn en cliquant sur un article t'affiche que les heures de cet article (ca marche nickel)
maintenant mon soucis c'est dans l'autre formulaire de faire la somme pour cet article facile je me suis dis je remplace la valeur que je rentrais (rcn=9) par modifiable et le tour est jou&#233;! C'&#233;tait sans compt&#233; sur la tenacit&#233; de VBA!!!
'je nomme myvalrcn cette valeur
dim myvalrcn as string
MyValRCN = CStr(Me![Modifiable45])


sommeh = DSum("[SommeDeFiability hours]", "classementideal", "ann&#233;emois >= 200509 And RCN=MyValRCN")
DoCmd.OpenForm "formulaire1", acNormal

Est ce le string qui d&#233;range?? qu'en penses tu?
j'avais d&#233;fini en string pour le filtre sur le modifiable.

Penny

rvblog · Answer

J'ai toujours été contre les String, c'est vulgaire :) non, sans blaguer. une chaine de caractères constante, est un groupe de caractères entouré de guillemets (le groupe est entouré). Donc : "annéemois >= 200509 And RCN=MyValRCN" est une constante de chaine (et il y a une erreur car MyValRCN n'est pas un nombre (mais une chaine de caractères), alors que RCN attend à être comparée à un nombre). On a le droit de construire une variable de chaine en concaténant plusieurs variables ou plusieurs constantes. Donc : "annéemois > =" & 200509 & " And RCN= " & MyValRCN 'attention aux espaces Là, 200509 est un constante de type numérique, et MyValRCN une variable de type String . Quand on concatène le tout, on a bien une variable de type String, que l'on peut passer en temps qu'argument critère. Par contre, cela ne fonctionne que si tu mets un nombre dans ton champ de saisie (modifiable n'est pas le terme approprié, il existe des listes modifiables...). Pourquoi? Quand tu récupères ce qu'il a dans Me![Modifiable45], tu récupères une valeur de type String, c'est normal. Par contre, tu as intérêt à essayer tout de suite de le mettre dans une variable numérique (de type Integer, Long, Single, Double, Currency...), car si l'utilisateur à écris "ABC" dans le champ de saisie, tu as tout de suite une erreur, tu peux dire à l'utilisateur qu'il faut saisir des chiffres. Sinon, la valeur ira tranquillement jusqu'à ton filtre (critères), et l'erreur ne se déclenchera qu'ici (on appelle ça de la propagation d'erreur, et on lutte contre, car ici, on a que 2 niveaux, mais parfois, il y a de nombreux niveaux avant que l'erreur apparaisse). Donc : Dim lngMyValRCN As Long lngMyValRCN = Clng(Me![Modifiable45]) et : "annéemois >= 200509 And RCN=" & Cstr(lngMyValRCN) à+ rvblogn^{Je veux ton bien... et je l'aurais}

penny05 · Answer

Alors merci pour l'astuce ca marche comme sur des roulettes!
Je vais maintenant faire tous les autres calculs necessaires a mettre sur mon tableau avant de mettre en place le graphique dont je te parlais surement que ton aide me sera indispensable.

A+

Gérer des formulaires sur access vba

21 réponses

Discussions similaires