تسلسل نتائج البحث حسب طريقة البحث

solventer · أبريل 1, 2016

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

تم تعديل أبريل 1, 2016 بواسطه solventer
مساعده صديق

**رمهان** · أبريل 1, 2016

ارفق مثالا اخي ! سؤال بيشغل البطيخة !

solventer · أبريل 1, 2016

40 minutes ago, رمهان said:

ارفق مثالا اخي ! سؤال بيشغل البطيخة !

تمام والمرفق مع حضرتك

test2(2).rar

**رمهان** · أبريل 1, 2016

ايه السؤال ده ياراجل ؟!!!

بس خليني اقدم لك حاجه او تصبيره

في كود البحث

Private Sub cmbsearch_Click()
On Error Resume Next
Me!esano_1.Form.RecordSource = "esano1"
esano_1.Requery
Me.Refresh
End Sub

انت تحتاج فقط me.refresh

وعودة للسؤال فماهي الحاجة الفعليه او فائدتها بالنسبة لك ؟ او بالتحديد في مثالك ؟

والله المستعان :wub:

solventer · أبريل 1, 2016

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

لو حابب سؤال جننى فعلا
فى اخ كان عمل ابلود لملف للمستودعات لكن فيه مشاكل لو حابب ممكن ارفعه وحضرتك والاخوه تشوفوا ايه الحل معاه

5 minutes ago, solventer said:

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

لو حابب سؤال جننى فعلا
فى اخ كان عمل ابلود لملف للمستودعات لكن فيه مشاكل لو حابب ممكن ارفعه وحضرتك والاخوه تشوفوا ايه الحل معاه

1 hour ago, رمهان said:
ايه السؤال ده ياراجل ؟!!!

بس خليني اقدم لك حاجه او تصبيره

في كود البحث
Private Sub cmbsearch_Click()
On Error Resume Next
Me!esano_1.Form.RecordSource = "esano1"
esano_1.Requery
Me.Refresh
End Sub
انت تحتاج فقط me.refresh

وعودة للسؤال فماهي الحاجة الفعليه او فائدتها بالنسبة لك ؟ او بالتحديد في مثالك ؟

والله المستعان

الكود me.refresh موجود فعلا

solventer · أبريل 2, 2016

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

solventer · أبريل 3, 2016

On ١‏/٤‏/٢٠١٦ at 0:19 AM, solventer said:

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

لو حابب سؤال جننى فعلا
فى اخ كان عمل ابلود لملف للمستودعات لكن فيه مشاكل لو حابب ممكن ارفعه وحضرتك والاخوه تشوفوا ايه الحل معاه

الكود me.refresh موجود فعلا

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

solventer · أبريل 9, 2016

كده الموضوع كبير والبطيخه غلبت معانا

للرفع لو سمحتم

**jjafferr** · أبريل 13, 2016

السلام عليكم شباب :rol:

الطريقة اللي جائت على بالي ، هي عمل جدول مؤقت متسلسلة بارقام الايصال:

362.Clipboard04.jpg

.

وهذا اصبح كود زر البحث ،

حيث يحذف جميع مكونات الجدول المؤقت tbl_Temp ،

ثم يُدخل ارقام البحث بالتسلسل الى الجدول المؤقت tbl_Temp:

