4.4. LES FORMULAIRES ET CODES
Nous présentons ici quelques formulaires que nous avons
conçus pour
les affectations des stagiaires ainsi que les codes sources
utilisés pour la programmation.
1. QUELLESQUES FORMULAIRES DE BASE DE
L'APPLICATION
Page | 49
Page | 50
2. QUELQUES CODES DE L'APPLICATION
Private sub boutonaffectation_click()
If T1 = "" And T2 = "" And T3 = "" And T4 = "" And T5 = "" And
T6 = "" And T7 = "" And T8 = "" And T9 =
"" And T10 = "" And T11 = "" And T12 = "" And T13 = "" And T14
= "" And T15 = "" Then
MsgBox ("TOUS LES CHAMPS SONT VIDES")
ElseIf T1 = "" Or T2 = "" Or T3 = "" Or T4 = "" Or T5 = "" Or
T6 = "" Or T7 = "" Or T8 = "" Or T9 = "" Or
T10 = "" Or T11 = "" Or T12 = "" Or T13 = "" Or T14 = "" Or
T15 = "" Then
MsgBox ("QUELQUES CHAMPS SONT VIDES S'IL VOUS PLAIT")
Else
Adodc2.Refresh
With Adodc2.Recordset
If T2 = !NUMFICHEAFFECT Then
MsgBox ("CET IDENTIFICATION DU STAGIAIRE EXISTE DEJA; VEUILLEZ
RECOMMENCER")
ElseIf Not IsDate(T15.Text) Then
MsgBox ("LA DATE EST MAL ECRITE S'IL VOUS PLAIT")
Else
Adodc2.Refresh
With Adodc2.Recordset
.AddNew
!NUMFICHEAFFECT = T1.Text
!IDSTAGIAIRE = T2.Text
!NOMSTAGIAIRE = T3.Text
!POSTNOMSTAGIAIRE = T4.Text
!PRENOMSTAGIAIRE = T5.Text
!SEXESTAGIAIRE = T6.Text
!PROVENANCE = T7.Text
!FONCTIONSTAGIARE = T8.Text
!GRADESTAGIAIRE = T9.Text
!CONTACTSTAGIAIRE = T10.Text
!CATEGORIESTAGE = T11.Text
!TUTEURSTAGIAIRE = T12.Text
!ADRESSESTAGIAIRE = T13.Text
!DEPARTEMENTAFFECT = T14.Text
!DATEAFFECT = T15.Text
.Update
MsgBox "AFFECTATION EFFECTUEE !"
T1.Text = ""
T2.Text = ""
T3.Text = ""
T4.Text = ""
T5.Text = ""
T6.Text = ""
T7.Text = ""
T8.Text = ""
T9.Text = ""
T10.Text = ""
T11.Text = ""
T12.Text = ""
T13.Text = ""
T14.Text = ""
T15.Text = ""
End With
End If
End With
End If
End sub
Page | 51
| 
