الفرز لاخر سجل في الاستعلام

وعليكم السلام اخي الفاضل :)

اسعد الله صباحك بهذا اليوم المبارك الاغر :) ، وأسال الله العلي القدير جلت قدرته ان يوفقنا ويعطينا من فضله الواسع في هذا اليوم وكل يوم مما ننال به رضاه وعتق رقابنا من النار ، إنه سميع قريب والحمدلله رب العالمين :)

ياريت شرح اكثر شوي :)

جعفر

تفضل :)

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

يعني غير الجدول وايتخدم الاستعلام :)

جعفر

286.RpQr.mdb.zip

اشكرك اخي جعفر على مشاعرك

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

اريد في الاستعلام اظهار اخر سجل حسب التاريخ في الجدول لكل الأسماء  بشرط ان يكون اقل من تاريخ اليوم

حسب الدالة الموضوعه في الاستعلام

لو افترضنا ان  اسم احمد يوجد له سجلين

1 - يوجد به تاريخ 1435/12/01

2- يوجد به تاريخ  1435/12/02  هذا هو التاريخ الاكبر والذي يكون اصغر من تاريخ اليوم الذي يصادف 1435/12/19

وعبدالله نفس الشي

1 - يوجد به تاريخ 1435/12/01

2- يوجد به تاريخ 1435/12/02    هذا هو التاريخ الاكبر والذي يكون اصغر من تاريخ اليوم الذي يصادف 1435/12/19

اريد أن يظهر التاريخ  الاكبر من السجلين على شرط أن يكون التاريخ  اصغر من تاريخ اليوم الحالي

اما الاسماء التي لايوجد لها الا سجل واحد فتظهر جميعها بنفس الشرط أن يكون التاريخ اصغر من تاريخ اليوم الحالي

لأتمنى اكون قدرت اوصل الفكرة بشكل سليم

تقبل شكري وتحياتي

ممتاز اخي جعفر وصلت لك الفكرة

لكن المشكلة الان ان هذذا الاستعلام لايصلح لأن احوله الى استعلام تحديث

لاني بمجرد ان حولته الى استعلام تحديث ازال جميع المعايير التي  وضعتها

حياك الله :)

ياريت تخبرني الموضوع بالكامل ، ممكن نتوصل لحل افضل :)

الكود ممكن يحل لنا المشكلة بطريقة سلسه ، او نستفيد من الاستعلام ونطلب من الكود يستعمله :)

جعفر

المثال يحتوي على اكثر من جدول بحاول اني اضيف الجداول

وفعلا اخوي انا استخدمه بطريقة الكود والكود موجود

DoCmd.RunSQL "UPDATE Emp INNER JOIN tab_Estdafa ON Emp.PcDigit = tab_Estdafa.PcDigit SET Emp.CasePatientNum = 1 " & vbCrLf & _
"WHERE (((tab_Estdafa.Date_Enter)<=UmFormat(UmDate(),""yyyy/mm/dd"")) AND ((tab_Estdafa.Date_Eixt)>UmFormat(UmDate(),""yyyy/mm/dd"")) AND ((Emp.CasePatientNum)>1) AND ((Emp.PermanentOrTemporary)=2));"

لكن المشكلة

ما قدرت اضيف عليه الشرط اللي خبرتك به واللي هو اكبر تاريخ بالسجلات

انا اضطررت ان اغير التاريخ الى تاريخ انجليزي علشان امشي شغلي :)

1. طالع الحقل Date2 في الجدول ، تلقاه فاضي ،

2. جرب الزر اللي على النموذج ، راح يدخل قيم الاستعلام (طبعا التواريخ الاخيرة) في الحقل Date2 ،

3. العب في الكود مثل ما تريد :) ، وهذا هو الكود اللي على الزر:

Private Sub cmd_update_Click()

    Dim rst As DAO.Recordset
    Dim rst2 As DAO.Recordset
    
    'open the query as a Recordset
    Set rst = CurrentDb.OpenRecordset("QRY1")
    
    'we will update the table
    Set rst2 = CurrentDb.OpenRecordset("Select * From Table1")
    
    rst.MoveLast: rst.MoveFirst
    
    'now move through the Records
    For i = 1 To rst.RecordCount
    
        'find the first code which matches our code,
        'we will edit Date2 and update it to date1 value
        rst2.FindFirst "[code]='" & rst!code & "'"
        
        rst2.Edit
            rst2!Date2 = rst!LastOfdate1
        rst2.Update
        
        rst.MoveNext
    Next i
    
    MsgBox "Done"
    
    rst.Close: Set rst = Nothing
    rst2.Close: Set rst2 = Nothing
    
End Sub

جعفر

286.RpQr.mdb.zip

الله يعطيك الف عافية اخي جعفر

مثالك السابق جدا ممتاز

فقط سيلزمني بانشاء استعلام لكي يتم الفرز عليه  هذا ما لا اريده

كما لاحظت اني استخدم  جملة

DoCmd.RunSQL "UPDATE

هذا المثال موافق للواقع تماما

المطلوب عند العثور على السجلات المحدده تحديث حقل CasePatientNum في الجدول Emp الى رقم 2

فهل يمكن ذلك عن طريق جملة

DoCmd.RunSQL "UPDATE

اتعبتك معاي لكن هذا اليوم مبارك وحاب استقلك فيه على قدر ما استطيع   ههههههههههههه

تقبل تحياتي

RpQr.rar

الحمدلله انه يوم مبارك :)

فاليك هذا الحل البسيط :)

الاستعلام كما هو:

اعمل التغييرات التاليه عليه:

والنتيجة:

والآن ، استعمل الاستعلام كما تشاء ، وغيره الى استعلام تحديث مثل ما كنت تريد :)

جعفر

286.1.RpQr.mdb.zip

الف الف شكر اخوي الان النتيجة اصبحت كما اريد

فقط عند تحويل الاستعلام الى استعلام تحديث يتم تغير

الخصائص سجلات فريدة  الى  نعم

عساك على القوة اخوي جعفر

آسف أخوي ، ما عندي فكرة :(

نرجع للكود ، لانه به المرونه والقوة اللي نقدر نخليه نعمل اللي نريد ،

و DoCmd.RunSQL "UPDATE ، عبارة عن استعلام تحديث ، بس في طرق اخرى غير هذا الامر والطريقة ، يعني انا اعطيتك طريقة (صحيح ممكن ما تكون الافضل ، بس فيها المرونه لعمل اللي تريده) اللي ممكن تخلص شغلك بيها :)

جعفر

jjafferr كتب:

آسف أخوي ، ما عندي فكرة :(

 

نرجع للكود ، لانه به المرونه والقوة اللي نقدر نخليه نعمل اللي نريد ،

و DoCmd.RunSQL "UPDATE ، عبارة عن استعلام تحديث ، بس في طرق اخرى غير هذا الامر والطريقة ، يعني انا اعطيتك طريقة (صحيح ممكن ما تكون الافضل ، بس فيها المرونه لعمل اللي تريده) اللي ممكن تخلص شغلك بيها :)

 

 

جعفر

لا اخوي جعفر

اللي كنت اقصده ان طريقتك الاخيرة نتيجته ميه بالميه

وجملة DoCmd.RunSQL "UPDATE اشتغلت كما يجب انا فقط اخترت سجلات فريدة نعم عندما حولته

الى استعلام تحديث والان كل شي تمام

ربي يعطيك العافية

الحمدلله :)