Bonjour tout le monde !
Ce que vais vous demander n'est certainement pas le plus rigolo, mais je suis dans l'obligation d'expliquer ce que des codes signifient. Mais le souci est que je ne comprends pas 1 mot du langage VB et que je n'ai pas le temps de regarder les aides et de chercher ce que telle ligne de code veut dire et fait, car j'été trop occupé à faire fonctionner un autre logiciel.
C'est un travail ingras mais qui est obligatoire pour moi. Je vous demande seulement un commentaire très court et simple de chaque ligne ou global si vous n'avez pas envie ou le temps de le faire par ligne. Ne vous inquiétez pas, les codes ne sont pas longs. En voici un :
Voilà, merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Form_BeforeInsert(Cancel As Integer) Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot) If rs.EOF Then Me!NoFA = 1 Else rs.MoveLast Me!NoFA = rs!NoFA + 1 End If rs.Close Set rs = Nothing End Sub
Partager