salut le forum;
voici le code
mais la cmdSuivant ou cmdPresédant ce bloque
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
aidez moi SVP
Partager