اذهب الي المحتوي
أوفيسنا

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

solventer

بواسطه solventer
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by رمهان,

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

solventer

solventer

قام بنشر
قام بنشر (معدل)

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

تم تعديل بواسطه solventer
مساعده صديق
رابط هذا التعليق
شارك
رمهان

رمهان

قام بنشر
قام بنشر

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

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

في كود البحث 

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك
solventer

solventer

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

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

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

 

رابط هذا التعليق
شارك
solventer

solventer

قام بنشر
  • الكاتب
قام بنشر
On ١‏/٤‏/٢٠١٦ at 0:19 AM, solventer said:

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

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

 

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

 

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

رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر

السلام عليكم شباب :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

  • Like 2
رابط هذا التعليق
شارك
solventer

solventer

قام بنشر
  • الكاتب
قام بنشر
9 hours ago, jjafferr said:

السلام عليكم شباب :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

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

 

رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر

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

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

 

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

 

 

جعفر

  • Like 1
رابط هذا التعليق
شارك
  • أفضل إجابة
رمهان

رمهان

قام بنشر
  • أفضل إجابة
قام بنشر
في 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

بالتوفيق

  • Thanks 1
رابط هذا التعليق
شارك
solventer

solventer

قام بنشر
  • الكاتب
قام بنشر
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

بالتوفيق

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

 

رابط هذا التعليق
شارك
solventer

solventer

قام بنشر
  • الكاتب
قام بنشر
5 hours ago, jjafferr said:

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

 

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

 

جعفر

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept