Discussion :

[Daniel MOREAU]

Bonjour à tous,

Voilà, je souhaite mettre à jour une table qui regroupe des informations.

Mon souhait et de ne mettre à jour que les nouvelles informations.

Comment procéder ?

Je pensai utiliser le code suivant, mais je ne sais pas comment faire pour récupérer le dernier enregistrement mis à jour dans la variable "Ancienne Date"

Pouvez vous m'aider ?

Voici le code

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
Private Sub Maj_Outlook_Click()
Dim MaBase As Database, Tbl_RegrOutlook As Object, NouvelleDate As Date
Dim AncienneDate As Date, NbEnr As Integer
Set MaBase = CodeDb
Set Tbl_RegrOutlook = MaBase.OpenRecordset("Tbl_RegrOutlook", dbOpenTable)
 
AncienneDate =  "?"
NouvelleDate = Date
NbEnr = 0
 
Tbl_RegrOutlook.Index = "Date"
Tbl_RegrOutlook.Seek ">", AncienneDate
Do Until Tbl_RegrOutlook.NoMatch
    Tbl_RegrOutlook.Edit
    Tbl_RegrOutlook("Date") = NouvelleDate
    Tbl_RegrOutlook.Update
    NbEnr = NbEnr + 1
    Tbl_RegrOutlook.Seek "=", AncienneDate
Loop
MsgBox "la procédure a modifié " & NbEnr & " Nvx Rendez-vous"
 
 
 
End Sub

Merci d'avance pour votre aide.

Daniel

[ypicot]

Utilise plutot une requete :

Code :

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

1
2
3
4
5
 
dim StrSql as string
...
StrSql = "SELECT champ1, champ2 FROM Tbl_RegrOutlook ORDER BY DESC Date
...OpenRecordset(StrSql, ...)

Tu auras l'enreg que tu cherches en première position.

Il y a d'autres variations possibles sur le même thème, en utilisant les fonctions de regroupement avec un MAX, par exemple.

Yvan