Discussion :

[Marcopololo]

Bonjour,

Je voudrais lorsque je clique sur le bouton quittez de ma base que la date du jour s'enregistre dans une table.

Du genre :

Code :

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

TblDernièreDate.Dernièredate = Date

Dois je passer par un code SQL de type ajout ?

Merci d'avance

Marcopololo

[DamKre]

Bonjour.

Dans ta table, tu veux à chaque fois ajouter la date au moment de quitter, ou simplement modifier la date ?

[Marcopololo]

Bonjour,

Non, je vais utiliser cette table pour vérifier qu'il n'y a pas un changement d'année et pour lancer une procédure de mise à jour d'une table.

Donc à chaque fois que je quitte la base, je stocke la date du jour (que je restreindrai à l'année).
Ensuite je comparerai l'année de ma table avec la date qui va être enregistrée.

Si elle est différente, je lance une procédure de mise à jour

Sinon je remplace la date actuelle par la nouvelle.

Soit j'utilise la fonction insert to en SQL, soit un recordset (si cela fonctionne).

Marcopololo

Voila ce que l'ai mis mais je n'enregistre rien dans ma table :

Code :

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

1
2
3
4
5
6
7
Dim SQL As String
 
            SQL = "INSERT INTO TblDernièreDate ( Dernièredate ) "
            SQL = SQL & "SELECT TblDernièreDate.Dernièredate "
            SQL = SQL & "FROM TblDernièreDate "
            SQL = SQL & "WHERE (((TblDernièreDate.Dernièredate)=Date())); "
            DoCmd.RunSQL SQL

[Gabout]

Bonjour,

Essaie

Code :

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

1
2
3
docmd.setwarnings false
docmd.runsql "UPDATE TblDernièreDate SET TblDernièreDate.Dernièredate = Date();", true
docmd.setwarnings true

Attention : il faut qu'il existe un enregistrement dans ta table, sinon pas de mise à jour

A+

[Marcopololo]

Merci Gabout,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim CompDate As String
 
 
           CompDate = "TblDernièreDate.Dernièredate"
 
           If CompDate = Date Then
           MsgBox ("pas de changement date")
            Exit Sub
 
            Else
            MsgBox ("changement date")
            DoCmd.SetWarnings False
            DoCmd.RunSQL "UPDATE TblDernièreDate SET TblDernièreDate.Dernièredate = Date();", True
            DoCmd.SetWarnings True

Par contre j'ai un petit soucis car à chaque fois je passe par la Msgbox changement de date, même si la date est identique.
Faut il définir le format pour ne pas prendre en compte les hh, mm, ss ?

Marcopololo

[Gabout]

Hello,

Soit un peu plus précis sur "ton petit soucis"... cela ne nous aide pas beaucoup. Que se passe-t-il ?

Par ailleurs, j'aurais plutôt écrit

Code :

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

1
2
3
4
5
6
7
8
If DLookup("[Dernièredate]", "TblDernièreDate") = Date Then
   MsgBox ("pas de changement date")
Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE TblDernièreDate SET TblDernièreDate.Dernièredate = Date();", True
    DoCmd.SetWarnings True
    MsgBox ("changement date")
End If

Ce bout de code fonctionne, quel que soit le format de la date.

A+

[Marcopololo]

Merci Gabout,

Tu as tout compris.
Par contre faut il toujours utiliser la fonction dlookup dans le cas d'un if ?
Et dernière petite question, peut on adjoindre à l'instruction date la précision formatdate pour faire une comparaison uniquement sur l'année ?

Encore merci

Marcopololo

[Gabout]

Dlookup est une fonction de regroupement de domaine voir l'excellent tutoriel de Starec ici.
Pas de liaison directe avec le if. Je pense que le puristes auraient pu écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LaDate
LaDate = DLookup("[Dernièredate]", "TblDernièreDate")
If LaDate = Date Then
   MsgBox ("pas de changement date")
Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE TblDernièreDate SET TblDernièreDate.Dernièredate = Date();", True
    DoCmd.SetWarnings True
    MsgBox ("changement date")
End If

Si tu veux aller plus loin, étudie la syntaxe de Nz afin d'éviter des mauvaises surprises si le champ que tu lis par la fonction Dlookup est vide

Enfin, si tu ne veux baser ton critère uniquement sur l'année, tu pourrais écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LaDate
LaDate = DLookup("[Dernièredate]", "TblDernièreDate")
If year(LaDate) = year(Date) Then
   MsgBox ("pas de changement date")
Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE TblDernièreDate SET TblDernièreDate.Dernièredate = Date();", True
    DoCmd.SetWarnings True
    MsgBox ("changement date")
End If

[Marcopololo]

Merci Gabout,

Je vais lire ce tuto.

encore merci. Le code est parfait

MArcopololo