توزيع عشوائي

[أحمد خلف]

اخواني الكرام

ارجو منكم ان تفيدوني في هذا الموضوع.

عندي رقم معين اريد توزيعه عشوائيا علي عدد معين من السجلات

مرفق معه نموذج ارجو التعديل عليه وافادتي.

db1.rar

[ابو ياسر]

اخي الكريم

المطلوب غير واضح !!

هناك حقل للكمية وحقل اخر للعد وزر للتوزيع وحقول بمسميات مختلفة

اي حقل سيتم توزيعه ؟ وما هي الحقول التي ستأخذ هذا التوزيع ؟

[أحمد خلف]

السلام عليكم اخي ابو ياسر

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

وليس مهما العمود الذي يتم فية التوزيع حيث تهمني الكيفية فقط.

والله الموفق.

[غرام العقول]

أرجو أن تجد في التعديل مبتغاك.

RndNum.rar

[أحمد خلف]

اخي الكريم بارك الله فيك

ولكن انا اريد ان يكون مجموع الرقم الموزع يساوي الرقم الموجود بالكمية وعدد السجلات يكون مساوي للرقم الموجود في العدد.

والله الموفق.

[ابو ياسر]

تفضل اخي واتمنى ان يكون هو مطلوبك

RndNumUP.rar

[عبد الفتاح كيرة]

ممتاز جدا أبا ياسر

فكرة جميلة

تعديل بسيط على الكود

Private Sub BT_Click()

If IsNull(Me.QNT) Or Me.QNT = "" Then Exit Sub

Dim i, z As Integer

z = Val(Me.Num)

For i = 1 To z

DoCmd.GoToRecord , , acNewRec

Me.SPalet = Round((Me.QNT  / z), 2)

Next

End Sub

حيث القسمة على z حقل العدد

وشكرا

تم تعديل مارس 30, 2012 بواسطه kemas

[أحمد خلف]

اخواني الأعزاء

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

ولكن ان يكون التوزيع عشوائي اي ان الأرقام لا يشترط ان تكون متساويه.

والله الموفق.