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

[Abdelaziz Osman]

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

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

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

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

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

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

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

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

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

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

 

[Abdelaziz Osman]

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

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

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

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

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

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

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

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

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

Datab (officena).accdbFetching info...

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

[Abdelaziz Osman]

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

[Abdelaziz Osman]

استاذنا @Foksh

واستاذنا @kkhalifa1960

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

[kkhalifa1960]

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

 

Datab (officena)-1.rarFetching info...

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

[Foksh]

  في 24‏/2‏/2024 at 16:54, Abdelaziz Osman said:

استاذنا @Foksh

واستاذنا @kkhalifa1960

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

Expand  

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

[Abdelaziz Osman]

طيب

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

[Foksh]

  في 24‏/2‏/2024 at 20:12, Abdelaziz Osman said:

طيب

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

Expand  

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

<Date()

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

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

[Abdelaziz Osman]

استاذنا @kkhalifa1960

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

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

 

[kanory]

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

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

 

Expand  

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

 

[Abdelaziz Osman]

استاذنا @kkhalifa1960

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

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

 

[Abdelaziz Osman]

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

[kanory]

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

اربع شروط معا 

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

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

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

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

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

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

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

Expand  

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

 

Datab (officena).accdbFetching info...

[Abdelaziz Osman]

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

[Abdelaziz Osman]

@kanory

يا مدير  

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

DoCmd.GoToRecord , , acFirst

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

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

بالغ التحية

[Foksh]

متابع بصمت 😊

[Abdelaziz Osman]

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

@Foksh

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

DoCmd.GoToRecord , , acAnyRecord

 

[kanory]

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

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

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

 

Expand  

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

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

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

Expand  

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

  في 26‏/2‏/2024 at 06:47, Abdelaziz Osman said:

@kanory

يا مدير  

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

DoCmd.GoToRecord , , acFirst

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

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

بالغ التحية

Expand  

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

[Foksh]

  في 26‏/2‏/2024 at 09:38, Abdelaziz Osman said:

DoCmd.GoToRecord , , acAnyRecord

 

Expand  

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

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

[Foksh]

  في 26‏/2‏/2024 at 09:38, Abdelaziz Osman said:

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

 

Expand  

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

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

[Abdelaziz Osman]

@kanory

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

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

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

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

 

[kanory]

  في 26‏/2‏/2024 at 10:55, Abdelaziz Osman said:

@kanory

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

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

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

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

 

Expand  

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

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]

  في 26‏/2‏/2024 at 09:55, kanory said:

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

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

Expand  

 

  في 26‏/2‏/2024 at 14:39, Abdelaziz Osman said:

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

Expand  

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

[kkhalifa1960]

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

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