Profil de cs_Talere - CodeS SourceS

ACCES AVEC SOUS FORMULAIRE

/source/44721-acces-avec-sous-formulaire

L'origine du bug est expliqué dans un post du forum : http://www.vbfrance.com/infomsg_PROBLEME-AVEC-SETFOCUS-SOUS-ACCESS-2003_1034451.aspx#12 le controle ActiveX est bien Treeview et les fonctions estchome() et jourferié() ne pose aucun problème pour l'instant (j'ai juste oublié de les enveler pour la version que j'ai mis à disposit...

UNLOAD SUR PAINT, COMBOBOX, HSCROLLBAR, VSCROLLBAR, PICTURE BOX...

/source/22537-unload-sur-paint-combobox-hscrollbar-vscrollbar-picture-box

Ca marche très bien sous vb6 : Initialisation de timer1 : Timer1.Enabled=false Timer1.Interval=1 le reste est sans importance ... Au lieu d'écrire : Private Sub Combo1_Click() Unload Text1(1) End il faut écrire Private Sub Combo1_Click() Timer1.enabled=true End Private Sub Timer1_Timer() Timer1.enabled=fal...

TEXTBOX NUMÉRIQUE (LE + SIMPLE) VERSION AMÉLIORÉ AVEC BACKSPACE QUI FONCTIONNE

/source/2555-textbox-numerique-le-simple-version-ameliore-avec-backspace-qui-fonctionne

Je peux te suggérer cette solution qui, en plus permet de gérer le séparateur décimale : Private Sub Limite_CMJ_BDL_KeyPress(KeyAscii As Integer) separateur = Mid$(Format$(0, "0.0"), 2, 1) If Chr(KeyAscii) "." And separateur "." Then KeyAscii Asc(separateur) If Chr(KeyAscii) "," And separateur "," Then KeyAscii Asc(separateur) 'l...

Problème avec SetFocus sous Access 2003

Bonjour, Voila, j'ai un soucis avec "SetFocus" dans Access car une erreur intervient lorsque j'essaie de donner le focus à un controle d'un sous formulaire ... j'ai essayé pas mal de chose, mais rien n'y fait, j'ai toujours l'erreur 2455 ("La référence d'une expression à la propriété Form/Report n'est pas valide.") : Données de dépa... Lire la suite

Oula, c'est un vieux sujet ... plus de 5 ans ! Depuis je suis passé sous office 2010, et les sécurités sont bien plus drastiques ! je n'arrive même pas à ouvrir la BDD ... Je vais voir ce que je peux faire ... TALERE

Je te remercie quand même d'avoir tenté quelque chose .. c'est déjà ça ! A bientôt, TALERE

As-tu une référence manquante ? J'ai vérifié, et de mon coté, il s'ouvre sans problèmes ... TALERE

Est-ce que tu peux l'ouvrir en mode création ? Sinon, la particularité du formulaire Gestion contact est qu'il utilise un controle ActiveX appelé TreeView de la bibliothèque "MSComctlLib" (fichier MSCOMCTL.OCX / Microsoft Windows Common Controls 6.0 ). Si tu n'as pas cette ligne référencé, il se peut que tu ai des problèmes (Dans VBA ...

J'ai mis le zip de ma base dans la source suivante ... je ne savais pas comment faire autrement .. je la supprimerais dès que tu l'auras récupéré ...http://www.vbfrance.com/codes/ACCES-AVEC-SOUS-FORMULAIRE_44721.aspx A plus tard ... TALERE

Pas évident de contourner ce problème .. d'autant plus que le fonctionnement pas à pas ne semble pas bien fonctionner (erreurs sur des lignes qui n'en pose pas lorsque les actions sont faites dans la foulée) Toujours est-il que le problème semble venir du fait que mon sous formulaire perd le lien vers ses contrôles. En effet, certaines...

Merci pour ta réponse ... elle m'a effectivement en partie résolu mon problème, du moins, elle m'a permis de trouver l'origine de ce qui doit-être un bug ... je m'explique : Dans mon formulaire, sur la partie gauche, j'ai mis une arborescence style explorateur Windows ou figure la liste des société, chacune ayant plusieurs sites et cha...

Transposé d'un tableau Résolu

Bonjour, Je suis à la recherche d'une focntion rapide me permettant d'executer la transposé d'une matrice de valeurs. Le contexte est le suivant : - Via ADODB et Access, je récupère un recordset pré formaté que je souhaiterais mettre tel quel dans une feuille Excel. Le code est le suivant (je l'ai simplifié) : With RS .... Lire la suite

