Mise en œuvre d'un système informatisé pour le suivi de paiement de préfinancement dans une agence en douane

A.AVANTAGES :

 

L'apprentissage de VBA représente donc un très bon investissement car, si vous n'utilisez, pour exemple, que Word et Excel, vous pourrez très facilement apprendre la programmation Access étant donné que le langage est rigoureusement le même. Le fait qu'office propose un même langage pour toutes ses applications est réellement un avantages déterminant et nous pensons qu'il va inciter plus d'un utilisateur à se lancer dans l'aventure de l'apprentissage de la programmation VBA. ⁴⁸

 

II.2. CHOIX DE LA METHODE DE PROGRAMMATION

 

La réalisation de  la base de données nous amène à recourir à  notre SGBD choisi à l'occurrence Microsoft Office Access qui met à la disposition des utilisateurs toute sa puissance d'organisation, de recherche et de présentation des informations.

1. Création de la base de données

Figure : n°5

 

 

 

 

 

 

 

 

 

 

 

2. CREATION DES TABLES

 

 

 

 

 

 

 

 

 

 

3. CREATION DE REQUETE

 

4. CREATION DE L'ETAT EN SORTIE

 
6. PRESENTATION DE L'ETAT EN SORTIE

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7. CODIFICATION : Pour la codification, hormis les codes sources de l'état en sortie, consultation et connexion  nous allons présenter   que les codes sources de l'interface père et  de l'interface de jointure.

 

1. INTERFACE CLIENT

 

 

 

 

 

 

 

 

 

A.BOUTON ENREGISTRER

Private Sub CMDENREGISTRER_Click ()

Set MBULU = DBEngine.Workspaces(0).Databases(0)

Set GABRIEL = MBULU.OpenRecordset("Tclient", DB_OPEN_TABLE)

B.Index = "numcl"

B.Seek "=", NUMCL

Dim D As String

D = MsgBox("Voulez-vous enregistrer?", vbQuestion + vbYesNo, "Confirmer")

If B.NoMatch Then

B.AddNew

B.Fields("numcl") = NUMCL

B.Fields("codnat") = CODNAT

B.Fields("nomcl") = NOMCL

B.Fields("typcl") = typcl

B.Fields("pstcl") = PSTCL

B.Fields("adrcl") = ADRCL

B.Fields("sexcl") = SEXCL

B.Fields("telcl") = TELCL

B.Update

NUMCL = ""

CODNAT = ""

NOMCL = ""

typcl = ""

PSTCL = ""

ADRCL = ""

SEXCL = ""

TELCL = ""

NUMCL.SetFocus

MsgBox "Enregistrement avec succès", vbExclamation

Else

NUMCL = ""

CODNAT = ""

NOMCL = ""

typcl = ""

PSTCL = ""

ADRCL = ""

SEXCL = ""

TELCL = ""

NUMCL.SetFocus

MsgBox "Enregistrement existant déjà", vbInformation

NUMCL.SetFocus

End If

End Sub

 

B.BOUTON EFFACER

Private Sub CMDEFFACER_Click ()

NUMCL = ""

CODNAT = ""

NOMCL = ""

typcl = ""

PSTCL = ""

ADRCL = ""

SEXCL = ""

TELCL = ""

NUMCL.SetFocus

End Sub

 

C.BOUTON MODIFIER

Private Sub CMDMODIFIER_Click()

Set MBULU = DBEngine.Workspaces(0).Databases(0)

Set GABRIEL = MBULU.OpenRecordset("Tclient", DB_OPEN_TABLE)

B.Index = "numcl"

B.Seek "=", numcl

Dim D As String

D = MsgBox("voulez-vous Modifier?", vbQuestion + vbYesNo, confirmation")

If D = vbYes Then

B.Edit

B.Fields("numcl") = numcl

B.Fields("codnat") = codnat

B.Fields("nomcl") = NOMCL

B.Fields("typcl") = typcl

B.Fields("pstcl") = PSTCL

B.Fields("adrcl") = ADRCL

B.Fields("sexcl") = SEXCL

B.Fields("telcl") = TELCL

B.Update

MsgBox "Modification avec succès", vbExclamation

NUMCL = ""

CODNAT = ""

NOMCL = ""

typcl = ""

PSTCL = ""

ADRCL = ""

SEXCL = ""

TELCL = ""

NUMCL.SetFocus

ElseIf D = vbNo Then

NUMCL.SetFocus

End If

End Sub