Private Sub cmbsearch_Click()
On Error GoTo err_cmbsearch_Click

    'delete all the values of tbl_Temp
    CurrentDb.Execute ("Delete * From tbl_Temp")
    

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From tbl_Temp")
    
    'check if there are values for search
    
    If Len(Me.inv1 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv1: rst.Update
    End If
    
    If Len(Me.inv2 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv2: rst.Update
    End If
        
    If Len(Me.inv3 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv3: rst.Update
    End If
        
    If Len(Me.inv4 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv4: rst.Update
    End If
    
    If Len(Me.inv5 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv5: rst.Update
    End If
    
    If Len(Me.inv6 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv6: rst.Update
    End If
    
    If Len(Me.inv7 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv7: rst.Update
    End If
    
    If Len(Me.inv8 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv8: rst.Update
    End If
    
    If Len(Me.inv9 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv9: rst.Update
    End If
    
    If Len(Me.inv10 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv10: rst.Update
    End If
    
    If Len(Me.inv11 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv11: rst.Update
    End If
    
    If Len(Me.inv12 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv12: rst.Update
    End If
    
    If Len(Me.inv13 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv13: rst.Update
    End If
    
    If Len(Me.inv14 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv14: rst.Update
    End If
    
    If Len(Me.inv15 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv15: rst.Update
    End If
    
    If Len(Me.inv16 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv16: rst.Update
    End If
    
    If Len(Me.inv17 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv17: rst.Update
    End If
    
    If Len(Me.inv18 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv18: rst.Update
    End If
    
    If Len(Me.inv19 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv19: rst.Update
    End If
    
    If Len(Me.inv20 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv20: rst.Update
    End If
    
    If Len(Me.inv21 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv21: rst.Update
    End If
    
    Me!esano_1.Form.RecordSource = "qry_esano1"
    esano_1.Requery

    rst.Close: Set rst = Nothing
    
Exit Sub
err_cmbsearch_Click:

    If Err.Number = 1 Then
    
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

End Sub

.

هذا الاستعلام اصبح مصدر للنموذج الفرعي:

362.Clipboard05.jpg

.

والنتيجة (لاحظ تسلسل السجلات في النموذج الفرعي ، والتي اصبحت بنفس تسلسل ارقام البحث) :

362.Clipboard01.jpg

.

وحتى اذا فيه ارقام فاضية في خانات البحث ، كذلك يعطيك الترتيب:

362.Clipboard02.jpg

.

بس علشان احاول افرق/اميز بين خانات البحث المليانه ، والخانات الفاضية ، اصبح النموذج:

362.Clipboard03.jpg

.

وهذه طريقة عمل التفريق/التمييز بين خانات البحث المليانه ، والخانات الفاضية:

362.Conditional_Formating.gif

.

جعفر

362.test2.accdb.zip

solventer · أبريل 13, 2016

9 hours ago, jjafferr said:

السلام عليكم شباب :rol:

الطريقة اللي جائت على بالي ، هي عمل جدول مؤقت متسلسلة بارقام الايصال:

.

وهذا اصبح كود زر البحث ،

حيث يحذف جميع مكونات الجدول المؤقت tbl_Temp ،

ثم يُدخل ارقام البحث بالتسلسل الى الجدول المؤقت tbl_Temp:


Private Sub cmbsearch_Click()
On Error GoTo err_cmbsearch_Click

    'delete all the values of tbl_Temp
    CurrentDb.Execute ("Delete * From tbl_Temp")
    

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Select * From tbl_Temp")
    
    'check if there are values for search
    
    If Len(Me.inv1 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv1: rst.Update
    End If
    
    If Len(Me.inv2 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv2: rst.Update
    End If
        
    If Len(Me.inv3 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv3: rst.Update
    End If
        
    If Len(Me.inv4 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv4: rst.Update
    End If
    
    If Len(Me.inv5 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv5: rst.Update
    End If
    
    If Len(Me.inv6 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv6: rst.Update
    End If
    
    If Len(Me.inv7 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv7: rst.Update
    End If
    
    If Len(Me.inv8 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv8: rst.Update
    End If
    
    If Len(Me.inv9 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv9: rst.Update
    End If
    
    If Len(Me.inv10 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv10: rst.Update
    End If
    
    If Len(Me.inv11 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv11: rst.Update
    End If
    
    If Len(Me.inv12 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv12: rst.Update
    End If
    
    If Len(Me.inv13 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv13: rst.Update
    End If
    
    If Len(Me.inv14 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv14: rst.Update
    End If
    
    If Len(Me.inv15 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv15: rst.Update
    End If
    
    If Len(Me.inv16 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv16: rst.Update
    End If
    
    If Len(Me.inv17 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv17: rst.Update
    End If
    
    If Len(Me.inv18 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv18: rst.Update
    End If
    
    If Len(Me.inv19 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv19: rst.Update
    End If
    
    If Len(Me.inv20 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv20: rst.Update
    End If
    
    If Len(Me.inv21 & "") <>  Then
        rst.AddNew: rst!Temp_ID = Me.inv21: rst.Update
    End If
    
    Me!esano_1.Form.RecordSource = "qry_esano1"
    esano_1.Requery

    rst.Close: Set rst = Nothing
    
Exit Sub
err_cmbsearch_Click:

    If Err.Number = 1 Then
    
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

End Sub

.

هذا الاستعلام اصبح مصدر للنموذج الفرعي:

.

والنتيجة (لاحظ تسلسل السجلات في النموذج الفرعي ، والتي اصبحت بنفس تسلسل ارقام البحث) :

.

وحتى اذا فيه ارقام فاضية في خانات البحث ، كذلك يعطيك الترتيب:

.

بس علشان احاول افرق/اميز بين خانات البحث المليانه ، والخانات الفاضية ، اصبح النموذج:

.

وهذه طريقة عمل التفريق/التمييز بين خانات البحث المليانه ، والخانات الفاضية:

.

جعفر

362.test2.accdb.zip

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

**jjafferr** · أبريل 13, 2016

انا لم افعل اي شئ للزر "بحث جديد" ، فلا اعلم ما يعمل ،

وكلما ضغطت على زر البحث ، فانه يحذف جميع البيانات السابقة في الجدول المؤقت ، ثم يأخذ البيانات الموجودة للبحث.

رجاء توضيح المشكلة بالارقام الموجودة ، حتى استطيع ان اعملها بنفسي واراها :rol:

جعفر

**رمهان** · أبريل 13, 2016

في 4/9/2016 at 02:45, solventer said:

كده الموضوع كبير والبطيخه غلبت معانا

للرفع لو سمحتم

السلام عليكم

ضع هذا الكود خلف زر البحث وكما هو ظاهر

وان شاء الله احصل وقت واختزل الكود اكثر

Private Sub cmbsearch_Click()
xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
n = ""
For i = 1 To 20
If Not IsNull(Me("inv" & i)) Then
xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
n = Me("inv" & i)
End If
Next i
If n = "" Then
xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
Else
xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1)
End If
Me.esano_1.Form.RecordSource = xsql
Me.Refresh
End Sub

بالتوفيق

solventer · أبريل 13, 2016

5 minutes ago, رمهان said:

السلام عليكم

ضع هذا الكود خلف زر البحث وكما هو ظاهر

وان شاء الله احصل وقت واختزل الكود اكثر


Private Sub cmbsearch_Click()
xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
n = ""
For i = 1 To 20
If Not IsNull(Me("inv" & i)) Then
xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
n = Me("inv" & i)
End If
Next i
If n = "" Then
xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
Else
xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1)
End If
Me.esano_1.Form.RecordSource = xsql
Me.Refresh
End Sub

بالتوفيق

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

**jjafferr** · أبريل 13, 2016

13 دقائق مضت, رمهان said:

السلام عليكم

وعليكم السلام أخوي رمهان :rol:

مثل القمر ، تطل علينا في منتصف كل شهر بكامل نوره :rol:

جعفر

solventer · أبريل 14, 2016

5 hours ago, jjafferr said:

وعليكم السلام أخوي رمهان

مثل القمر ، تطل علينا في منتصف كل شهر بكامل نوره

جعفر

بشكرك استاذ جعفر على المساعده بتاعتك للمره الالف وفعلا اخ ويارب تدوم المعرفه والمحبة

وطبعا بشكر استاذ رمهان اللى فعلا الكود بتاعه فادنى كتيييير فعلا واختفى قبل ما اشكرة على المجهود الجميل والمتعب بالنسبه له
وفعلا والله الموقع الوحيد اللى فيه ناس بتحب الناس وبتحب تساعد غيرهم والحمدلله مفيش حد متكبر على حد
ربنا يديم المحبة اللهم آمين

تسجيل الدخول

تسلسل نتائج البحث حسب طريقة البحث

الردود الموصى بها

solventer

رمهان

solventer

رمهان

solventer

solventer

solventer

solventer

jjafferr

solventer

jjafferr

رمهان

solventer

jjafferr

solventer

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information