Trousse à pharmacie

Soyez le premier à donner votre avis sur cette source.

Vue 6 411 fois - Téléchargée 1 155 fois

Description

Ce programme permet de répertorier les médicaments de notre pharmacie dans une listview selon leur nom, leur forme utilisable, leur date de péremption et la discipline. S'ils sont périmés, ils apparaissent en rouge et un scroller apparait.

Possibilité d'imprimer la listview, d'envoyer la liste des médicaments vers excell ou de supprimer les médicaments de la listview en accédant au fichier texte par notepad. D'ailleurs, si qq a le code pour supprimer directement une ligne de la listview, ce serait bien.

Bien entendu, programme fait avec les codes mis enj ligne sur le site. Merci à tous.

Bonne uilisation

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
27
Date d'inscription
lundi 3 septembre 2007
Statut
Membre
Dernière intervention
19 mars 2015

Hello,

Merci chonburi. Le code ci-dessous que tu m'as fourni est parfait !
Je mettrai à jour demain le prog

Dim intNumLigne As Integer
intNumLigne= ListView1.SelectedItem.index
ListView1.ListItems.Remove (intNumLigne)
End Sub
Messages postés
11
Date d'inscription
mardi 15 janvier 2008
Statut
Membre
Dernière intervention
16 mai 2011

Private Sub EffaceLigneListView()
Dim intNumLigne As Integer
intNumLigne= ListView1.SelectedItem.index
ListView1.ListItems.Remove (intNumLigne)
End Sub
ou bien
Private Sub EffaceLigneListView()
dim intNombLignes as integer
For intNombLignes = ListView1.ListItems.Count - 1 To 1 Step -1
If ListView1.ListItems(x).Selected = True Then
ListView1.ListItems.Remove (intNombLignes)
End If
Next
il y a aussi:
listview1.ListItems.Remove .SelectedItem.Index
Messages postés
3
Date d'inscription
mercredi 27 février 2008
Statut
Membre
Dernière intervention
18 janvier 2011

Ton pg marche très bien. pour ce qui est de la base de données, tu pourais utiliser une base Access (tu as de nombreux exemples comme "ASTUCE" récemment posté) ou plus simple rajouter un champ "flag" dans ton fichier qui te permettrait d'afficher que les lignes valides.
Messages postés
27
Date d'inscription
lundi 3 septembre 2007
Statut
Membre
Dernière intervention
19 mars 2015

Bonjour,

Heureux que le programme vous plaise. J'ai mis à jour le prog (forme utilisable, discipline). J'ai rajouté un menu permettant d'afficher les médicaments périmés d'un mois ou d'une année.

"ShellExecute 0&, vbNullString, App.Path & "\MedicamentTrousse.txt", vbNullString, vbNullString, vbNormalFocus
qui permet de lancer l'application par défaut d'une extension plutôt qu'un programme en particulier." --> je vais essayé

"Idéalement, la combo "forme utilisable" devrait être dynamiquement mise à jour en fonction de la combo "médicament", n'est ce pas... Je suppose que tu y as pensé." --> non je n'y ai pas pensé car finalement les formes utilisables sont tjrs les mêmes

"Supprimer dans la listbox, c'est une chose, il faut aussi supprimer dans le fichier texte. Ca devient un peu plus lourd..." --> eh oui ....

Il faudrait effectivement que j'utilis une base de données. Mais je ne sais absolument pas gérer les bases de données
Messages postés
113
Date d'inscription
lundi 31 mars 2003
Statut
Membre
Dernière intervention
19 décembre 2011
2
Colargol,

Idéalement, la combo "forme utilisable" devrait être dynamiquement mise à jour en fonction de la combo "médicament", n'est ce pas... Je suppose que tu y as pensé.
Le fait de devoir ouvrir le fichier texte et "patouiller" dedans va vite faire dérailler ton programme s'il est utilisé par d'autres gens.
Je pense que tu devrais modifier ton programme pour qu'elle se connecte à un système de base de données. C'est idéal pour ce genre d'application.
Afficher les 8 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.