Discussion :

[Tofalu]

Stop aux débat stériles ! Quelle est la question ?

Notion de recordset : http://warin.developpez.com/access/dao
Initiation à Access : htpp://access.developpez.com/cours
FAQ : http://access.developpez.com/faq
Sans oublier Google, et l'aide Access (En ligne si tu ne l'as pas)

De plus on ne commente pas ligne à ligne mais bloc par bloc suivant leur sens

[pascal913]

En fait, tout ce que je vous demande, c'est de m'expliquer "bloc par bloc" (Tofalu que je salue) le code que je vous ai montré dans la toute première discussion.

Merci d'avance pour vos aides.

[LostIN]

Private Sub Form_BeforeInsert(Cancel As Integer)
' => procédure qui va s'éexcuter avant l'insertion
Dim rs As DAO.Recordset
' => déclaration d'un recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)
' => affectation
If rs.EOF Then
' => si on est sur le dernier enregistrement alors
Me!NoFA = 1
' => Dans le champ NoFA (champ de la source de ton form), on met 1
Else
' => sinon
rs.MoveLast
' => on se positionne sur le dernier enregistrement
Me!NoFA = rs!NoFA + 1
' => dans ton champ NoFa, on prend la valeur de rs!NoFa (j'imagine le dernier N°) à laquelle on ajoute 1
End If
' => Fin de l'ordre if then else endif
rs.Close
Set rs = Nothing
' => on ferme le recordset
End Sub
' => fin de la procédure

c'est bon, là, j'ai mis assez de commentaires ?

[Edit par Demco]

[pascal913]

je te remercie LostIN de m'avoir autant éclairci la situation, c'est gentil.

[Edit par Demco]

[Demco]

Je ferme ... pas necessaire d'expliquer pourquoi je pense.