Salut a tous
Mon probleme est tres simple:

Quand on clique sur le bouton tout marche impec. Sauf que, invariablement dans la grid dependante le curseur se remet sur le premier enregistrement obligeant l'utilisateur a utiliser l'ascenceur pour revenir en fin de fichier. Qu'est-ce qui manque pour que l'on reste sur le dernier enregistrement ???
Merci beaucoup
jpp

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
   Private Sub CmdUpdate_Click()
  Dim base As String
base = "INTRANTS.mdb"
 
  If Data1.Recordset.NoMatch Then
    Data1.BOFAction = 0
End If
'Vérifie que les champs  sont remplis
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
    MsgBox " les 3 premier champs doivent être rempli!"
    Exit Sub
 
End If
 
  Data1.UpdateRecord
 
 
Data1.Refresh
DBGrid1.Refresh
Data1.Caption = ""
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
 
End Sub