toofe

بسم الله الرحمن الرحيم

الاخوان الاعزاء في المنتدى 

لدي قاعدة بيانات مطلوب فيها اختيار عشوائي لموظفين تحدد القيمة من حقل نصي والمطلوب عدم التكرار في كل مرة بالمقارنة مع حقل صح او خطا 
المشكلة تكمن بالطريقة الصحيحة لوضع

dlookup

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

test.rar

شكرا جزيلا للكل

On 3/31/2016 at 5:33 PM, عبدالرحمن هاشم said:

السلام عليكم

جرب أخي هذا التعديل

 

Dim y As Integer
y = DCount("ss", "test", "ss=-1")
MsgBox y

 

 

 

جزاك الله خير جزاء المحسنين مع جزيل الشكر

بسم الله الرحمن الرحيم 

الاخوان الاعزاء في المنتدى 

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

test.rar

7 hours ago, سعيد صواب said:

حياك الله اخي الكريم

اضغط المثال وارفقه 

بالتوفيق

الاخ العزيز شكرا على الرد ولكن الملف اكبر من المسموح حتى بعد الضغط

بسم الله الرحمن الرحيم 

 لدي قاعدة بيانات تحتوي على معرف واسم و لدي كود يعمل راندوم بعد اختيار قيمة الراندوم من تيكست بوكس وكل هذا يعمل على المعرف وهو (الاي دي) احتاج عمل نفس الكود ولكن على الاسماء والكود كالتالي  وتعذر علي رفع قاعدة البيانات لصغر حجم الملفات المرفوعة ارجو المساعدة قدر الامكان مع الشكر الجزيل

Dim SQL As String
   Dim sWhere As String
   Dim iCount As Integer
   Dim i As Integer
   Dim j As Integer
   Dim iSelectHowMany As Integer
   Dim aSel() As Integer
   Dim IsRepeated As Boolean
   Dim vItem As Variant
   Dim rc As Recordset
   Dim x As Integer
    Set rc = CurrentDb.OpenRecordset("test")
    x = rc.RecordCount
   
    If IsNull(Me.Text12) Or Me.Text12 = 0 Then
       re = MsgBox(not null, 0, xxx)
       Else
    If Text12.Value > x Then
    re = MsgBox(not null, 0, xxx)
  Else
    
     iSelectHowMany = Text12.Value
     SQL = "Select * from [test]"
   
   ' Find number of records in table.
   iCount = DCount("*", "test")
   
   Randomize
   i = Int(iCount * Rnd()) + 1
   ReDim aSel(0)
   aSel(0) = i
     
   j = 1
   Do While j < iSelectHowMany
     IsRepeated = False
     Do While Not IsRepeated
       i = Int(iCount * Rnd()) + 1
         
       For Each vItem In aSel
         If vItem = i Then
           IsRepeated = True
           Exit For
         End If
       Next vItem
     
       If Not IsRepeated Then
         ReDim Preserve aSel(j)
         aSel(j) = i
         j = j + 1
         Exit Do
       End If
     Loop
   Loop
      
   For Each vItem In aSel
     sWhere = sWhere & ", " & vItem
   SQL = SQL & " where [ID] in (" & Mid(sWhere, 2) & ")"
    'MsgBox SQL
   Me.test.Form.RecordSource = SQL
   End If
End If
End Sub