Discussion :

[morobaboumar]

Bonjour membres du forum !
Toujours heureux de revenir vers vous !

J'ai créé deux tables: "Tbl_Horaire" et "Emploi_Temps_General_ECOISLAM".
La table "Emploi_Temps_General_ECOISLAM" est liée à la table "Tbl_Horaire" à partir des champs de types textes:

"Heure_Debut_Matin"; "Heure_Fin_Matin"; "Heure_Debut_Soir"; "Heure_Fin_Soir".

Voir capture d’écran:



Mon objectif est d'éviter d'enregistrer les mêmes horaires dans la table "Emploi_Temps_General_ECOISLAM".

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
'**********************************************
'**********************************************
Private Sub Heure_Debut_Matin_AfterUpdate()
Me.Heure_Fin_Matin.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
Me.Heure_Fin_Matin.Requery
End Sub
 
Private Sub Heure_Debut_Soir_AfterUpdate()
If Not IsNull(Me.Heure_Fin_Matin) Then
Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Fin_Matin & "'"
Me.Heure_Fin_Soir.Requery
End If
End Sub

Je reviens tout à l'heure.
A+

[morobaboumar]

Salut !
Je vous envoie la pièce jointe à la discussion.
Cordialement.

[marot_r]

Bonjour.

Tu peux regarder ici :

https://www.developpez.net/forums/d1...ublons-lignes/

Qui est une discussion sur le même sujet. à un détail prêt, il peut être moins évident de faire cela pour un horaire.
Si tu prend, date, heure début, heure fin comme critère, il suffit que le début ou la fin soit différent pour que le système soit trompé.
Tu peux peut-être ajouter du code qui vérifie que la nouvelle période entrée ne chevauche pas une période déjà définie.
Ceci est vrai si

• Elle ne commence pas dans une période existante.
• Elle ne fini pas dans une période existante.
• Elle n'englobe pas une période existante.

A+

[morobaboumar]

Salut !
Voici ce que j'ai écrit comme code pour contrôler des horaires du matin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'**********************************************
'**********************************************
Private Sub Heure_Debut_Matin_AfterUpdate()
Me.Heure_Fin_Matin.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
Me.Heure_Fin_Matin.Requery
End Sub

et celui ci pour contrôler les horaires de la soirée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Heure_Debut_Soir_AfterUpdate()
If Not IsNull(Me.Heure_Fin_Matin.RowSource) = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'" Then
 
Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Fin_Matin & "'"
Me.Heure_Fin_Soir.Requery
End If
End Sub

Mais ce dernier code ne marche pas.
Voir le capture:
Mon objectif est de faire en sorte que là où les horaires du matin s’arrêtent, ceux de la soirée débutent après.
Cordialement.

[morobaboumar]

Bonjour.

Tu peux regarder ici :

https://www.developpez.net/forums/d1...ublons-lignes/

A+

J'ai bien observé votre suggestion mais elle ne correspond pas à ce que je recherche.
Mon objectif, je l'ai cité à mon post avant.
Très reconnaissant de l'énorme aide que vous nous apportée.
Cordialement.

[marot_r]

Bonjour.

J'avoue ne pas comprendre quelle valeur tu attends dans l'exemple donné.
Dans ton code tu demandes à avoir une valeur supérieure à celle du matin et c'est ce que tu obtiens.

Et habituellement on préfère modifier le contenu d'une liste déroulante via l'événement "Sur réception du focus".
On est plus sûr à ce moment là de l'environnement.

A+

[morobaboumar]

Bonsoir marot_r !
Je trouve que je m'embrouille quelque peu.
Je vais essayer d'entrer un champ numérique
dans la table tbl_horaire pour mieux ramener la
les valeurs recherchées.
Cordialement.

[tee_grandbois]

bonsoir,
cette ligne de code est complètement bizarre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsNull(Me.Heure_Fin_Matin.RowSource) = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'" Then

tu fais une comparaison entre Not IsNull(Me.Heure_Fin_Matin.RowSource) et "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
et comme cela ne sera jamais égal, tu n'exécutera jamais la suite du code.
Voic le bon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Heure_Debut_Soir_AfterUpdate()
If Not IsNull(Me.Heure_Fin_Matin) Then
    Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Fin_Matin & "'"
    Me.Heure_Fin_Soir.Requery
End If
End Sub

[morobaboumar]

Bonjour tee_grandbois !
J'aimerais savoir si l'indexation dans la table "Emploi_Temps_General_ECOISLAM" est correcte ?
Voir la capture d’écran:

