Rapport de stage effectué à l'école supérieure de formation des cadres

8. Exercice n°2

Concevoir un projet pour la Gestion des côtes des Etudiants de l'INPP en Access VBA.

1. Interface Logo

Ecriture du code

Private Sub Form_Load()

Form.TimerInterval = 5000

End Sub

Private Sub Form_Timer()

DoCmd.Close

DoCmd.OpenForm "MOT DE PASSE"

End Sub

2. Interface de la Connexion

Ecriture du code

Private Sub CmdVALIDER_Click()

If TxtNOMUTILISATEUR = "INPP" And TxtMOTDEPASSE = "FORMATAGE" Then

DoCmd.Close

DoCmd.OpenForm "MENU GENERAL"

Else

MsgBox "Le mot de passe ou le nom d'utilisateur est incorrect", vbInformation, "AVERTISSEMENT" TxtNOMUTILISATEUR = ""

TxtMOTDEPASSE = ""

TxtNOMUTILISATEUR.SetFocus

End If

End Sub

Private Sub CmdANNULER_Click() TxtNOMUTILISATEUR = ""

TxtMOTDEPASSE = ""

TxtNOMUTILISATEUR.SetFocus End Sub

Private Sub CmdFERMER_Click()

Dim M As String

M = MsgBox("Voulez-vous réellement quitter l'application?", vbQuestion + vbYesNo, "CONFIRMATION")

If M = vbYes Then

Quit

ElseIf M = vbNo Then

TxtNOMUTILISATEUR = ""

TxtMOTDEPASSE = ""

TxtNOMUTILISATEUR.SetFocus

End If

End Sub

3.

Rapport de stage effectue à L'École Supérieure de Formation des Cadres en sigle « ESFORCA » du 2010

08 avril au 28 juin ; Tél. : [phone] ; E-mail : [e-mail] Verlain LELO NZITA

Page

30

Interface Menu Général

Ecriture du code du bouton Agent

Private Sub CmdAGENT_Click() DoCmd.Close

DoCmd.OpenForm "F_AGENT" End Sub

4. Interface du Formulaire Agent

Ecriture du code du bouton Enregistrer

Private Sub CmdEnregistrerAg_Click()

Dim GESCOTES As Database

Dim jeux As Recordset

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

Set jeux = GESCOTES.OpenRecordset("T_AGENT", DB_OPEN_TABLE) jeux.Index = "MATRAG"

jeux.Seek "=", TxtMatrAg

Rapport de stage effectue à L'École Supérieure de Formation des Cadres en sigle « ESFORCA » du 08 avril au 28 juin ; Tél. : [phone] ; E-mail : [e-mail] Verlain LELO NZITA

2010

Page

31

If jeux.NoMatch Then Dim M As String

M = MsgBox("Voulez-Réellement Enregistrer?", vbQuestion + vbYesNo, "CONFIRMATION")

If M = vbYes Then jeux.AddNew

jeux("MATRAG") = TxtMatrAg

jeux("CODGRADE") = TxtCodeGradeAg

jeux("CODFONCT") = TxtCodeFonctionAg

jeux("NOM") = TxtNomAg jeux("POSTNOM") = TxtPostNomAg

jeux("SEXE") = TxtSexeAg

jeux.Update

MsgBox "Enregistrement Avec Succès", vbExclamation, "FELICITATION"

TxtMatrAg = ""

TxtCodeGradeAg = "" TxtCodeFonctionAg = "" TxtNomAg = ""

TxtPostNomAg = "" TxtSexeAg = ""

TxtMatrAg.SetFocus ElseIf M = vbNo Then TxtMatrAg.SetFocus Else

MsgBox "Cet Enregistrement Existe Deja", vbInformation, "AVERTISSEMENT"

TxtMatrAg.SetFocus End If

End If

End Sub

Rapport de stage effectue à L'École Supérieure de Formation des Cadres en sigle « ESFORCA » du 08 avril au 28 juin ; Tél. : [phone] ; E-mail : [e-mail] Verlain LELO NZITA

2010

Maintenance et Reseaux

informatiques

DEUXIEME PARTIE

Rapport de stage effectue à L'École Supérieure de Formation des Cadres en sigle « ESFORCA » du 08 avril au 28 juin ; Tél. : [phone] ; E-mail : [e-mail] Verlain LELO NZITA

2010

Page

33