1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Sub AjoutVal(Valeur As Integer, Liste As Object)
Dim min As Integer
Dim max As Integer
Form_Frm_Anes.Sfrm_Donnees_Anes.SetFocus
Dim i As Integer
min = Liste.ItemData(i)
max = Liste.ItemData(i)
For i = 1 To Liste.ListCount
If Liste.ItemData(i) < min Then
min = Liste.ItemData(i)
ElseIf Liste.ItemData(i) > max Then
max = Liste.ItemData(i)
End If
Next i
If Valeur < min Then
While min - Valeur >= 1
DoCmd.GoToRecord , , acNewRec
Liste.Value = min - 1
min = min - 1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Liste.Requery
Wend
ElseIf Valeur > max Then
While Valeur - max >= 1
DoCmd.GoToRecord , , acNewRec
Liste.Value = max + 1
max = max + 1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Liste.Requery
Wend
End If
End Sub |
Partager