Dans un formulaire Access, comment revenir à l'ancien record après actualisation

Ce devrait être facile. Cette forme est filtré par [Rejeté] = "N". Lorsque l'utilisateur clique sur le "Rejeter", le [Rejeté] les modifications du champ à "Y". Après l'actualisation, le formulaire doit ensuite retourner à la même ligne où l'utilisateur a été déjà au.

Private Sub DismissButton_Click()
   Me!Dismissed = "Y"
   MsgBox "Dismissed!", vbOKOnly
   Dim GoBackToThisRecord As Integer
   GobacktothisRecord = Me.CurrentRecord
   Me.Requery
   Set Me.CurrentRecord=GoBackToThisRecord
End Sub

Cependant, même si les fichiers d'aide intégrés dire que CurrentRecord est une propriété en lecture/écriture, j'obtiens un "non Valide utilisation de la propriété" message d'erreur sur cette dernière ligne.

Après le réglage de la [Rejeter]="Y", et actualisant la forme, comment puis-je obtenir à l'utilisateur de retourner à son ancien emplacement dans le formulaire?

Je ne comprends pas comment cela peut fonctionner que si la forme est filtré à une valeur que l'enregistrement modifié n'est plus adaptée. Je ne ferais jamais de cette façon, le nombre de dossiers pourrait changer avec une actualisation et la position dans le jeu d'enregistrements peut changer. Vous devriez vraiment utiliser le PK à la place.
Si ce n'est pas susceptible d'être un problème, je vous recommande de variation GoBackToThisRecord comme une longue.

InformationsquelleAutor PowerUser | 2010-03-11

ms-access vba

2

Je ne comprends pas comment votre solution peut fonctionner que si la forme est filtré à une valeur que l'enregistrement modifié ne correspond plus, si vous êtes filtré sur [Rejeté] = "N" modification de l'enregistrement en cours a Rejeté le terrain pour Y provoquer la réinterrogée forme d'exclure le dossier que vous avez juste mis à jour.

Cela de côté, je n'aurais jamais le faire de la manière que vous l'avez fait, comme Moi.CurrentRecord renvoie un nombre représentant la position dans le dossier. Depuis une actualisation peut causer le nombre d'enregistrements à modifier (par exemple, quelqu'un d'autre modifie ou ajoute ou supprime un enregistrement à l'origine pour être inclus/exclus du jeu d'enregistrements du formulaire) et la position de la recherché pour l'enregistrement à modifier, je voudrais utiliser le PK à la place.
```
  Dim lngPK as Long

  lngPK = Me!MyPKID
  Me.Requery
  With Me.RecordsetClone
    .FindFirst "[MyPKID]=" & lngPK
    If Not .NoMatch Then
       If Me.Dirty Then
          Me.Dirty = False
       End If
       Me.Bookmark = .Bookmark
    End If
  End With
```
Qui refusent de traiter avec le filtre en question, mais je laisse ça de côté, car il ne semble pas être la question que je pensais que ce serait à partir de la description du problème original.
- Mon but est juste de maintenir l'utilisateur dans la même partie du jeu d'enregistrements qu'ils étaient avant qu'ils réinterrogée (qui comme vous le savez, vous permet de revenir au premier enregistrement). Depuis le Rejeter la commande serait évidemment de supprimer cet enregistrement particulier de la vue, l'utilisateur, l'idéal serait de finir l'enregistrement suivant dans le jeu.
- Eh bien, ce n'est pas ce que vous avez décrit comme votre but. En fait, si le jeu n'a pas changé sinon, vous auriez fin à l'enregistrement après celui qui n'est plus affiché. Si je voulais faire de ce que vous êtes suggérant, j'ai toujours utiliser la même approche, c'est à dire, j'avais eu le PK de la suivante (ou précédente) enregistrer, stocker que, actualiser, puis de revenir par l'intermédiaire de l'RecordsetClone. Gardez à l'esprit que votre approche peut poser des problèmes si l'enregistrement est supprimé est la dernière dans le jeu d'enregistrements, tandis que l'utilisation de la PK il ne importe où dans le jeu d'enregistrements de la recherché après enregistrement est affiché.
- Eh bien, cela fait 13 mois que tu l'a suggéré, et je suis en train de travailler sur une toute autre base de données, mais je comprends la valeur de votre suggestion pour l'instant 🙂
InformationsquelleAutor David-W-Fenton
1

Nevermind. Fixe moi-même. La dernière ligne est maintenant:
```
Me.Recordset.Move GoBackToThisRecord
```
InformationsquelleAutor PowerUser
1

Le chemin à droite pour passer à l'enregistrement précédent, si elle est nouvelle ou non, est
```
Me.Recordset.Move GoBackToThisRecord -1
```
InformationsquelleAutor kiks73

J'utilise cette fonction:

Public Sub RequeryFormAndKeepCurrentlySelectedRecord(f As Form)
Dim Position As Long
  Position = f.CurrentRecord
  f.Requery
  If Position > 1 Then
    f.Recordset.move Position - 1
  End If
End Sub

InformationsquelleAutor Falo

Vous devez vous connecter pour publier un commentaire.