Merci infiniment.
Cordialemnent.

[morobaboumar]

Bonsoir membres du forum !
Voici les codes que j'ai choisis en attendant de trouver une solution adéquate.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'**********************************************
'**********************************************
Private Sub Heure_Debut_Matin_AfterUpdate()
Me.Heure_Fin_Matin.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
Me.Heure_Fin_Matin.Requery
End Sub
 
Private Sub Heure_Fin_Matin_GotFocus()
Heure_Debut_Matin_AfterUpdate
End Sub
 
Private Sub Heure_Debut_Soir_AfterUpdate()
Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Soir & "'"
Me.Heure_Fin_Soir.Requery
End Sub
 
Private Sub Heure_Fin_Soir_GotFocus()
Heure_Debut_Soir_AfterUpdate
End Sub

A+

[marot_r]

Bonjour

Selon moi, il manque a ton index :

1. L'année scolaire
2. Le jour
3. La matière

Et peut-être l'école si tu gères plusieurs écoles avec la même BD.

A+

[morobaboumar]

Bonsoir marot_r !
J'ai choisi de contrôler seulement les horaires dans l'index car c'est un programme général
pour gérer les temps consacrés aux cours du français et de l'arabe.
Cela nous permettrais de planifier les emplois individuels du temps des classes.
C'est une partie de la base de données nous permettant de gérer plusieurs écoles effectivement.

Mon souci est que l'horaire_Debut_Matin < l'horaire_Fin_Matin < l'horaire_Debut_Soir < l'horaire_Fin_Soir et cnaque
jour de cours. On pourrais avoir les mêmes horaires du Lundt au samedi mais seulement le schema d'horaires précité dêvrait
respecter.
Cordialement.

[morobaboumar]

Bonsoir membres du forum !

J'ai révisé mes codes horaires:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
'**********************************************
'**********************************************
Private Sub Heure_Debut_Matin_AfterUpdate()
Me.Heure_Fin_Matin.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
Me.Heure_Fin_Matin.Requery
End Sub
 
Private Sub Heure_Debut_Matin_LostFocus()
If Not IsNull(Me.Heure_Debut_Matin) Then
    Me.Heure_Fin_Matin.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
    Me.Heure_Fin_Matin.Requery
End If
End Sub
 
Private Sub Heure_Debut_Soir_AfterUpdate()
If Not IsNull(Me.Heure_Fin_Matin) Then
    Me.Heure_Debut_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Fin_Matin & "'"
    Me.Heure_Debut_Soir.Requery
End If
End Sub
 
Private Sub Heure_Debut_Soir_LostFocus()
If Not IsNull(Me.Heure_Debut_Soir) Then
    Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Soir & "'"
    Me.Heure_Fin_Soir.Requery
End If
End Sub
 
Private Sub Heure_Fin_Soir_GotFocus()
If Not IsNull(Me.Heure_Debut_Soir) Then
    Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Soir & "'"
    Me.Heure_Fin_Soir.Requery
End If
End Sub

ils fonctionnent à condition de refermer et rouvrir la boite dialogue d'insertion de données après
l'entrée des horaires Heure_Debut_Matin et Heure_Fin_Matin afin que les codes des horaires du soir fonctionnent parfaitement.
Cordialement.

[tee_grandbois]

bonjour,
je pense que le code pourrait être plus simple, il faut changer le RowSource à l'entrée de chaque champ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Heure_Fin_Matin_GotFocus()
If Not IsNull(Me.Heure_Debut_Matin) Then _
    Me.Heure_Fin_Matin.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Matin & "'"
 
End Sub
 
Private Sub Heure_Debut_Soir_GotFocus()
If Not IsNull(Me.Heure_Fin_Matin) Then _
    Me.Heure_Debut_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Fin_Matin & "'"
 
End Sub
 
Private Sub Heure_Fin_Soir_GotFocus()
If Not IsNull(Me.Heure_Debut_Soir) Then _
    Me.Heure_Fin_Soir.RowSource = "select * from Tbl_Horaire where horaire > '" & Me.Heure_Debut_Soir & "'"
 
End Sub

à mettre dans tous les formulaires permettant la saisie des horaires

[morobaboumar]

Bonsoir membres du forum !
Toutes mes reconnaissances et remerciements à vous professeurs:
marot_r
tee_grandbois
et toute la famille developpez.net.
Cette discussion est arrivée au point final.

infiniment.
Codialement.