Accès: passer à l'enregistrement suivant jusqu'à ce que EOF

J'ai besoin de boucle par le biais d'un formulaire par passer à l'enregistrement suivant dans le jeu d'enregistrements.

Je suis en utilisant le Form_Current événement à boucle à travers.
J'ai utilisé un couple de déclarations et d'avoir des résultats différents.

Ce une plante parfois et donne le message d'erreur: "Vous ne pouvez pas aller à l'enregistrement spécifié."

DoCmd.GoToRecord , , acNext

Ce l'on ne va que jusqu'à 72 dossiers et s'arrête.

DoCmd.RunCommand acCmdRecordsGoToNext

Ce l'on ne va que jusqu'à 129 dossiers et s'arrête.

Me.Recordset.MoveNext

Essayant de trouver une instruction qui va passer à l'enregistrement suivant jusqu'à ce qu'il atteigne la Fin du Fichier.
Je suis à l'aide de Access 2010 (Access 2002 -2003 format de fichier mdb) de l'extrémité avant. La source est un Serveur SQL server 2008 liée Vue.

Je suis en utilisant un contrôle ActiveX sur la Forme et la nécessité de traiter chaque dossier individuellement.

OriginalL'auteur Rick | 2011-06-15

  1. 8

    À boucle à partir de l'enregistrement courant de la fin:

    While Me.CurrentRecord < Me.Recordset.RecordCount
    ' ... do something to current record
    ' ...

    DoCmd.GoToRecord Record:=acNext
Wend

    Pour vérifier s'il est possible d'aller à l'enregistrement suivant:

    If Me.CurrentRecord < Me.Recordset.RecordCount Then
    ' ...
End If

    OriginalL'auteur codeape

  2. 3
    If (Not IsNull(Me.id.Value)) Then
DoCmd.GoToRecord , , acNext
End If

    Salut,
    vous avez besoin de mettre cela en forme activer, et ont un champ id nommée id...

    de cette manière, il passe jusqu'à ce qu'il atteigne l'un sans l'id (AKA nouvelle)...

    OriginalL'auteur fingerman

  3. 3

    Je l'ai fait dans le passé, et ont toujours utilisé ce:

      With Me.RecordsetClone
    .MoveFirst
    Do Until .EOF
      If Me.Dirty Then
         Me.Dirty = False
      End If
      .MoveNext
      Me.Bookmark = .Bookmark
    Loop
  End With

    Certaines personnes d'utiliser le formulaire du jeu d'enregistrements, qui ne nécessite pas de réglage de l'signet (c'est à dire, la navigation de jeu d'enregistrements du formulaire navigue à la forme du tampon d'édition automatiquement, de sorte que l'utilisateur voit le déplacer immédiatement), mais je préfère l'indirection de la RecordsetClone.

    OriginalL'auteur David-W-Fenton

  4. 2
    Set rs = me.RecordsetClone
rs.Bookmark = me.Bookmark
Do
    rs.movenext
Loop until rs.eof
    J'ai mis un signet pour la boucle de commencer à l'enregistrement en cours. Il a d'abord dit qu'il avait besoin d'une boucle sur les enregistrements, ce qui n'implique pas de déplacer le formulaire lui-même.
    Hmm. Bon point sur la différence entre la RecordsetClone et le formulaire d'édition/affichage de la mémoire tampon -- qui est le recordsetclone signet navigue dans les RecordsetClone indépendamment de la forme du pointeur d'enregistrement. Et vous pouvez faire des modifications sans modification de l'affichage de la mémoire tampon. Donc, j'ai supprimé mon commentaire. Cependant, si le contrôle ActiveX est nécessaire de modifier l'enregistrement, alors que sûrement a à faire dans le formulaire d'édition/affichage de la mémoire tampon, non seulement dans la RecordsetClone, en tant que contrôle ActiveX ne seront en mesure de fonctionner sur la forme du tampon d'édition (c'est à dire, ce qui est affiché).

    OriginalL'auteur Patrick Honorez

  5. -1

    Ajouter Ce Code sur le Formulaire à Proximité de l'Événement si vous ajoutez un nouvel enregistrement ou la supprimer, il va recréer les Clés Primaires de 1 à Dernier enregistrement.Ce code ne sera pas déranger les autres colonnes du tableau.

    Sub updatePrimaryKeysOnFormClose()
    Dim i, rcount As Integer
    'Declare some object variables
    Dim dbLib As Database
    Dim rsTable1 As Recordset
    'Set dbLib to the current database (i.e. LIBRARY)
    Set dbLib = CurrentDb
    'Open a recordset object for the Table1 table
    Set rsTable1 = dbLib.OpenRecordset("Table1")
    rcount = rsTable1.RecordCount
    '== Add New Record ============================  
        For i = 1 To rcount
              With rsTable1
                      rsTable1.Edit  
                      rsTable1.Fields(0) = i  
                      rsTable1.Update  
                      '-- Go to Next Record ---  
                      rsTable1.MoveNext
             End With  
        Next  
        Set rsTable1 = rsTable1
End Sub

    OriginalL'auteur sajid