Profil de cs_observatoire

CREER DYNAMIQUEMENT UN FORMULAIRE

/source/26450-creer-dynamiquement-un-formulaire

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...

Problème d'appel à un module

Bonjour, J'ai réalisé un outil de requête sur Access. En important mon outil sur un autre poste, une fonction, qui marchait très bien sur le mien, ne marche plus. C'est une fonction que j'appelle à partir du module de classe de mon formulaire et qui est contenue dans un module : dans le module du formulaire : CodeSQL = "Select calcul... Lire la suite

Alors pour être claire : ta solution ne marche pas, vu qu'en extrayant "calcul(Table1.Geo)" du code sql, il ne peut pas identifier "Table1.Geo" qui n'existe que dans le code SQL. Et c'est exactement pareil si on met une variable externe au code Sql: Var = calcul(Table1.Geo) CodeSQL = "Select " & Var & " as Cal FROM Table1 GROUP BY ca...

Pour Info, je viens de tester texto: dans le module de classe de mon formulaire Private Sub bouton_Click() Dim db As Database Set db = CurrentDb Dim matab As QueryDef QrySuppr ("toto") totosql = "SELECT calcul(Table1.Geo) as Cal FROM Table1 GROUP BY calcul(Table1.Geo);" Set matab = db.CreateQueryDef("toto", totosql) DoCmd.Ope...

correction : CodeSQL = "Select calcul(var1)As Calcul From Table In Base;" Effectivement je penses que ta proposition doit marcher... mais ce que je ne comprends pas, c'est que ma technique marche tout à fait sur mon PC, même sur un deuxième, mais pas sur un troisième, sachant qu'ils ont tous des versions identiques d'Access... ça m'a...

[VBA Access] Fonction à intégrer dans une requête SQL Résolu

Bonjour, Dans mon générateur de requête, je souhaite faire intervenir une fonction mathématique que j'ai créé dans le programme (ou plutôt que j'ai repris à partir d'un code du site : c'est le khi-deux). Pour des fonction existantes dans Access pas de problème : MonSql = " Select ABS(Var1), Var2 From Table " Mais là, ma fonction Ch... Lire la suite

J'avais juste oublié un bout de la formule (la déclaration d'une constante) en la déplaçant dans le module, mais ça marche! Merci

Bon ben là j'avoue que bon ben c'est peut-être un peu plus clair... enfin j'sais pas enfin peut-être (cf. le film "Nos jours heureux", mais là c'est un peu hors sujet)

j'avoue que je maîtrise assez mal tout ce qui sort des objets form ou tout ce qui concerne les "public" et "private". si vous pouviez m'expliquer un peu... ça a l'air d'être en bonne voie, mais le programme bute sur un morceau du calcul, et j'ai peur de ne être à la hauteur!

par contre quand je fais : Sqltab3 = "SELECT tab2.khi2, " & Chi2(tab2.khi2,1) & " as ValeurP FROM (" & Sqltab2 & ") AS tab2 " il reconnaît bien ma fonction chi2, mais plus tab2.khi2

Et bien pour moi ça ne marche toujours pas. On me dit "Fonction 'Chi2' non définie dans l'expression" ...? Mon code est plus précisément sous la forme de requêtes imbriquées :Sqltab2 "SELECT tab1.var1 as khi2 FROM (" & Sqltab1 & ") AS tab1" Sqltab3 = "SELECT tab2.khi2, Chi2(tab2.khi2,1) as ValeurP FROM (" & Sqltab2 & ") AS tab2 ...

sauf que je ne veux pas identifier un nom de colonne avec ma formule, je pourrais très bien mettre un alias (MonSql = " Select Chi2(Var1,1) as Alias, Var2 From Table ") ce que je veux c'est créer une colonne qui me calcule à partir de la Var1 (comme paramètre) le Chi2()

les guillemets dans un code SQL Résolu

Bonjour, Je suis sur un formulaire Access, et je code du SQL en VBA. Mon problème c'est que j'intègre dans un code le nom d'une commune qui peut prendre une apostrophe, ce qui chamboule l'équilibre des guillemets/apostrophes du code. Je ne sais pas s'il est possible de remplacer un système de guillemets/apostrophes par un autre... txt... Lire la suite

