كيف يقوم البرنامج باخيار حقول عشوائية

لمعرفة عدد السجلات

dim SQL as String

 SQL = "select * from TabelName"
rs.Open SQL, db, adOpenStatic, adLockPessimistic

dim x as Integer
Do while rs.Eof = false
rs.MoveNext
x = x+1
loop

msgbox x

أما الباقي فإبحث عن دوال توليد أرقام عشوائية لأني ماعرفهاش

بس حط الشرط انه يكون محصور من 1 الى X

وبعد توليد الرقم العشوائي وليكن 7 مثلا

هاتكتب

rs.move (7)

حتى تذهب الى السجل رقم 7

بس مش عارف الكود صح 100% ولا لأ

بس هي تبع الخاصية Move

اما حكاية انه مايعرضش السجل غير مرة واحدة

فانت المطلوب منك ان تخزن الرقم العشوائي اللي تم إنتاجه في مكان وليكن الريجستر او ملف INI

عليك بالبحث عنهم او انتظر اخواننا الأعضاء للرد عليك بطريقة صحيحة 100%

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

Dim RanNo() As Long 
Private Sub RandomizeNumbers(ByVal iFrom As Integer, ByVal iTo As Integer) 
ReDim RanNo(iFrom To iTo) 
For i = iFrom To iTo 
RanNo(i) = i 
Next i 
Randomize (Timer) 
For i = iFrom To iTo 
j = CInt((iTo - iFrom) * Rnd + iFrom) 
tmp = RanNo(i) 
RanNo(i) = RanNo(j) 
RanNo(j) = tmp 
Next i 
End Sub 
Private Sub form_load() 
RandomizeNumbers 0, rs.recordcount-1



End Sub

اصبحت المصفوفة RanNo تحوي على ارقام عشوائية مثلا من 1-15

بعد ذلك لعرض سجل عشوائي استخدم

rs.Move ranNO(0), adBookmarkFirst

لعرض الثاني

rs.Move ranNO(1), adBookmarkFirst

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

السلام عليكم أحبائي/

أشكركم على مشاركاتكم

اقتباس

يحصر عدد السجلات في قاعدة البيانات

أسرع طريقة لمعرفة أي عدد للسجلات هي عن طريق الأمر المبني داخل Access وهو الــــ DCount. وطريقة استخدام الدلة كما يلي:

Dim count as Integer
count = DCount("*","اسم الجدول")

ولكن هذا على مستوى جدول واحد محدد، وقد ذكرت أعلاه السجلات في قاعدة البيانات وهذا يستلزم كودي إضافي لجمع محصلة عدد السجلات في كافة الجداول. تم استبعاد كافة جداول المنشأة من قبل النظام والتي تبدأ بــ MSys، والكود كما يلي:

Function countInAllTables() As Integer
Dim tblDef As TableDef
For Each tblDef In CurrentDb.TableDefs
   If Left$(tblDef.Name, 4) <> "MSys" Then
	countInAllTables = countInAllTables + DCount("*", tblDef.Name)
   End If
Next tblDef
End Function

ويتم استخدام الدلة كما يلي:

Dim countAll  as Integer
countAll = countInAllTables

وقبل القيام بإعداد الكود للحصول على سجلات عشوائية أود معرفة الطريقة التي ستستخدم بها البرنامج، وهل سيكون مصدر السجلات العشوائية من جدول واحد أو عدة جدول؟

ولكن بشكل مبدئي الكود\ سيكون قريب من الأتي:

Int ((upperbound - lowerbound + 1) * Rnd + lowerbound)

حيث upperbound هي أكبر قيمة

و lowerbound أصغر قيمة

وعن الإجابة عن الاستفسار يمكن تطبيق عملية عدم التكرار، وسيتم ذلك هن طريق تعريف قيمة دولية (Global) أو محلية حسب عدد الفورمز التي ستتعامل معها.

ولكم جزيل الشكر والتقدير

أخوكم/ فرا س ناصر

مشكورين وماقصرتو للأعضاء جميعاً إلي ردو

والسلام عليكم