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

[Bshar]

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

هل يوجد طريقه ان اعمل كود او استعلام اللحاق بشرط تكراره ل 10 سجلات في الجدول ،، مع تغيير تاريخ السجل لليوم التالي في كل سجل من السجلات ال10 وتغيير الترقيم التلقائي لكل سجل علما انه نوع حقل الترقيم من نوع رقم

[ابوخليل]

عليكم السلام

بالنسبة للتاريخ يمكنك ان تجعل التاريخ هو تاريخ ايومي الافتراضي ، وسيتغير آليا في الغد عند الإلحاق

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

على كل حال الافضل ترفع مرفق بسيط يشتمل على حاجتك وتوضح طلبك بتفصيل اكثر

[Bshar]

 @ابوخليل انا برا البيت اول ما ارجع ابعثلك مثال اخي ابوخليل ،،

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

[Bshar]

@ابوخليل اليك المرفق استاذ ابوخليل والاخوه الاعضاء , مشكلتي انه بعد الضغط على زر حفظ وجديد يعمل النموذج على الاغلاق والفتح ,,  اريد بعد الاغلاق والفتح  ان يتغير حقل التاريخ  بالتقدم يوم عن تاريخ الكمبيوتر  ,, مثلا لو كان تاريخ الكمبيوتر  10/1/2024  يصبح حقل التاريخ بالنموذج 11/1/2024  بعد الضغط على زر حفظ وجديد .

انا حاولت عن طريق استعلام تحديث او استعلام اللحاق ولم انجح😑

181.accdb

[Foksh]

اسمح لي بمداخلة سريعة اخي الكريم @Bshar 🤗

اولاً ما الهدف من إغلاق النموذج وإعادة فتحه بعد إتمام عملية الحفظ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

 

 

الحل:-

تم الاستغناء عن الاستعلام الذي انشأته ، وإجراء بعض التعديلات الخفيفة ، مع إيقاف إغلاق وإعادة فتح النموذج ( لأنه هو سبب المشكلة لديك )

تفضل التعديل في المرفق.

181.accdb

تم تعديل يناير 20 بواسطه Foksh

[Bshar]

@Foksh  سأوضح لك اكثر سبب  اغلاق وفتح النموذج  بالمرفق في نموذج enar_dman  وذلك بسبب انني اقوم بإدخال اجرة السيارات بعد فتره مضت واقوم بتأخير ساعة الكمبيوتر لاسبوع او شهر مضى وبعدها اعدل التاريخ يدويا  في حقل التاريخ بالنموذج وادخل الاجره ,,, الى ان اوصل الى تاريخ اليوم الذي انا فيه ,,, لذلك اريد بعد كل ادخال لاجرة السيارات ,,, اريد ان يتقدم التاريخ يوم  في النموذج آليا وليس يدويا كونه ادق واسهل واسرع ,, ارجو ان تكون فهمت ما اقصد يا فوكش وانا اعلم انك تفاجئت وانصدمت  بالسابق سبب اغلاق وفتح النموذج بعد الحفظ 🤣 

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

182.accdb

[Foksh]

🤣

الصحيح أنا مش تفاجئت ، أنا صُعقت لإني ما فهمت 😂

يعني لو جعلت التاريخ يدوي في الجهاز مثلاً يكون 1/1/2024 ، وفتحت النموذج ستجد حقل التاريخ بالتاريخ نفسه ، ولو عملت إدخال البيانات وحفظ سيقوم بالحفظ وفتح سجل جديد بتاريخ اليوم التالي ،أي 2/1/2024 ؛ دون الحاجة للفتح والإغلاق 🧐

صح ولا أنا لسه مصدوم بجد ومش بنطق ولا عارف أرُد 😅

تم تعديل يناير 21 بواسطه Foksh
إزالة التاء المربوطة 😊

[Bshar]

🤣🤣  كنت عارف انك مصدوم فوكش من وقت شفت سطر كامل من علامات الاستفهاام ؟؟؟ قلت اكيد فكر عندي غباوه مزمنه 😂😂 

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

تم تعديل يناير 21 بواسطه Bshar

[Foksh]

27 دقائق مضت, Bshar said:

قلت اكيد فكر عندي غباوه مزمنه

العفو منك اخوي الغالي ، كل الاحترام لك يا صديقي 

 

[شايب]

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

صح ولا أنا لسه مصدومة بجد ومش بنطق ولا عارفة أرُد

👀

[Bshar]

ساعدوني في مشكلتي  😥

[Foksh]

منذ ساعه, شايب said:

👀

تمام هيك 😅

36 دقائق مضت, Bshar said:

ساعدوني في مشكلتي  😥

ابشر ، بس خلني أخلص من الشغل

[Foksh]

1 ساعه مضت, Bshar said:

ساعدوني في مشكلتي  😥

جرب هذا المرفق يا صديقي 

 

182.accdb

[Bshar]

ياصديقي بعد الحفظ  التاريخ يتقدم يوم واحد فقط,,,,   وبعدها يبقا كما هوه ولا يستمر التاريخ بالتقدم بعد الفتح والاغلاق 😊

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

تم تعديل يناير 21 بواسطه Bshar

[Foksh]

منذ ساعه, Bshar said:

ياصديقي بعد الحفظ  التاريخ يتقدم يوم واحد فقط,,,,   وبعدها يبقا كما هوه ولا يستمر التاريخ بالتقدم بعد الفتح والاغلاق 😊

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

استبدل الكود في زر الحفظ بهذا الكود ، تم انشاء المتغير حسب طلبك .

 

Private Sub ad_Click()
    On Error Resume Next
    If IsNull(Me.xc) Then
        MsgBox "الرجاء إدخال البيانات", vbCritical, "خطأ في الإدخال"
        Me.Undo
    Else
        Dim Date_P As Variant
        Date_P = dats.Value
        Dim Foksh As Variant
        Foksh = Date_P
        Me.da_d = Me.qqs
        Me.kk = 1
        On Error Resume Next
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.RefreshRecord
        DoCmd.OpenQuery "car_b", acViewNormal
        DoCmd.OpenQuery "car_c", acViewNormal
        DoCmd.OpenQuery "dell_subcar", acViewNormal
        DoCmd.OpenQuery "dman_rly", acViewNormal
        DoCmd.RunCommand acCmdSaveRecord
        MsgBox "تم حفظ السجل بنجاح", vbInformation, "نجاح العملية"
        Me.dats.Value = Format(DateAdd("d", 1, Date_P), "dd/mm/yyyy")
        DoCmd.Close
        DoCmd.OpenForm "enar_dman", acNormal
        Forms("enar_dman").Controls("dats").Value = Format(DateAdd("d", 1, Foksh), "dd/mm/yyyy")
    End If
End Sub

 

[Bshar]

@Foksh اشكرك جزيل الشكر صديقي الغالي انا تعبتك معي ,,  بارك الله بك وزادك علما  وبارك الله في رزقك .🌹

تشرفت بك وارغب بالتواصل معك حتى ازعجك اكثر وازيد من صدماتك 🤣🤣

تم تعديل يناير 21 بواسطه Bshar

[Foksh]

3 دقائق مضت, Bshar said:

@Foksh اشكرك جزيل الشكر صديقي الغالي انا تعبتك معي ,,  بارك الله بك وزادك علما  وبارك الله في رزقك .🌹

 

وبارك بك أخي الكريم ،