Salut à tous, j'ai un big soucis...
Cette procédure s'exécute à partir du sous-formulaire [Ligne_Devis] du formulaire [Devis]
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
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 ?
Partager