عمل رقم الموظف عشوائي

اختى / رزان

تسطيعى عمل هذا الرقم العشوائى بسهولة

حيث لو افترضنا الاتى :

1 - اسم جدول الموظفين employee

2 - اسم حقل رقم الموظف emp_id

3 - حقل رقم الموظف لابد ان يكون من نوع text (لانه قد يحتوى على اصفار على الشمال)

وبالتالى اذا سجل كرقم سوف تضيع الاصفار و يصبح رقم الموظف اقل من خمس خانات

يكون الكود كالتالى

1- دالة تولد رقم عشوائى

2 - دالة اخرى تتحقق ان الرقم لم يستخدم من قبل

اذا ارجعت true اذا الرقم فريد و تستطيعى استخدامه و اذا ارجعت false اذا الرقم موجود نبغى

تنفيذ الخطوات 1 و 2 مرة اخرى حتى يتم توليد رقم عشوائى فريد من نوعه

و اليك الكود' دالة تولد رقم عشوائى و ترجعه فى متغير نصى
Private Function MakeRandomId() As String
' متغير يحمل رقم عشوائى
Dim Rand_id As Long
'متغير يحمل الرقم فى صورة نص حتى لا تضيع الاصفار
Dim Id_text As String
'طول الرقم
Dim Num_lenth As Integer

'دالة تعمل على تفعيل الارقام العشوائية
Randomize
'نولد رقم عشوائى أقصاه 99999
Rand_id = Fix(Rnd * 99999)
'نضع الرقم فى المتغير النصى
Id_text = Trim(Str(Rand_id))
'نحضر طول الرقم
Num_lenth = Len(Id_text)
'اذا كان اقل من خمسة ارقام
If Num_lenth < 5 Then
'نضيف اصفار من الشمال حتى يصل الى خمس ارقام
For n = 1 To 5 - Num_lenth
Id_text = "0" + Id_text
Next n


End If

'ارجاع الرقم المولد
MakeRandomId = Id_text
End Function

' دالة ترجع صح اذا كان الرقم لم يستخدم من قبل فى قاعدة البيانات
Private Function CHK_Unique_Id(ByVal ID As String) As Boolean
Dim rs As Recordset
'استقسار عن الرقم
sql = "select * from employee where emp_id = '" + ID + "'"
'فتح السجل
rs.open sql, con_string
'اذا كان السجل خالى
If rs.RecordCount <= 0 Then
'اذا الرقم غير موجود من قبل وبذلك نستطيع استخدامه
CHK_Unique_Id = True
Else
'اذا كان السجل ممتلئ اذا الرقم موجود و ينبغى توليد رقم أخر
CHK_Unique_Id = False
End If
End Function

وارجو ان اكون اوفيت

مع خالص تمنياتى بالتقدم

كلمة الشكر قليلة على امثال أفضالك

بارك الله فيك

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

وهذا ما اريد بالضبط

جعلها الله هذا الرد في ميزان اعمالك

اختى رزان

ربنا يقدرنى واعرف اساعد كل طالب علم

وربنا يقدر كل من يساعدنى اذا انا طلبت العلم

و لا شكر على واجب

شرح رائع أخي VB6-Rocket

بارك الله فيك وشكرا

انتم على الرحب و السعة دائما :lol: