Profil de js8bleu - CodeS SourceS

Contenu d'inputbox en sous forme *

Bonjour, je souhaiterai savoir s'il est possible que ce qui est saisi dans un inputbox apparaissent sous forme * s'il vous plaît? Merci d'avance. --

Bonjour à tous et Merci pour vos réponses. en fait, je voulais éviter cette solution car j'aimerai instaurer la suppression de données par la confirmation par mot de passe. Et comme j'ai près d'une cinquantaine de formulaires. S'il faut que je fasse un formulaire de confirmation de suppression par formulaire, ça risque d'être chaud. ...

Savoir si un objet existe dans mon formulaire. [Résolu]

Bonjour à tous, j'aimerai savoir comme faire pour savoir si le bouton nommé "cmdapercu" (par exemple) existe dans mon formulaire. Il s'agit d'une fonction que j'ai créé dans un module et que je souhaiterai appeler pour gérer les droits d'accès au lieu d'avoir une fonction par formulaire. Le problème est qu'il y a des formulaires qui n'... Lire la suite

Bonjour bigfish_le vrai et Merci pour ton aide. ça marche nickel . Merci pour tout et prends bien soin de toi. Cordialement.

Between avec date format français et format anglais avec SQL Server [Résolu]

Bonjour à tous, j'utilise VB6 et j'ai installé SQL Server Express R2 en français. Tout s'est bien passé. Cependant les dates sont au format anglais alors que le SQL Server que j'ai installé est en français. Du coup, j'ai des problèmes avec les dates car à partir de l'interface de mon application les dates sont en français alors que dan... Lire la suite

Bonjour à tous et Merci pour votre intérêt et votre compréhension. J'ai pu résoudre mon problème grâce à cette requête : SELECT * FROM tfichesuivi F, ttypesortievehicule T, temploye E, tvehicule V WHERE F.numtypesortievehicule = T.numtypesortievehicule AND F.numemploye E.numemploye AND F.numvehicule V.numvehicule AND datefichesui...

Bonjour Calade et Merci pour ton intérêt. Lorsque je reprends ma requête (donc sans les quotes) comme tu l'as si bien dis, il y a une erreur. Quant à la conversion par la fonction Convert. C'est bien ce que j'ai essayé de faire dans mon premier message. C'est ma première application sous SQL Server donc mes premières requêtes, franchement...

Problème format date avec between et vb

Bonjour triè_yann et désolé pour ce double post mais si tu as bien fait attention. J'ai lancé le post sur les deux forums à 1 minutes d'intervalles. Désolé. Cordialement.

Installer VB6 et VB2010 sur le même pc [Résolu]

Bonjour à tous, j'utilise vb6 et je souhaiterai apprendre vb.net, cependant j'ai peur d'installer vb.net sur mon pc et du coup perdre mon vb6. Est-il donc possible d'avoir vb6 et vb2010 sur le même pc s'il vous plaît? Merci d'avance. Cordialement.

Super Merci beaucoup casy pour ton aide et ta rapidité. Ciao.

Empêcher utilisation de clé usb sans désactivation (dongle)

Bonjour, est-ce qu'il est possible (par code) d'empêcher une clé usb dont on a le numéro de série de s'afficher (sans désactiver l'utilisation des clés usb) dans le poste de travail et ne pas avoir accès à cette clé usb par tous les moyens (exemple des dongles)? Merci d'avance. Cordialement.

Bonjour ucfoutu et EhJoe et Merci pour votre intérêt. Mon logiciel est censé gérer la caisse, la comptabilité, les recouvrements, l'audit, les dossiers des patients, les consultations, les examens de laboratoires, etc. d'une clinique. Merci d'avance pour vos conseils.

Bonjour ucfoutu et Merci pour tous ces détails. J'aimerai tout simplement protéger grâce à un dongle une application que je souhaiterai commercialiser. Aurais-tu d'autres suggestions afin que je puisse sécuriser mon appli s'il te plaît? Merci d'avance.

Taper la touche "Entrée" pour revenir à la ligne dans un textbox [Résolu]

Bonjour, j'ai un textbox (txtdiagnostic) dans lequel je souhaiterai que les utilisateurs saisissent de la manière suivante : - PC pentium II - Windows XP - Office 2003 - ... ainsi de suite. Pour cela je souhaiterai que par exemple dans l'exemple ci-dessus que lorsque le technicien aura saisi - PC pentium II qu'il tape sur la t... Lire la suite

Bonjour ucfoutu et mjpmjp et Merci pour votre intérêt. ucfoutu, je suis vraiment désolé de n'avoir pas pensé à chercher du côté des propriétés du contrôle. Sinon, effectivement la propriété multiline fait exactement ce que je souhaite . Merci pour l'aide et prenez bien soin de vous. Ciao.

Convertir le contenu d'un label [Résolu]

Bonjour, je calcule automatiquement le total (lbltotal) du prix (txtprix) d'un produit par la quantité désirée (txtqte). Dans l'évènement Change de mon lbltotal j'ai mis le code suivant pour avoir le montant avec un séparateur de millier : lbltotal.Caption = Format(Val(lbltotal.Caption), "### ### ##0") Mon problème est que je sou... Lire la suite

Bonjour ucfoutu et acive et Merci pour votre aide. Je vous prie de bien vouloir m'excuser car effectivement le code marche, c'est tout simplement moi qui me suis trompé dans ma formule de réutilisation de lbltotal. Je suis sincèrement confus et désolé. Excellente après-midi et prenez bien soin de vous. Cordialement.

Fonction pour colorier un flexgrid [Résolu]

Bonjour, j'ai vu un code (qui consiste à intercaler le coloriage d'un flexgrid) que je souhaiterai transformer en fonction que je pourrai appeler pour n'importe quel formulaire pour n'importe quel flexgrid. Voici ce que j'ai fait (dans un module) : Public Sub colorierflexgrid(formulaire As Form, msf As MSFlexGrid) Dim k As Inte... Lire la suite

Heu, désolé je pense que je me suis un peu précipité car ton code ne me permet pas de colorier les lignes par deux. Voici le bon code (enfin, celui qui me permet de faire ce que je souhaite). Public Sub colorierflexgrid(msf As MSFlexGrid) Dim k As Integer Dim T As Integer For k = 1 To msf.Rows - 1 Step 2 ...

Bonjour Renfield et Merci pour ton aide. Ton code marche correctement . C'est exactement le résultat que je voulais. Merci pour tout et excellente journée.

Problème clic sur listview

Bonjour, je suis entrain de me lancer sur les listview à travers un code que j'ai téléchargé sur ce site. Pas de problème pour l'affichage : Dim rstypedepense As New ADODB.Recordset rstypedepense.Open "select * from ttypedepense", cn, adOpenDynamic, adLockOptimistic 'Pour affichage du résultat ds la liste Di... Lire la suite

Bonsoir banana32 et Merci pour ton intérêt. Oui, le nombre de colonne est suffisant car je n'ai que 3 colonnes dans ma tables et ce sont ces trois colonnes qui s'affichent.

Run-time error '339'

Bonjour, j'ai créé un exe d'un de mes logiciels (fait en VB6.0). Je l'ai collé sur un Windows Seven mais lorsque je l'ai exécuté il m'affiché l'erreur suivante : "Run-time error '339' Component 'MSFLXGRD.OCX' or one of its dependencies not correctly registered:a file is missing or invalid". Quelqu'un pourrait-il m'indiquer comme... Lire la suite

J'utilise Windows 7 Edition Starter

Bonjour, j'ai désactivé l'UAC, il ne m'affiche plus l'erreur "339" mais toujours impossible d'installer VB6.0 Je précise qu'il s'agit de Visual Basic 6.0 Edition Entreprise. Ce qui est bizarre c'est que lorsque j'exécute le setup il m'affiche directement la fenêtre d'installations des composants serveur au lieu de me proposer l'install...

Mon label refuse de se mettre à 0! [Résolu]

Bonjour, je souhaiterai mettre mon label lblmontanttotal à 0. lblmontanttotal.caption 0 ne marche pas lblmontanttotal.caption "0" ne marche pas non plus. Il me met plutôt lblmontanttotal à vide. Savez-vous pourquoi s'il vous plaît? Merci d'avance. Cordialement.

MERCI MERCI MERCI ucfoutu . ça marche comme sur des roulettes . C'est super cool. Encore Merci. Excellente journée et prends bien soin de toi.

J'ai trouvé. Il suffit de mettre le code suivant dans l'évènement Change de lblmontanttotal : If lblmontanttotal.Caption "0" Then lblmontanttotal.Caption = Format(lblmontanttotal, "### ### ###") End If Merci pour tout. Cordialement.

Bonjour ucfoutu et Merci pour ton intérêt. J'ai vu où se trouvait le problème. En fait il vient de l'évènement Change() de mon label dans lequel j'ai mis le code suivant : lblmontanttotal.Caption = Format(lblmontanttotal, "### ### ###") Si je le mets en commentaire tout marche, pourtant j'aimerai bien séparer les milliers dans ce ch...

Ecran Patientez

Bonjour, j'ai une feuille MDI avec pleins de petites feuilles filles. Certaines font des traitements assez lourds et je souhaiterai faire un écran (certainement un formulaire) avec le message "Veuillez patientez pendant le traitement de l'opération s'il vous plaît" pendant que le formulaire traite les données. Je souhaiterai donc que l... Lire la suite

Bonjour NHenry et Merci pour ton intérêt et ta rapidité d'intervention. OK pour tout ce que tu as dis mais par contre comment dois-je procéder pour bloquer toutes les actions utilisateurs s'il te plaît? Merci d'avance. Cordialement.

Séparateur de milliers efficace!

Bonjour, je souhaiterai avoir des chiffres avec séparateur de millier dans un textbox. C'est-à dire que lorsque je saisi 15000000 qu'il m'affiche 15 000 000. Voici le code qui est dans l'évènement Change de mon textbox : txtmontantcheque.Text = Format(txtmontantcheque, "### ### ###") txtmontantcheque.SelStart = Len(txtmonta... Lire la suite

Merci encore une fois ucfoutu pour tes conseils. Ciao .