احتاج تغيير في الفلترة والبحث والفرز

[ابوعبدالله 2030]

السلام عليكم ورحمة الله وبركاته

مرفق قاعدة بيانات احتاج فقط فيها الى مايلى 

1- عند ضغط زر بحث فردى بالنموذج Temp يظهر نموذج search  وعند البحث تظهر النتائج اما بطريقة تصاعدية او منوعة  وانا اريد ان تظهر نتائج البحث بطريقة تنازلية مثل الفرز التنازلى عندما تضغط ماوس يمين على حقل التاريخ مثلا وتختار فرز تنازلى  ..انا اريدها ان تظهر تنازلى تلقائيا دون الحاجة الى خاصية الفرز التنازلى او التصاعدى

2- احتاج فى نفس نموذج search الى زر طباعة لنتيجة البحث يعنى انا بحثت باسم عمر تظهر النتائج ثم اطبعها باسم عمر فقط 

ملاحظة : عند فتح نموذج search يظهر اسم ماجد مثلا والحقول مرتبة تمام لكن عندما ابحث ياسم عمر ترجع تتلخبط الحقول واضطر الى ماوس يمين واختار فرز تنازلى كذلك عندما ارجع ابحث باسم ماجد اضطر الى عمل فرز تنازلى يدوى وانا مثل ماقلت لكم اريدها فرز تنازلى تلقائى او مثل مايقولون اوتوماتك طبعا الفرز يكون بحسب احدث تاريخ عملية ...وانت نازل 

شاكر ومقدر تعاونكم 

ت1426.rar

تم تعديل سبتمبر 23, 2018 بواسطه ابوعبدالله 2030

[Shivan Rekany]

18 ساعات مضت, ابوعبدالله 2030 said:

1- عند ضغط زر بحث فردى بالنموذج Temp يظهر نموذج search  وعند البحث تظهر النتائج اما بطريقة تصاعدية او منوعة  وانا اريد ان تظهر نتائج البحث بطريقة تنازلية مثل الفرز التنازلى عندما تضغط ماوس يمين على حقل التاريخ مثلا وتختار فرز تنازلى  ..انا اريدها ان تظهر تنازلى تلقائيا دون الحاجة الى خاصية الفرز التنازلى او التصاعدى

فقط غير هذا السطر في فانكشن

 MyRecordSource = MySQL & MyCriteria 

الى

 MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2"

اما بالنسبة طلبك هذا

18 ساعات مضت, ابوعبدالله 2030 said:

2- احتاج فى نفس نموذج search الى زر طباعة لنتيجة البحث يعنى انا بحثت باسم عمر تظهر النتائج ثم اطبعها باسم عمر فقط 

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

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click

    Dim stDocName As String

    stDocName = "Rep1"
    DoCmd.OpenReport stDocName, acPreview
Exit_Command16_Click:
    Exit Sub

Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
    
End Sub

وفي التقرير استخدمت هذا الكود

Private Sub Report_Open(Cancel As Integer)
        Me.RecordSource = Form_f2.RecordSource
    DoCmd.Maximize
End Sub

اليك المرفق

ت1426.rar

تم تعديل سبتمبر 24, 2018 بواسطه Shivan Rekany

[ابوعبدالله 2030]

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

[Shivan Rekany]

7 دقائق مضت, ابوعبدالله 2030 said:

حيث انه لو بحثت باسم عمر مثلا تطلع النتائج مفروزة تصاعديا وانا اريدها تنازليا حسب التاريخ

اذا غير بهذا السطر
 

 MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2 DESC"

 

ت1426.rar

[ابوعبدالله 2030]

ممتاز وجزالك الله خير...الان تمام

[ابوعبدالله 2030]

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

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

 MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2 DESC"

[Shivan Rekany]

11 دقائق مضت, ابوعبدالله 2030 said:

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

هناك وحدة نمطية بها فانكشن باسم Search

وهذه هو كامل في وحدة نمطية

Option Compare Database
Public Sub AddToWhere(FieldValue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer)
' create criteria for WHERE clause.
If FieldValue <> "" Then
  If ArgCount > 0 Then
    MyCriteria = MyCriteria & "and"
  End If
  MyCriteria = (MyCriteria & FieldName & " like " & Chr(39) & FieldValue & Chr(42) & Chr(39))
  ArgCount = ArgCount + 1
 End If
End Sub

Public Function Search()
 
On Error Resume Next
 Dim MySQL As String
 Dim MyCriteria As String, MyRecordSource As String
 Dim ArgCount As Integer
 
 ArgCount = 0
 MySQL = "select * from temp WHERE "
 MyCriteria = ""
  
 AddToWhere Forms![Search]![name1], "[Temp]![اسم الموظف] ", MyCriteria, ArgCount
 AddToWhere Forms![Search]![id], "[Temp]![رقم الموظف] ", MyCriteria, ArgCount

 MyRecordSource = MySQL & MyCriteria & "ORDER BY temp.WrTahdeeth2 DESC"
 Forms![Search]![f2].Form.RecordSource = MyRecordSource
End Function

وقمت بتغير السطر الثاني قبل الاخير

وايطا سطر الرابع القبل الاخير قمت بتغير اسم name الى name1 لان انا غيرت اسم مربع البحث في النموذج البحث من  name الى name1

[ابوعبدالله 2030]

اشكرك جزيل الشكر وصلت المعلومة ..بارك الله فيك

[ابوعبدالله 2030]

هلا اخ شيفان ...عندى سؤال فيما يتعلق بالتقرير ...وهو مثلا عند فتح التقرير من النموذج       search  واردت تقرير  باسم ماجد مثلا  التقرير يظهر تمام لكن سؤالى هل ممكن ان يظهر باخر التقرير العمليات الحسابية مثل الموجودة بنموذج  search وهى مجموع المبلغ المستلم   وايضا الرصيد وايضا الباقى من الرصيد 

[ابوعبدالله 2030]

الحمدلله لقد قمت بعمل نسخ العمليات الحسابية من نموذج search والصقته بالتقرير واشتغل تمام ..مرفق القاعدة لفائدة الجميع..مع الشكر الجزيل للاخ شيفان 

star.rar