معيار داخل استعلام يرجع بالتواريخ 5 إيام للوراء

[Abdelaziz Osman]

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

لدى حقل تاريخ داخل جدول

أريد عمل استعلام لهذا الحقل

يظهر جميع السجلات بالجدول التى حدثت منذ 5 ايام

على سبيل المثال اذا كان تاريخ تشغيل الاستعلام يوم 20 فبراير 2024

المطلوب استعراض سجلات اليوم الذى قبل هذا التاريخ بخمس ايام

يعنى سجلات يوم 15 فبراير2024 

وهكذا كلما اقوم بتشغيل الاستعلام

يرجع بالتاريخ 5 ايام للوراء

ارجوا الافادة

 

[Abdelaziz Osman]

لدى نموذج مرفق

أريد فيه اذا تحقق اربع شروط معا 

وهم اذا الحقل الأول خالى

والحقل الثانى قبل ثلاث ايام من تاريخ السيستم

والحقل الثالث به كلمة "مرفوض"

والحقل الرابع خالى

اذا تحققت تلك الشروط الاربع معا

كما هو بالصورة

عندما اقوم باضافة سجل جديد بداية من حقل order no والكتابة بداخل هذا الحقل ثم اقوم بالضغط enter يتم الغاء الادخال  اي يتم تنفيذ امر undo

Datab (officena).accdb

تم تعديل فبراير 21 بواسطه Abdelaziz Osman

[Abdelaziz Osman]

ارجوا التكرم بالمساعدة

[Abdelaziz Osman]

استاذنا @Foksh

واستاذنا @kkhalifa1960

ارجوا المساعدة فى حل الموضوع اعلاه

[kkhalifa1960]

تفضل استاذ @Abdelaziz Osman المرفق بعد التعديل حسب مافهمت . ووافني بالرد .

 

Datab (officena)-1.rar

تم تعديل فبراير 24 بواسطه kkhalifa1960

[Foksh]

2 ساعات مضت, Abdelaziz Osman said:

استاذنا @Foksh

واستاذنا @kkhalifa1960

ارجوا المساعدة فى حل الموضوع اعلاه

بالطريقة التي تم فيها عرض السجلات لا اعتقد انه من الممكن تنفيذ فكرتك 😬

[Abdelaziz Osman]

طيب

أريد اعرف ماهو الكود الذى من خلاله فرز السجلات لآخر ثلاث ايام من تاريخ السيستم

[Foksh]

7 دقائق مضت, Abdelaziz Osman said:

طيب

أريد اعرف ماهو الكود الذى من خلاله فرز السجلات لآخر ثلاث ايام من تاريخ السيستم

من مصدر بيانات النموذج قم باختيار جميع الحقول ، ثم في حقل P ODate اكتب الشرط

<Date()

ونصيخة من أخيك ( عن تجربة ) استبدل المسافة التي بين المسميات بإشارة _

تم تعديل فبراير 24 بواسطه Foksh

[Abdelaziz Osman]

استاذنا @kkhalifa1960

لسيادتكم جزيل الشكر

استاذنا @Foksh لسيادتكم جزيل الشكر

 

[kanory]

في 22‏/2‏/2024 at 01:07, Abdelaziz Osman said:

عندما اقوم باضافة سجل جديد بداية من حقل order no والكتابة بداخل هذا الحقل ثم اقوم بالضغط enter يتم الغاء الادخال  اي يتم تنفيذ امر undo

 

هل تسلسل السجل الظاهر لدينا في الصورة دائما اول سجل ام هناك اختلاف في تسلسله ( اقصد الان ظاهر كاول سجل ... هل ممكن ان يكون في مرات اخرى ثان او ثالث سجل مثلا )

 

[Abdelaziz Osman]

استاذنا @kkhalifa1960

لسيادتكم جزيل الشكر

استاذنا @Foksh لسيادتكم جزيل الشكر

 

[Abdelaziz Osman]

@kanory  التسلسل مرتب لا يجوز تجاوزه

[kanory]

في 22‏/2‏/2024 at 01:07, Abdelaziz Osman said:

اربع شروط معا 

وهم اذا الحقل الأول خالى

والحقل الثانى قبل ثلاث ايام من تاريخ السيستم

والحقل الثالث به كلمة "مرفوض"

والحقل الرابع خالى

اذا تحققت تلك الشروط الاربع معا

كما هو بالصورة

عندما اقوم باضافة سجل جديد بداية من حقل order no والكتابة بداخل هذا الحقل ثم اقوم بالضغط enter يتم الغاء الادخال  اي يتم تنفيذ امر undo

راجع المرفق وتأكد فقط الان من الشروط الاربعة هل تحققت ..........

 

Datab (officena).accdb

