Discussion :

[jpp81]

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

[BM42]

salut

ajoute :

Code :

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

recordset.movelast

a+

[jpp81]

salut

ajoute :

Code :

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

recordset.movelast

a+

Merci bm42
ca marche tres bien pour aller au dernier enregitrement.
Mais c'est pas ça que je cherche.
Ma table (acce97, avec vb4 pro) et un peu speciale: elle a trois colonnes remplies et sur une 50éne de lignes mais les 5 ou 6 suivantes doivent etre rempli au fil des exercices. Donc c'est une table a trous et on peut remplir les"trous" des colonnes sur n'importe quelle lignes. je cherche donc a faire rester le focus sur le dernier enregistrement modifie.
J'espere avoir ete assez clair dans mes explications.
Merci a celui qui me titre de la
jpp

[sovo]

Juste une question. Qui doit aller au dernier enregistrement, le datagrid ou data ??

[jpp81]

Ben je suis pas trop bon mais si le data reste sur l'enregistrement que je viens de modifier, la grid doit faire de meme.
Sur ma form, il y a un data qui gere d'un part 3 textbox et 2 combo (Ce qui sert a entrer les enregitrements ) et une grid, qui, elle, affiche tous les enregistrements. Enfin 3 boutons de commande traditionnel, ajoute, enregistre, et supprime.
Normalement c'est cette ligne:
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
Qui devrait permetre cela, mais j'ai pas trouver dans la doc vb4 ni ailleur quelque chose de clairpour la mettre en oeuvre.
Je precise aussi que je suis encore en vb4 pro
jpp

[Delbeke]

Avant de modifier le recodr, tu notes le bookmark dans une variable de type variant qu tu utiliseras pour repositionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MyBookMark as Variant
 
 
Sub ModifierEnreg
 MyBookMark= Data1.Recordset.BookMark
 etc ...
End Sub
 
Sub RePositionerEnreg
  Data1.Recordset.BookMark = MyBookMark
End Sub

[jpp81]

J'ai trouvé.
C'est le :
Data1.Refresh
DBGrid1.Refresh
qui pose probleme. En fait le refresh reintialise le pointeur au debut du fichier.
Si on supprime, le pointeur reste bien sur le dernier enregistrement.
merci a tous.
jpp