مربع نص يحول العدد الى مضاعفات الثمانية

[هاوي]

اخوتي ..

السلام عليكم ورحمة اللة وبركاته .

ماهي الطريقة في جعل مربع النص يحول الرقم المدخل من قبل المستخدم الى مضاعفات الرقم ( 8 ) مثلا:-

لو أن المستخدم أدخل الرقم 15 في مربع النص , فأن يتم تقريب بزيادة الى 16

وأيضا لو تم إدخال الرقم 35 فيتم التقريب بزيادة الى 40 وهكذا ..

وجزاكم الله خيرا

[osama457]

السلام عليكم

نموذج فيه مربعين نص txt1 و txt2

الاول للادخال والثاني للنتيجة

في خصايص المربع الاول txt1 في حدث بعد التحديث

Private Sub Txt1_AfterUpdate()
If Not IsNumeric(Nz(Me.Txt1, 0)) Then Exit Sub
If Nz(Me.Txt1, 0) Mod 8 <> 0 Then
Me.Txt2 = Nz(Me.Txt1, 0) + (8 - (Nz(Me.Txt1, 0) Mod 8))
Else
Me.Txt2 = Nz(Me.Txt1, 0)
End If
End Sub

والمثال المرفق فيه افكار قريبة

ChangeTo8_2.zip

تم تعديل يناير 5, 2004 بواسطه osama457

[هاوي]

شكرا لك ياأخي .

وجعلة الله في موازين حسناتك