Tmd (transports de matières dangereuses) : tous les produits (bdd access)

Télécharger le projet
Commenter

Description

Bon en fait ce n'est pas le code ici qui importe, mais l'appli en elle même :
Il n'y a aucun programme informatique reprenant ces informations (si certains mais pas aussi complet dans les renseignements)
Vous avez donc une liste de produits dangereux (et possibilité de rechercher le produit par les Codes Matières & Dangers) en vous donnant le symbole de danger ainsi que quelques renseignements.

(Fini les supports papiers... ! )

Ps : Connection DAO

Source / Exemple : 


' Bah je vous mets une procédure : celle qui récupère la liste des produits !

Private Sub cbtListeComplete_Click()
    Dim Rs              As Recordset
    Dim sql             As String
    Dim NbNomProduits   As Integer
    
lbxNomProduits.Clear

NomBase = App.Path & "\TMD.mdb"
If Dir(NomBase) <> "" Then
    NbNomProduits = 0
    
' **** on selectionne tous les produits de la table pour affichage dans la ListBox
    Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase)
sql = "SELECT NomProduit FROM ListeProduit"
    Set Rs = db.OpenRecordset(sql)
        Rs.MoveFirst
    
    Do While Rs.EOF = False
        Me.lbxNomProduits.AddItem Rs!NomProduit
        NbNomProduits = NbNomProduits + 1
        Rs.MoveNext
    Loop
    
    Set Rs = Nothing
    db.Close
Else
    MsgBox "Le fichier Tmd.mdb n'est pas présent dans " & App.Path, vbCritical, "ATTENTION"
End If

End Sub

Conclusion :


Donc je livre déjà cette "petite version". Vous verrez un menu dans la Form 'fictif', en fait il faut que je saisisse les données restantes (pas mal de feuilles ...) mais je vous l'ai laissé pour que vous sachiez ce qui va arriver !
Je ferai également une amélioration générale.

Prochaine version très bientôt !!

Cette appli sera très utiles pour les Services de Secours (Pompiers, Sécurité Civile) et pour les Services de Sécurité (Sté Autoroutes, Cricr régionaux, DDE, Gendarmerie, etc..)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (mortalino)