محمد احمد لطفى

الزرار سوف يمسح البيانات و لكن للأمان اذا تم الضغط خطأ على الزرار اريد استرجاع البيانات فى انتظار حل جزاك الله خير

من خلال زرار Go سيتم مسح خليتن من النموذج الرئيسى و لكن من خلال نفس الزار أريد استرجاع البيانات هل يمكن عمل Undo لها أم هل يمكن تخزينهم بشكل مؤقت لاعادتهم فى حالة تخزين البيانات فهى لن تخزن دائما وحزاكم الله كل خير test2023-1.mdb

تفضل جرب DLookup("FieldName" , "TableName" , "Criteria = n") "mez1 = detalis" او ضع مثال بالنوفيق و شاهد هذا الموضوع

تفضل جرب بالتوفيق Ctrl + Shift + f = SendKeys "^+F"

@kkhalifa1960 لا والله جزاك الله كل خير حلولك دائما جيدة و لكن تقريبا أنا لما بسأل سؤال مبعرفش اشرحه على اكمل وجه مثلا فى موضوع أمس (تغير اسم الحقل حسب قيمة الخلية) ما كنت أريده هو تغير حقل LastNumberx1 تغيير 1 الى 2,3,4,5 وكان الهدف معرفة الطريقة لأنى سأعمل على أكثر من حقل و ليست حقل واحد

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

أستاذى @kkhalifa1960 حفظكم الله وبارك في جهودكم

أستاذى @Barna أسأل الله عزّ وجلّ أن يجزيكم عنا خير الجزاء وأن يبارك لكم في عملكم.

أستاذى @kkhalifa1960 طريقة جميلة ولكن أريد الحل عن طريق الكود لأن الخلايا الفعلية عندى خلايا جدول أخر ربنا يبارك فيك و يحفظك هو زى اضافة متغير اخر x a = 1 , x = [LastNumberx1] a = 2 , x = [LastNumberx2] a = 3 , x = [LastNumberx3] a = 4 , x = [LastNumberx4] a = 5 , x = [LastNumberx5] Forms![test1]!x = Forms![test1]![NumberEnd] أو استخدام array بس أنا مش عارف تكتب اذاى

أريد تغيير اسم الحقل LastNumberx1 بناء على قيمة الخلية NumberEnd عندما يكون الحقل NumberEnd = ؟ NumberEnd = 1 يتم النقل LastNumberx1 NumberEnd = 2 يتم النقل LastNumberx2 NumberEnd = 3 يتم النقل LastNumberx3 NumberEnd = 4 يتم النقل LastNumberx4 NumberEnd = 5 يتم النقل LastNumberx5 حيث a = Forms![test1]![NumberEnd] و يتم التغيير على السطر التالى Forms![test1]![LastNumberx1] = Forms![test1]![NumberEnd] والمقصود من الامر حتى لا أكرر الكود خمس مرات Dim a As Integer a = Forms![test1]![NumberEnd] If Forms![test1]![NumberEnd] = a Then Forms![test1]![LastNumberx1] = Forms![test1]![NumberEnd] End If test2023-1 (3).mdb

أنا مش ناسى أنا مش عارف

أستاذى @Barna ربنا يبارك فيك ويحفظك هو المطلوب

يجب فتحه من خلال نموذج test1 من زرار فتح النموذج

أستاذى @Barna جزاك الله خيراً عن طريق نموذج frmRisTaacil

UP

أبشر فى بعض الاحيان يحتاج الموضوع الى توضيح

حبيبى @Ezril اخر رقم last المرفق يعمل على اصدا اوفيس 2003 الى 202X للرقم كبير

أريد من خلال فتح النموذج الجديد كتابة أخر رقم فى أخر سجل للنموذج فرعى وجزاكم الله خيراً test2023-1 (2).mdb

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

تم الحل Dim a As Integer Dim DATE_POST As Date Dim rs As DAO.Recordset DATE_POST = CDate(Forms![TEST1]![Date_M]) Set rs = CurrentDb.OpenRecordset("subx") For a = Forms![TEST1]![NumberStart] - 1 To Forms![TEST1]![NumberEnd] - 1 rs.AddNew If Not Weekday(DATE_POST) Like "[6-7]" Then rs!id = Forms![TEST1]![id1] rs!serial = Forms![TEST1]![serial] rs!NumberX = a + 1 rs!date1 = DATE_POST Else a = a - 1 End If DATE_POST = DATE_POST + 1 rs.Update Next a rs.Close Set rs = Nothing Me.Requery

شكراً أستاذى @kkhalifa1960 و لكن لا أريد أن يضيفهم البرنامج من الاساس كما الكود فى زرار الطريقة القديمة

كيف يمكن تخطى يوم الجمعة و السبت هناك زرار الطريقة القديمة و هو يعمل أرجو التعديل على زرار الطريقة الجديدة وجزاكم الله كل خير test2023-1.mdb

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

أستاذ @متقاعد ربنا يبارك فى حضرتك و يحفظك

أستاذ @متقاعد جزاك الله خيراً أستأذنك ممكن نشوف الطريقة الثانية ممكن تكون افضل