Discussion :

[zine pef]

salut le forum;

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
On Error Resume Next
Data1.Recordset.MoveNext
End Sub
 
Private Sub Command2_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
End Sub
 
Private Sub Text1_Change()
Text5.Text = Val(Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text))
End Sub

mais la cmdSuivant ou cmdPresédant ce bloque
aidez moi SVP

[SfJ5Rpw8]

ben les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error Resume Next

s'en traiter l'erreur ensuite cela n'aide pas trop.... commence par mettre en commentaire ces 2 lignes ... tu aura surement un nouveau message ...

[zine pef]

merçi Mr bil
voila l'erreur