5.3.2 les relations entre tables :
Une relation est une liaison que l'on définit entre des
tables ayant un sujet en commun et dont les informations sont stockées
dans différentes tables. C'est une association entre champs commun
à plusieurs tables. On distingue les relations de 1 à 1, de 1
à plusieurs et de plusieurs à plusieurs aussi
appelées "de 1 à 1", "de 1 à n" et de "n
à n". C'est aussi un ensemble des propriétés qui
caractérise une même entité.
Figure N°3 : Une vue des
relations existantes entre les différentes tables
5.3.3 Les Requêtes :
Une requêtes est une commande exécutable qui permet
de : trier, filtrer, d'effectuez des calculs et de mettre à jour les
informations dans la base de donnée.
Figure N°4 : Requête
chef polygame en mode création
5.3.4 Les formulaires :
Un formulaire est un masque écran destiné à
la saisie, la visualisation ou la modification des données, de
façon plus conviviale. Il est utilisé essentiellement pour entrer
et afficher des données dans une base de données. Nous pouvons
également utiliser un formulaire comme Menu général qui
ouvre d'autres formulaires et des états dans la base de données
ou comme boite de dialogue personnalisé qui permet aux utilisateurs
d'entrer des données et de les utiliser.
Figure N°5 : Formulaire
Onglet en mode création
Figure N°6 : Une vue du
formulaire de saisie en mode formulaire. Ici nous avons utilisé les
onglets pages. Ainsi chaque page correspond à un onglet du même
nom.
5.3.5 Les états :
Un état est un masque destiné à être
imprimé qui permet la visualisation des données stockée
dans les tables ou dans les requêtes sur un support papier.
Figure N°8 : Etat sur la
liste de Chef de ménage polygame en mode création :
Figure N°9 : Un
aperçu de l'état Listes de Chef de ménage
polygame :
5.3.6 TRADUCTION DE CERTAINES PARTIES DU CAHIER DE CHARGE
EN CODE VBA :
Code VBA permettant de faire défiler
indéfiniment un texte de la droite vers la gauche:
Option Compare Database
Dim Défiler_Cmp As Integer
Dim Défiler_Champ As String
Dim Défiler_ValeurChamp As String
Private Sub Form_Load()
Défiler_Cmp = 0
Me.TimerInterval = 40 ' indiquer 0 pour supprimer
l'évènement timer
End Sub
Private Sub Form_Timer()
If Défiler_Cmp = 0 Then
Défiler_Champ = "Texte30" ' indiquer le nom du
Champ défilant
Défiler_ValeurChamp = "Recensement
Général de la Population et de l'Habitat" 'indiquer le texte
défilant
With Me.Controls(Défiler_Champ)
.FontName = "Britannic Bold"
.FontItalic = False
.FontBold = True
.FontSize = 20
Me.Controls(Défiler_Champ) = Space(.Width /
(.FontSize * 6)) & _
Défiler_ValeurChamp
Défiler_Cmp =
Len(Me.Controls(Défiler_Champ))
End With
End If
Me.Controls(Défiler_Champ).ForeColor =
RGB(Défiler_Cmp, Défiler_Cmp, _
Défiler_Cmp)
Me.Controls(Défiler_Champ) =
Mid$(Me.Controls(Défiler_Champ), 2)
Défiler_Cmp = Défiler_Cmp - 1
*******************************
Code VBA permettant d'afficher
l'heure :
Me![Texte25] = Time
*******************************
Code VBA permettant de faire défiler une
image et d'afficher une barre de progression :
Private Sub Form_Current()
Me.Image13.Left = 2000
End Sub
Private Sub Form_Timer()
If Me.Étiquette21.Visible = True Then
Me.Étiquette21.Visible = False
Else
Me.Étiquette21.Visible = True
End If
a:
Me.Image13.Left = Me.Image13.Left + 60
If Me.Image13.Left = 11000 Then
Me.Image13.Left = 2000
GoTo a
End If
If Me.Texte12 < 100 Then
Me.Boîte17.Width = Me.Boîte17.Width + 68
Me.Texte12 = Me.Texte12 + 1
Else
DoCmd.Close
End If
End Sub
*******************************
Code VBA permettant la détermination de
l'identifiant du ménage grâce à la
concaténation :
Private Sub N°Menage_Exit(Cancel As Integer)
Me.Idménage = Me.Codequartcomur & "_" &
Format(Me.N°section, "0000") & "_" & Format(Me.N°concession,
"0000") & "_" & Format(Me.N°Menage, "0000")
Me.Typemen.SetFocus
End Sub
*******************************
Code VBA permettant la détermination de
l'identifiant du membre du ménage grâce à la
concaténation:
Private Sub N°ordmem_Exit(Cancel As Integer)
Me.Idmem = Me.Idménage & "_" &
Format(Me.N°ordmem, "000")
Me.Nommem.SetFocus
End Sub
*****************************
Code VBA permettant la détermination de
l'âge du membre du ménage :
Private Sub Datenaismem_Exit(Cancel As Integer)
Me.Agemem = Mid(Date, 7, 4) - Mid(Me.Datenaismem, 7, 4)
Me.Lieunaismem.SetFocus
End Sub
| 
