Discussion :

[aupositeur]

Bonsoir à tous,

Pas simple d'expliquer un cas de figure par écrit. je vais tenter le coup

je dispose d'un formulaire dans lequel se trouve les champs date de réception ainsi qu'une case à cocher rappel.

j'aimerai si possible,

Alimenter ma T_test de la manière suivante :

1.si la date de reception est vide, Lorsque la case est cochée par le user, introduire dans la table la date du jour ainsi que la date du jour + 60. J'obtiens donc une date butoir.
2.Lorsque cette date butoir est atteinte et si l'utilisateur n'a toujours pas introduit une date de réception, alors réinitialiser la case à cocher ainsi que la date de jour de demande de rappel et la date butoir.

Je me demande comment faire ceci?
Faut il créer une nouvelle table uniquement pour les rappel?
Est ce que je dois jouer avec Dateadd?
Avez des exemples ?

Piouuuu, c'est du Belge....

Je reste à votre disposition pour traduction vers le flamamd

merci les gens

[Bob78280]

Bon, j'ai pas tout compris, mais voici déjà une bonne piste pour commencer :
Dans ta table T_test, tu as 3 champs (en tout cas, 3 qui nous intéressent ici)
- dateReception => Date/Heure
- dateButoir => Date/Heure
- CheckButoir => Oui/Non

Au chargement de ton formulaire, tu dois avoir :

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
Private Sub Form_Load()
dim strSelect as string
Dim rs As DAO.Recordset
 
strSelect = "Select * from T_test"
Set rs = CurrentDb.OpenRecordset(strSelect)
 
Me.ChampReception.value = rs("dateReception")
Me.chDateButoir.value = rs("CheckButoir")
 
if isNull(rs("dateReception")) and rs("CheckButoir") and rs("dateButoir")>= date then
      DoCmd.RunSQL "Update T_test set CheckButoir  = 0;"
      Me.chDateButoir.value = 0
end if
End Sub

Le code pour la case à cocher :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CheckButoir_Click()
 
if CheckButoir.value and isnull(Me.ChampReception.value) then
    DoCmd.RunSQL "Update T_test set CheckButoir  = -1, dateButoir  = Date+60;"
else
    DoCmd.RunSQL "Update T_test set CheckButoir  = 0;"
end if
End Sub

Voilà. Reste l'histoire de la date de rappel...
dans ton point 2, tu dis de réinitialiser la case à cocher. Donc elle est décochée?
Mais si elle est décochée, pas de date butoir?
Teste ce code et vois ce qui manque