تقسيم المبلغ الى خانتين؟؟

أبسط الطرق

Private Sub Text6_AfterUpdate()
Me.Text8 = Int(Me.Text6)
Me.Text10 = Round((Me.Text6 - Me.Text8) * 1000, 0)
End Sub

حيث text6 هو مربع النص الذي تكتب به القيمة فتنقسم الي الصحيح فى text8 و الكسور فى text 10

و هناك طرق اكثر احترافا

مثل ايجاد مكان العلامة العشرية و استنتاج الباقي منها

كما فى دوال التفقيط الموجودة فى الارشيف

السلام عليكم..

شكراً لك... لكن الطريقة لم تنجح معي بالتقرير

اريدها فلس و دينار

اعتقد عن طريق استعلام يكون احسن ..

فما هي الطريقة عن طريق الاستعلام

يعني فصل ملبغ مثلا 123456.123

123 فلس ودينار 123456

وشكراً

:cool:

ما سبق كلن للفورم

أما فى الاستعلام فيمكن تطبيق نفس المفهوم بالطريقة التالية

لنفرض أن لديك حقل به قيمة و اسمه x

و سنقسم قيمته فى الاستعلام الي حقلين

x1: +Int([x])
x2: Round(([X]-[X1])*1000;0)

و فى حالة العملات التي وحدتها مائة نغير الالف الي مائة

http://www.arabteam2000.com/vb/showthread....53034#post53034