FAQ access 2007

Private Sub Commande2_Click()
On Error GoTo err
    Me.MaListe.SetFocus
    DoCmd.RunCommand acCmdEditListItems
    
fin:
    Exit Sub
    
err:
    With err
        'Autorise l'annulation de la saisie
        If .Number <> 2501 Then err.Raise .Number, .Source, .Description
    End With
    Resume fin
End Sub

	Private Sub ZoneTexte_KeyDown(KeyCode As Integer, Shift as Integer)
	KeyCode=0
	End Sub

Private Sub Form_Current()
On Error GoTo err
    Dim strCaption As String
    Dim oRst As DAO.Recordset
    Set oRst = Me.RecordsetClone
    With oRst
    'passe au client suivant
        .MoveNext
        If .EOF Then
            'Si aucun, on recule de deux
            oRst.Move -2
            strCaption = "Prec. : " & .Fields("nomclient")
        Else
            strCaption = "Suiv. : " & .Fields("nomclient")
        End If
    End With
fin:
Me.NavigationCaption = strCaption
Exit Sub

err:
    strCaption = "Enr."
    Resume fin
End Sub

Me.Refresh
Forms("Frm_principal").Requery
DoCmd.Close acForm, Me.Name