OK et Merci de tout votre engouement! Mais je retiendrais plutôt la solution de BasicInstinct qui marche plutôt pas mal et m'évite de changer la forme de mon texte. Pour info je connaissais déjà un peu "replace", donc c'était pas la peine de se chamailler pour si peu. J'avais un peu pensé à remplacer ' par " par une autre méthode mais ç...

[VBA Access] groupe d'option ou de cases à cocher

Bonjour, Je souhaite définir si mon groupe d'option est activé (au moins une option cochée) ou non (aucune option cochée, avec les cases en grisé). Merci

Ok Je ne veux pas te froisser! Mais j'ai bien recopié ton code, en changeant uniquement "Frame1", et sur la ligne "If ctl.Value = True Or ctl.Value = Null Then" il me met le message "Expression sans paramètre". Je te jure ce n'est pas de la mauvaise volonté! Une autre fois, je ne sais plus avec quelle combinaison, il me mettait effectiv...

apparement c'est parce que je suis dans un groupe d'option que "ctl.value" ne doit pas marcher...

désolée, ça n'a pas trop l'air de marcher : je ne suis pas sûre (en tout cas vu que je suis sur VBA Access) que ctl.value soit possible. D'autre part, "Null" c'est bien pour le cas où aucune option n'est cochée? Dans ce cas, d'après ton programme je ne peux pas différencier "aucune option cochée" et "au moins une option cochée" @+

[VBA Access] ListBox

Bonjour, je souhaite récupérer dans mon code les mots sélectionnés par les utilisateurs, dans ma ListBox, mais ma solution habituelle pour les ComboBox : Modifiable.Setfocus MonTxt=Modifiable.Text ou MonTxt=Modifiable.Value ne semble pas marcher. Merci Lire la suite

ça c'est pour le cas ou je peux sélectionner plusieurs mots en même temps? Je souhaite simplement sélectionner un mot! J'ai remarqué depuis tout à l'heure, qu'en fait List.value marche bien certaines fois, mais apparament, ça pose problème d'autres fois : Dans ma condition : If (List1.Value "Nom1") Or (List1.Value "Nom2") Or (Li...

jointure de tables : SELECT DISTINCT Résolu

Bonjour, je créé une interface utilisateur, depuis déjà un moment, qui créé des requêtes SQL, et je me rend compte seulement maintenant que j'ai des résultats abérants : lorsque que je fais un compte sur une variable il me multiplie le nombre de lignes de ma 1re table par le nombre de lignes de la table jointe. J'ai entendu parler d'une ... Lire la suite

Votes

Bonjour, Pour répondre à ta question Moustachu, ça reviendrait effectivement presque au même de mettre ce qui est dans le HAVING dans le WHERE, seulement je veux afficher toutes les variables de critère dans ma requête. Et je tiens à préciser que ce n'est pas du tout le "INNER JOIN" qui est en cause, du coup le remplacer par "WHERE" ne...

Automatiser la récupération d'une zone de liste

Bonjour, Je suis sur VBA Access et j'ai la ligne de commande suivante:If Modifiable11.Visible True And Modifiable11.Enabled True Then 'si la zone de liste et visible et active Modifiable11.SetFocus 'alors j'y active le focus d11 = Modifiable11.text ... Lire la suite

Option Compare Database Public i As Integer Public d(70) As String 'par contre il veut bien reconnaître Public d as string, sauf dans la suite du code biensûr... ... Public Sub RecupText() For Each Control In Controls If Left(Control.Name, 10) = "Modifiable" Then If Control.Visible True And ...

ok, mais là il me mets le message, que j'ai déjà eu plusieurs fois quand je voulais définir une variable pour tout le code: "l'expression sur Ouverture nentrée comme paramètre de le propriété de type événement est à l'origine d'une erreur. Des constantes, chaînes de longueur fixe, tableaux, types définis par l'utilisateur et instructions...

Justement j'avais bien essayé ça, mais ça n'a pas l'air de marcher : le "nom_procedure" renvoie bien à la procédure, mais les d(..) reviennent à zéro quand je suis dans mon autre procédure.

Bon j'ai remplacé d21 par d(21) dans tout le code et ça a l'air de marcher. Sinon comment puis-je définir cette ligne de commande dans un "sub", "function" ou "private sub"... (je ne sais pas) indépendant pour pouvoir l'intégrer à plusieurs "sub" ou "private sub" tout au long du code, sans avoir à copier toute la ligne de commande à chaqu...