كيف يتم توليد رقم عشوائي في سجل في الجدول

[حامل المسك]

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

وأسعد الله أوقاتكم بالمسرات والخيرات ..

أساتذتي الفضلاء ..

لدي جدول يحوي مجموعة من مسميات البرامج أريد أن يضع لكل برنامجا كود "رقم عشوائي مثلا" يكون خاصا بهذا البرنامج ولا يتكرر ..

مع جزيل الشكر وعظيم الامتنان ..

تم تعديل يناير 12, 2016 بواسطه حامل المسك

[ابوخليل]

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

مرحبا استاذنا الكريم ابا انس

وجدت لك مثالا بهذا الخصوص للاستاذة زهرة 

تفضل :

zaRandNewNumber.rar

[حامل المسك]

مثال رائع جدا .. والأروع منه أنت أبا خليل..

طبقته وظهرت مشكلة هي أنه في حال الإدخال يتحدث النموذج دون أن ينتقل المؤشر إلى السجل التالي ..

مرفق المثال للنظر وفقكم الله ..

قاعدة البيانات4.rar

[ابوخليل]

بارك الله فيك

احفظ  الملف على 2003 ثم ارفعه

[حامل المسك]

تفضل أسعدك الله

قاعدة البيان2003ات4.rar

[ابوخليل]

نعم  كما ذكرت

والسبب ان العملية اصلا لتوليد رقم تلقائي عشوائي لسجل واحد جديد

 وانت تريد ادراج ارقام  عشوائية فريدة لسجلات موجودة

 سأنظر في هذا 

هل تريدها عبر النموذج المستمر ام عبر الجدول مباشرة ؟

 

هذه عبر النموذج :

حامل المسك.rar

[حامل المسك]

أسعدك ربي ووفقك إذا أمكن من خلال الجدول مباشرة فهذا عين المطلوب مع ملاحظة عدم تكرار الرقم..

[ابوخليل]

تفضل :

جعلت معامل الضرب  x خمسة ارقام  فظهر تكرار مرتين فقط  خلال 540 سجل

ثم جعلت معامل الضرب x تسعة  فاختفى التكرار تماما 

يمكنك التجربة والملاحظة

تنبيه : لا يمكننا جعل الحقل مفتاحا او غير قابل للتكرار  لأنه في الاصل  عبارة عن حقول فارغة مكررة

ترقيم عشوائي عبر الجدول.rar

[محمد سلامة]

السلام عليكم

طريقة جميله .. تفتح افكارا جديدة 

[ابوخليل]

اخي محمد شكرا لمرورك وتقييمك

اخي حامل المسك

يمكنك فحص التكرار بواسطة انشاء استعلام تجميعي تعد فيه هذه الارقام

        

[حامل المسك]

ممتاز ورائع ..

لكن هناك إشكال في حال طلب الترقيم يتم تغيير كل الأرقام السابقة ويتغير الكود الذي يفترض أن يبقى ثابتا للشخص ولا يتغير ..

أما مشكلة التكرار فيمكن بطريقة أخرى أن نتلافاها ولعلي أبحث فيها بإذن الله ..

8 دقائق مضت, حامل المسك said:

ممتاز ورائع ..

لكن هناك إشكال في حال طلب الترقيم يتم تغيير كل الأرقام السابقة ويتغير الكود الذي يفترض أن يبقى ثابتا للشخص ولا يتغير ..

أما مشكلة التكرار فيمكن بطريقة أخرى أن نتلافاها ولعلي أبحث فيها بإذن الله ..

أما مشكلة التكرار فتم علاجها من خلال الاستعلام  كما في المثال المرفق .. تبقى مسألة ثبات الرقم بحيث لا يتغير البتتتتتتتتتة

ترقيم عشوائي عبر الجدول.rar

[ابوخليل]

معالجة التكرار هذه فكرة ظريفة

ومادام المسألة هكذا فيمكنك اختصار الارقام الى نصف العدد  او اقل

اما  ثبات الارقام  فيمكن تطبيقها بالاستعانة باستعلام  بحيث يكون هو من تجرى عليه العملية بعد وضع المعيار المناسب للتعامل مع الحقول الفارغة فقط :

وهو ماتم عمله من خلال الكود ادناه  انسخه والصقه بدلا من الاول :

Dim db1 As DAO.Database
Dim rs As DAO.Recordset
Set db1 = CurrentDb
Set rs = db1.OpenRecordset("SELECT table1.nox, table1.nameX, table1.id, * " & vbCrLf & _
"FROM table1 " & vbCrLf & _
"WHERE (((table1.id) Is Null))")
If rs.RecordCount > 0 Then
rs.MoveFirst
Else
Exit Sub
End If
Do While Not rs.EOF
rs.Edit
   rs!id = Format(Int(Rnd * 123456789), "0000000")
rs.Update
rs.MoveNext
Loop
rs.Close: Set rs = Nothing

 

[حامل المسك]

ممتاز تمت التجربة ورائعة جدا .. 

لو أحببنا أن نجعل الكود خمسة أرقام فقط ..

[ابوخليل]

3 ساعات مضت, حامل المسك said:

لو أحببنا أن نجعل الكود خمسة أرقام فقط ..

ان كان هذا سؤال ؟

فالاجابة :

اجعل الارقام في الكود  من واحد الى خمسة او من خمسة الى تسعة  او ضع اي خمسة ارقام تريدها

  وبالمثل الاصفار  اجعلها خمسة او 6

جرب  وتلاعب بالارقام  زيادة ونقصا وانظر في النتائج

[حامل المسك]

رائع جدا حبيبنا وفقك الله ..

عدلت الأرقام من لتكون 56789 فكانت خمس خانات ..

سلمت كتب الله أجرك ورفع قدرك وبارك في أهلك ومالك وولدك ..