[Abdelaziz Osman]

لك جزيل الشكر يامدير @kanory

[Abdelaziz Osman]

@kanory

يا مدير  

بالنسبة لتانى سطر  فى كود الحدث

DoCmd.GoToRecord , , acFirst

ده معناه انه هيطبق الشروط على أول سجل فقط صح كده

طيب ما ينفعش يطبق الشروط على كل السجلات السابقة

بالغ التحية

[Foksh]

متابع بصمت 😊

[Abdelaziz Osman]

طيب حضرتك ايه رايك يا استاذنا

@Foksh

انا شايف ان فى كود بالامر التالى

DoCmd.GoToRecord , , acAnyRecord

 

[kanory]

عشان كده انا سئلتك هنا هذا السؤال 

في 24‏/2‏/2024 at 23:44, kanory said:

هل تسلسل السجل الظاهر لدينا في الصورة دائما اول سجل ام هناك اختلاف في تسلسله ( اقصد الان ظاهر كاول سجل ... هل ممكن ان يكون في مرات اخرى ثان او ثالث سجل مثلا )

 

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

في 25‏/2‏/2024 at 09:46, Abdelaziz Osman said:

@kanory  التسلسل مرتب لا يجوز تجاوزه

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

3 ساعات مضت, Abdelaziz Osman said:

@kanory

يا مدير  

بالنسبة لتانى سطر  فى كود الحدث

DoCmd.GoToRecord , , acFirst

ده معناه انه هيطبق الشروط على أول سجل فقط صح كده

طيب ما ينفعش يطبق الشروط على كل السجلات السابقة

بالغ التحية

طيب ممكن طبعا ... جاري التعديل ولكن عندما اعود الى المكتب ... بارك الله فيك

[Foksh]

20 دقائق مضت, Abdelaziz Osman said:

DoCmd.GoToRecord , , acAnyRecord

 

ما هو مصدر هذا الكود 

انا بقالي عايش كتير وأول مرة أشوفه 

[Foksh]

23 دقائق مضت, Abdelaziz Osman said:

طيب حضرتك ايه رايك يا استاذنا

 

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

من رأيي توجه الى تغيير طريقة العرض اللي انت متقيد فيها ( ده من وجهة نظري المتواضع )

[Abdelaziz Osman]

@kanory

هو تمام اوك اول سجل طريقة طيبة ان شاء الله

وجيدة ان كنت بسأل على فكرة السجلات جميعها ربما احد يقوم بتغيير قيم الحقول

وجزاكم الله خيرا إليكم جميعا على تفاعلكم واهتمامكم بالغ التقدير

وبالنسبة للتغيير اعرف كيف  احمى الحقول من التغيير 

 

[kanory]

53 دقائق مضت, Abdelaziz Osman said:

@kanory

هو تمام اوك اول سجل طريقة طيبة ان شاء الله

وجيدة ان كنت بسأل على فكرة السجلات جميعها ربما احد يقوم بتغيير قيم الحقول

وجزاكم الله خيرا إليكم جميعا على تفاعلكم واهتمامكم بالغ التقدير

وبالنسبة للتغيير اعرف كيف  احمى الحقول من التغيير 

 

جرب هذا ........

Private Sub Order_No_AfterUpdate()
D_R = DateAdd("d", -3, Date)
On Error GoTo Errw
   DoCmd.GoToRecord , , acFirst
    For i = 1 To Me.Recordset.RecordCount
         If Me.supplier = "مرفوض" And Me.mark = 0 And Format(Me.inday, "dd/mm/yyyy") <= Format(D_R, "dd/mm/yyyy") And IsNull(Me.P_Odate) Then
            DoCmd.GoToRecord , , acLast
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdDeleteRecord
            Me.Order_No.SetFocus
            MsgBox "لايمكن اضافة جديد"
            Exit Sub
        Else
            Me.Order_No.SetFocus
        End If
        DoCmd.GoToRecord , , acNext
    Next i
Exit Sub
Errw:
End Sub

 

[Abdelaziz Osman]

@kanory

تقريبا مش شغال معايا الكود 

[kanory]

6 ساعات مضت, kanory said:

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

في 25‏/2‏/2024 at 09:46, Abdelaziz Osman said:

 

1 ساعه مضت, Abdelaziz Osman said:

تقريبا مش شغال معايا الكود

انا اعتذر منك على المواصلة ..... 

[kkhalifa1960]

أنا انتظرت لهذه اللحظة ومابرد لأني أعطيتك الحل الصحيح لطلبك (كامل طلباتك وبالضبط 4 شروط) ولكنك رفضته . الله يكون بالعون أستاذ .

تم تعديل فبراير 26 بواسطه kkhalifa1960