Discussion :

[patito1975]

Bonjour,
sur mon formulaire j'aimerai avoir un champ texte qui change tous les samedis automatiquement.
Je m'explique:
Nous sommes 3 membres et tous les samedis 9h00 jusqu'au samedi suivant 9h00 c'est un membre différent qui est contactable.
Jean n°1, Yves n°2 et Stan n°3
J'aimerai que tous les samedis à 09h le nom change automatiquement sur le formulaire et fait une tournante jean, yves, stan, jean, yves, stan, jean, yves, stan etc... (toujours la même tournante).
Comme ça on voit bien sur le formulaire le nom de la personne qui est contactable sans devoir chercher
Avez vous une solution ?
Merci à vous.

[ClaudeLELOUP]

Bonjour,

Tes utilisateurs ouvrent-ils eux-mêmes le formulaire ?

En d'autres mots, peut-on se contenter d'une mise à jour éventuelle à l'ouverture du formulaire ?

[patito1975]

Bonjour,
le formulaire principal on ne le ferme quasi jamais donc sur l'ouverture ça n'ira pas.
Le formulaire est en plein écran avec l'heure qui défile et d'autres infos.

[ClaudeLELOUP]

Bonjour,

Voici un exemple.

Une table des rôles :



Autant de lignes que tu veux : contrainte les RoleNum constituent une suite ininterrompue qui commence à 1.

Un formulaire pour amorcer la pompe :



N.B. pour voir comment ça marche, on choisit « quand » proche et une « durée » courte (ici 10 secondes).
Voici le code associé au clic du bouton :

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
Option Compare Database
Option Explicit
 
Private Sub BtLancer_Click()
  'Vérifier que les paramètres sont cohérents
  If IsNull(Me.cboSuivant) Then
    MsgBox "Vous devez mentionner le prochain responsable"
    Exit Sub
  End If
  If Me.txtProchainChgt < Now() Or IsNull(Me.txtProchainChgt) Then
    MsgBox "Vous devez spécifier une date à venir"
    Exit Sub
  End If
  If IsNull(Me.txtDuree) Or Me.txtDuree < 0 Or Me.txtDuree > 2147483647 Then
    MsgBox "La durée doit être entre 1 et 2 147 483 647"
    Exit Sub
  End If
  'Ouvrir LeFormulaire
  DoCmd.OpenForm "LeFormulaire"
  'Positionner le TimerInterval pour déclencher le 1er cycle
  Forms!leformulaire.TimerInterval = (Me.txtProchainChgt - Now()) * 86400000
  'Transmettre la fréquence des modif
  Forms!leformulaire.Tag = Me.txtDuree
  'Qui est actuellement en charge ? (celui avant dans la liste)
  If Int(Me.cboSuivant) = 1 Then
      Forms!leformulaire!cboDeGarde = DCount("*", "tRole")
    Else
      Forms!leformulaire!cboDeGarde = Int(Me.cboSuivant) - 1
  End If
  'Depuis quand
  Forms!leformulaire!TxtDepuis = Me.txtProchainChgt - Me.txtDuree / 86400000
  'Fermer fParm
  DoCmd.Close acForm, Me.Name
End Sub

Le formulaire proprement dit s’affiche alors :




Voici le code associé à ce formulaire :

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
Option Compare Database
Option Explicit
 
Private Sub Form_Timer()
  'Prochain cycle
  Me.TimerInterval = Me.Tag
 'Depuis
  Me.TxtDepuis = Now()
  'Au suivant
  If Int(Me.cboDeGarde) = DCount("*", "tRole") Then
      Me.cboDeGarde = 1
    Else
      Me.cboDeGarde = Me.cboDeGarde + 1
  End If
End Sub

La bdd est ici : http://claudeleloup.developpez.com/&...1110Patito.mdb

[patito1975]

Génial
merci beaucoup je vais tester tout ça

[patito1975]

Bonsoir, j'ai fais des tests.
Voici le problème que je rencontre sur la BD

01: Je programme Jean le 11-11-14 19:30 pour une durée de 60.000 la OK, le formulaire s'affiche avec "c'est Jean depuis 11-11-14 19:30"
pendant ce temps la donc pendant la minute que j'ai programmé pour Jean je programme Stan.

02: je programme Stan le 11-11-14 19:31 pour une durée de 60.000 mais quand je fais lancer le processus le prénom Yves s'indique dans le champ "c'est" de l'autre formulaire (a la place de Jean programmé précédemment) mais à 19:31 Stan s'affiche bien comme il a été programmé (en gros quand je programme Stan c'est Yves qui s'affiche mais Stan se met bien à l'heure dite) ...

03: je programme Yves le 11-11-14 19:32 pour une durée de 60.000 mais quand je fais lancer le processus le prénom Jean s'indique dans le champ "c'est" de l'autre formulaire mais à 19:32 Yves s'affiche bien comme il a été programmé (en gros quand je programme Yves c'est Jean qui s'affiche mais Yves se met bien à l'heure dite) ...

Dites moi si vous comprenez ou pas loll.
Les prénoms changes a chaque fois que je programme un utilisateur au fait.

[ClaudeLELOUP]

Je ne comprends pas quand tu dis : je reprogramme...

Il suffit avec le formulaire fParam de donner le prochain point de départ, le nom de celui qui sera alors de garde et la durée de la garde. Un clic sur le bouton et le formulaire se met en route et changera au fur et à mesure que le temps passe. Tu ne dois plus intervenir.

[patito1975]

Effectivement ça fonctionne très bien.
Merci beaucoup