27-04-13, 07:18 AM
السلام عليكم
- على حسب فمهي مما قرأته من الردود جرب هذا الكود وضعه داخل كود الزر الذي يقوم بالتنفيذ :-
- تحياتي .
- على حسب فمهي مما قرأته من الردود جرب هذا الكود وضعه داخل كود الزر الذي يقوم بالتنفيذ :-
كود :
Dim A As Integer
A = Val(Trim(Text5.Text)) Mod 5
IF A > 0 Then
Text5.Text = Val(Trim(Text5.Text)) + (5-A)
End IF
A = Val(Trim(Text8.Text)) Mod 2
IF A > 0 Then
Text8.Text = Val(Trim(Text8.Text)) + (2-A)
End IF- تحياتي .
