Salut à tous, j'ai un big soucis...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub btnMargeU_Click()
MajMar = InputBox("Entrer la marge à appliquer - Exemple : Pour une marge de 25%, tapez 25")
If Len(MajMar) > 0 Then
    MajMar = MajMar / 100
    DoCmd.GoToRecord , , acFirst
    If [PPA] = False Then
                [MARGE] = MajMar
                DoCmd.RunMacro "LigneDevisSF.CalCulPUHT"
        End If
    cptEnr = 0
    For cptEnr = 0 To [NBR]
        DoCmd.GoToRecord , , acNext   '******* ici *******
        If [PPA] = False Then
                [MARGE] = MajMar
                DoCmd.RunMacro "LigneDevisSF.CalCulPUHT"
        End If
        MsgBox cptEnr & " sur " & [NBR] & " - " & [REF]
    Next cptEnr
Else
MsgBox "Opération Annulée", vbOKOnly, "Annulation"
End If
End Sub
Cette procédure s'exécute à partir du sous-formulaire [Ligne_Devis] du formulaire [Devis]

je travaille sous Access 2000 et lorsque j'execute cette procédure, le déplacement vers l'enregistrement suivant ne se fait pas, pourquoi ?

Merci pour votre aide.

PS : connaissez vous de bons sites pour développeur VB débutant ?