Votes

C'est bon ... en fait la fonction de transposition est très rapide : Private Function Transpose(matrice As Variant) As Variant Dim Mat_Temp() As Variant Dim i, j As Long ReDim Mat_Temp(LBound(matrice, 2) To UBound(matrice, 2), LBound(matrice, 1) To UBound(matrice, 1)) For i = LBound(matrice, 2) To UBound(matrice, 2) For j = LB...

Excel -> "Serveur occupé" Résolu

Bonjour, J'ai un soucis avec une application qui utilise Excel comme interface de paramétrage. L'application est SIMAN ARENA (un logiciel de simulation de flux). Le problème est que, quand ça lui chante, l'application ne parvient plus à traiter les infos d'excel. Le message "serveur occupé" apparait -> Je clique sur "basculez vers", ma... Lire la suite

Votes

Contrairement à ce que tu peux croire, Arena est LE logiciel de prédilection dans la modélisation numérique d'atelier (www.arenasimulation.com). Toujours est-il que j'ai simplifié mon code au maximum et ça a l'air de mieux marcher. Je ne sais pas si c'est lié, mais je lancais 2 macro Excel à la suite via Excel.application.run("MaMacro") ...

A priori, malgré la possibilité de faire ce que je veux avec Excel, il utilise 100% des ressources CPU... J'ai comme l'impression qu'une routine s'execute dans Excel, sans jamais redonner la main à une appli externe. Personnellement, je connais pas les créateurs d'Excel ( ni d'Arena ) ... tant pis. TALERE

Evenement ImageCombo non désiré Résolu

Bonjour, J'utilise des imageCombo dans mon appli, et lorsque j'execute le code pas à pas, tout va bien. Le problème intervient lorsque j'execute rapidement le même code où un evenement intervient dans mon ImageCombo ... seulement, j'arrive pas à savoir lequel. Code d'origine : (Choix_Site est mon ImageCombo) Choix_Site.Text =... Lire la suite

et donc elle n'est pas accessible à une autre procédure ... c'est quand même pratique ... cela veut dire que je peux avoir le même nom de variable dans plusieurs procédures sans que cela interagisse ? Si c'est le cas, ca va carrément m'arranger ...

Voila ce que j'ai fait, et ca marche ... Private Sub Choix_Site_Change() Static alerte_Site As Boolean If alerte_Site Then Exit Sub alerte_Site = True Dim mon_choix As ComboItem For Each mon_choix In Choix_Site.ComboItems If LCase(mon_choix.Text) = LCase(Choix_Site.Text) Then Set Choix_Site.SelectedItem = mon_choix ...

J'ai oublié de dire qu'il fallait aussi rajouté un DoEvents après Set Choix_Site.SelectedItem = mon_choix car l'évenament ne se produisait qu'à la fin de la procédure ( et donc le flag etait redevenu faux)

C'est bon, en déclarant en Static, dans la procédure, ça a marché ... Je vois désormais la différence entre static et public dim. Encore merci ... TALERE

il est declaré en tout debut de mon code ma feuille de la manière suivante : Dim alerte_choix(1) As Boolean J'ai mis une dimension car j'ai deux imagecombo dans mon formulaire (plutot que d'utiliser deux noms ...) Faut-il que je l'a déclare dans un module, ou est-ce que static dans ma feuille suffira ? je vois pas la différence entre ...

Index enregistrement

Bonjour, Je ne sais pas si c'est possible, mais je souhaiterais savoir si il est possible de connaitre la position relative d'un enregistrement dans le contexte suivant : - J'ai deux tables : "Groupe" et "Individu" - Mes deux tables sont liées par une relation de 1 à N. voici mes enregistrements (ordonnés grâce à un champ bi... Lire la suite

C'est effectivement ce que j'ai fait, mais la solution est plutot lourde en termes de manipulation de données. Le WE aidant, je pense que je vais créer une requete qui me rentre en dur la valeur de la position dans la table. Je lancerais cette requette au début de chacune de mes manipulations. TALERE

J'ai également essayé de me créer une fonction VB qui rappelle le numéro d'enregistrement lors de l'éxécution d'une requete, mais cela ne marche pas non plus (disons que mes connaissances à ce sujet sont très light). Pour l'instant, j'arrive bien à retrouver sur quelle requete je travaille (CurrentObjectName), mais ça s'arrête là ( il ...