abouelhassan قام بنشر مايو 14, 2022 الكاتب قام بنشر مايو 14, 2022 (معدل) في 14/5/2022 at 00:43, احمد الفلاحجي said: جزاك الله خيرا على مشاركتك معنا 💐 طيب المفروض التاريخ اكبر من 10 فالشهر الحالى متاح للتعديل جرب التعديل التالى ووافنى بالنتيجه Date-1 (3_4).accdb 512 kB · 0 downloads Expand سدد الله خطاك اخى استاذى @احمد الفلاحجي وسقاك من حوض النبى صلى الله عليه وسلم شربت هنيئة لاتظمأ بعدها ابدا يارب شهر 4 الشهر الماضى تمام اغلق بعد يوم10 غيرت التاريخ الى 1/5/2022 الشهر الحالى المفروض يظل مفتوح التعديل الى10/6/2022 وجدته مغلق اخى الشهر الحالى يتم غلقه فى يوم 10 الشهر الذى يليه هى دى الفكرة اخى الحبيب لقلبى اذا كان تاريخ اليوم 1/4/2022 اذن كل شهر 4 هيكون مفتوح حتى10/5/2022 يتم الغلق واذا كان تاريخ اليوم1/5/2022 انذن كل شهر 5 هيكون مفتوح حتى 10/6/2022 يتم الغلق يعنى الفرصة للتعديل فى الشهر الذى نعمل فيه تكون ليوم10 وبعد كده لايمكن التعديل اما طبعا الشهور السابقة كلها بتغلق للحفاظ على البيانات السابقة قمت بالتعديل على الكود بعد اذن حضرتك والحمد لله نجح Private Sub Form_Current() On Error Resume Next Dim x As String, y As String, z As String, ly As String, t As Date t = DateSerial(Year(Date), Month(Date) - 1, 1) x = Format$(Me.Registration_Date, "\#mm\/dd\/yyyy\#") 'date y = Format$(DateSerial(Year(Date), Month(Date) - 1, 1), "\#mm\/dd\/yyyy\#") '1/4/2022 ly = Format$(DateSerial(Year(t), Month(t) + 1, 0), "\#mm\/dd\/yyyy\#") z = Format$(DateSerial(Year(Date), Month(Date), 10), "\#mm\/dd\/yyyy\#") '15/5/2022 If x >= y And x <= ly And x > z Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf x >= z And Format$(DateSerial(Year(Date), Month(Date) + 1, 0), "\#mm\/dd\/yyyy\#") >= x Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf x >= ly Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True ElseIf x <= y And x <= z Then Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub كود الحذف احتاج رسالة تم منع الحذف فى حالة غلق الحذف والتعديل اخى الكريم هذا اخر شئ ان شاء الله واكون شاكر لك وجمايلك اثقلت كاهلى والله يارب اقدر ارد اليك نصفها ان شاء الله وان لم استطع سأظل ادعو لك عن ظهر الغيب احبك فى الله اخى الكريم Date-1 (3_4).accdbFetching info... تم تعديل مايو 14, 2022 بواسطه abouelhassan
أبوبسمله قام بنشر مايو 14, 2022 قام بنشر مايو 14, 2022 في 14/5/2022 at 07:55, abouelhassan said: سدد الله خطاك اخى استاذى @احمد الفلاحجي وسقاك من حوض النبى صلى الله عليه وسلم شربت هنيئة لاتظمأ بعدها ابدا يارب Expand اللهم آمين و اياكم في 14/5/2022 at 07:55, abouelhassan said: قمت بالتعديل على الكود بعد اذن حضرتك والحمد لله نجح Expand الحمدلله وهو المطلوب بانك تفهم الفكره وتعدل بنفسك ولى اقتراح اخر اضافه حقل من نوع نعم والقيمه الافتراضيه نعم ويتم تحديث القيمه الى لا لجميع السجلات التى قبل الشهر الحالى وهتلاقى الامور بقت اسهل واوضح بالنسبه للحذف ضع هذا الكود لزر الحذف Private Sub btnDel_Click() On Error GoTo MyErr If MsgBox("هل تريد فعلا حذف القيد نهائياً ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تأكيد عملية الحذف") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If MyExit: Exit Sub MyErr: If Err.Number = 2046 Then MsgBox "الحذف غير متاح لهذا السجل" 'Err.Description End If Resume MyExit End Sub بالتوفيق 1
abouelhassan قام بنشر مايو 14, 2022 الكاتب قام بنشر مايو 14, 2022 في 14/5/2022 at 09:36, احمد الفلاحجي said: ولى اقتراح اخر اضافه حقل من نوع نعم والقيمه الافتراضيه نعم ويتم تحديث القيمه الى لا لجميع السجلات التى قبل الشهر الحالى وهتلاقى الامور بقت اسهل واوضح Expand والله العظيم استاذى @احمد الفلاحجي الشكر لايكفيك حقك والله العظيم حضرتك رائع اخى الكريم اتقدم لك بخالص الشكر وخالص الدعاء والله العظيم من القلب لك اخى الكريم زادك الله واكرمك وحفظك وال بيتك اللهم امين يارب بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح اكون سعيدا وشاكر لك احبك فى الله من قلبى احبك اخى الكريم اكثر الله خيرك اخى 1
أبوبسمله قام بنشر مايو 14, 2022 قام بنشر مايو 14, 2022 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير جزاك الله خيرا ع الدعاء ولك مثله اخى في 14/5/2022 at 12:28, abouelhassan said: بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح Expand حاضر امهلنى الى المساء او غدا ان شاء الله ساقوم بالتعديلات اللازمه وارفق لك المثال احبك الذى احببتنى فيه بالتوفيق اخى 1
أبوبسمله قام بنشر مايو 14, 2022 قام بنشر مايو 14, 2022 في 14/5/2022 at 12:28, abouelhassan said: بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح Expand اتفضل اخى الفاضل ابو الحسن بالنسبه للتعديلات تم اضافه حقل chek فى الجدول tblData وقيمته الافتراضيه نعم تم اضافه استعلام qryDcount وده علشان احسب عدد السجلات التى قيمتها نعم قبل يوم 1 فالشهر الحالى لتحويلها الى لا يوم 10 فالشهر ومدخلش فالاجراء الخاص بالتحديث كل ما افتح الفورم تم تعديل الكود Private Sub Form_Current() Dim z As String, d As Integer z = DateSerial(Year(Date), Month(Date), 10) 'day 10 TempVars.Add "MonthNow", DateSerial(Year(Date), Month(Date), 1) d = DCount("*", "qryDcount") If Date >= z And d > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblData SET tblData.chek = False " & _ "WHERE (((tblData.Registration_Date)<[TempVars]![MonthNow]));" DoCmd.SetWarnings True End If If Me.chek = True Then Me.AllowAdditions = True Me.AllowEdits = True Me.AllowDeletions = True Else Me.AllowAdditions = False Me.AllowEdits = False Me.AllowDeletions = False End If End Sub ده باختصار واليك المرفق بعد التعديلات بالتوفيق Date_2_trueOrfalse.accdbFetching info... 2
abouelhassan قام بنشر مايو 14, 2022 الكاتب قام بنشر مايو 14, 2022 (معدل) اخى فى الله استاذى الحبيب احمد الفلاحجي اثقلت كاهلنا بجمايلك اخى لا نملك الا ان ندعوا لك كل يوم على ما فعلته اخى الكريم جدا تقبل احترامى وخالص دعائى لك اخى استاذى المبدع استاذ احمد حفظك الله وحفظ اسرتك الكريمة اللهم امين يارب معلش استاذى انا ذهبت لجدو البيانات وعلمت شيك على كل البيانات وغير اول سطر الى 14/5/2022 حتى يتم التعديل الى 14/6/2022 ولكن عند فتح الفورم ذهبت مرة اخرى للجدول لم اجد شيك ووجدت التعديل مغلق سامحنى اخى الكريم Date_2_trueOrfalse.accdbFetching info... تم تعديل مايو 14, 2022 بواسطه abouelhassan 1
أبوبسمله قام بنشر مايو 14, 2022 قام بنشر مايو 14, 2022 وهذا ما نصبوا اليه دعوه صالحه في 14/5/2022 at 16:20, abouelhassan said: استاذى الحبيب غيرت فى البيانات التاريخ فى الجدول وعملت شيك وغيرت التاريخ الى 14/5/2022 حتى يتم منع التعديل فى 10/6/2022 اى مسموح بالتعديل ولكن ايضا لايمكن التعديل الان Expand انت عندك فالجدول تواريخ 2022/05/14 ومتاح التعديل فيها ومتاح تعديلات لشهر 5 بالكامل الى يوم 9-6-2022 فالكود انا معتمد ع تاريخ الجهاز فجلب التواريخ وتحديث الشيك بوكس بالجدول للقيمه لا ارجو ان اكون وضحت لك ما سوف تجرب اذا حابب تجرب اغلق الفورم وغير تاريخ الجهاز الى يوم 5-6-2022 وجرب التعديل فى تواريخ شهر 5 ثم اغلق الفورم وغير تاريخ الجهاز ليوم 10-6 -2022 وجرب التعديل على تواريخ شهر 5 مره اخرى بالتوفيق 1
abouelhassan قام بنشر مايو 14, 2022 الكاتب قام بنشر مايو 14, 2022 في 14/5/2022 at 16:40, احمد الفلاحجي said: وهذا ما نصبوا اليه دعوه صالحه انت عندك فالجدول تواريخ 2022/05/14 ومتاح التعديل فيها ومتاح تعديلات لشهر 5 بالكامل الى يوم 9-6-2022 فالكود انا معتمد ع تاريخ الجهاز فجلب التواريخ وتحديث الشيك بوكس بالجدول للقيمه لا ارجو ان اكون وضحت لك ما سوف تجرب اذا حابب تجرب اغلق الفورم وغير تاريخ الجهاز الى يوم 5-6-2022 وجرب التعديل فى تواريخ شهر 5 ثم اغلق الفورم وغير تاريخ الجهاز ليوم 10-6 -2022 وجرب التعديل على تواريخ شهر 5 مره اخرى بالتوفيق Expand معلش اعذرنى اخى الكريم جدا حفظك الله اليوم هو14/5/2022 والبيانات فى الجدول14/5/2022 المفروض تكون متاحة للتعديل حتى يوم10/6/2022 وحتى غيرت التاريخ فى الجدول الى 8/5/2022 وايضا غير متاح التعديل استاذى الحبيب لقلبى بارك الله فيك وبك اخى
أبوبسمله قام بنشر مايو 14, 2022 قام بنشر مايو 14, 2022 في 14/5/2022 at 17:31, abouelhassan said: معلش اعذرنى اخى الكريم جدا حفظك الله اليوم هو14/5/2022 والبيانات فى الجدول14/5/2022 المفروض تكون متاحة للتعديل حتى يوم10/6/2022 وحتى غيرت التاريخ فى الجدول الى 8/5/2022 وايضا غير متاح Expand ولا يهمك اخى شوف يجب ان يكون السجلات المتاحه للتعديل فالجدول تحمل القيمه نعم اى مؤشر على حقل الشيك بوكس انظر الصوره وفى اعدادت هذا الحقل بالجدول نجعل القيمه الافتراضيه نعم لجميع السجلات المدخله اما السجلات الموجوده بالجدول يمكنك عمل استعلام تحديث لتحديثها دفعها واحده لنعم وعند تشغيل الفورم سيتم تحديث القيم التى اقل من شهر من يوم 1-5 الان ع حسب الاكواد انظر الصوره بالتوفيق 1
abouelhassan قام بنشر مايو 14, 2022 الكاتب قام بنشر مايو 14, 2022 كل الشكر من القلب استاذى احمد الفلاحجي حبيبى الله يزيدك من فضله يارب يارب والله انى احبك فى الله حفظك الله واعزك بين العباد يارب اكرمك الله مثل ما اكرمتنى اخى
abouelhassan قام بنشر مايو 15, 2022 الكاتب قام بنشر مايو 15, 2022 (معدل) كل الشكر من القلب استاذى احمد الفلاحجي حبيبى الله يزيدك من فضله يارب يارب والله انى احبك فى الله حفظك الله واعزك بين العباد يارب اكرمك الله مثل ما اكرمتنى اخى تم تعديل مايو 15, 2022 بواسطه abouelhassan 1
أبوبسمله قام بنشر مايو 15, 2022 قام بنشر مايو 15, 2022 الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير اخى @abouelhassan هل كده تمام وتمت الاجابه ؟ 1
abouelhassan قام بنشر مايو 15, 2022 الكاتب قام بنشر مايو 15, 2022 (معدل) والله استاذى @احمد الفلاحجي انا فى غاية الخجل من حضرتك منذ امس وانا فى محاولات وفشلت فى تطبيق المثال نعم لا على نموذج مثل برنامجى اليوزر admin الباس 123 سيفتح Form1 فقط نختار السنة المالية2022 هيكتب التاريخ من الى ونضغط عرض ظهر هذا الخطأ الجدول الذى تم عليه تعديل chek اسمه Financial_Records والاستعلام كما سميته حضرتك qryDcount والنموذج الذى سضاف اليه الكود اسمه Financial_Records1 بس بيظهر لى الخطأ اعلاه وعملت استعلام تحيث للكل نفذت كل شئ بس هنا خطا استاذى بارك الله فيك وبك وزادك من فضله اشكر لك اهتمامك اخى الكريم TestLOck.accdbFetching info... تم تعديل مايو 15, 2022 بواسطه abouelhassan
أبوبسمله قام بنشر مايو 15, 2022 قام بنشر مايو 15, 2022 ولا يهمك اخى @abouelhassan يجب اضافه خانه الشيك بوكس chek للنموذج Financial_Records1 تم اضافته وعندك تاريخين لشهر 5 وشهر 6 لسنه 2022 دول المسموح بالتعديل فيهم بالتوفيق TestLOck.accdbFetching info... 1
abouelhassan قام بنشر مايو 15, 2022 الكاتب قام بنشر مايو 15, 2022 (معدل) الله فعلا تسلم ايدك اخى الكريم جداااااااااااااااااااااااا اضاء الله النور فى قلبك وحفظك واكرمك مثل ما اكرمتنى وانعم عليك بخير الدارين وال بيتك وكل احبابك انا احبك فى الله اخى لى اخر استفسار ان شاء الله لو اريد رسالة تضاف للكود للسجلات غير قابلة للتعديل يظهر رسالة هذا السجل غير قابل للتعديل اكون ممنون لحضركتك جداااااااا اخى فى الله ولو اضريت للضرورة تعديل سجل قديم هل لايوجد طريقة غير الدخول الى الجدول اخى حبيبى والله تم تعديل مايو 15, 2022 بواسطه abouelhassan 1
أبوبسمله قام بنشر مايو 15, 2022 قام بنشر مايو 15, 2022 احبك الذى احببتنا فيه وجزاك الله خيرا عالدعاء ولك مثله اخى ابوالحسن والفضل كله لله ثم لاخوانى واساتذتى جزاهم الله عنا كل خير واللهم اشملهم بهذا الدعاء الطيب في 15/5/2022 at 20:13, abouelhassan said: لو اضريت للضرورة تعديل سجل قديم هل لايوجد طريقة غير الدخول الى الجدول اخى Expand اعمل نموذج خاص متاح للمسؤل بالتعديل فالسجلات القديمه وضع خانه ملاحظات وتكون مطلوبه اى لايقبل التعديل الا باضافه الملاحظات دى علشان يقول تم تعديل السجل ده من كذا لكذا بسبب كذا حتى يمكن التعرف على السجلات القديمه المعدله واسبابها بالتوفيق اخى 1
abouelhassan قام بنشر مايو 15, 2022 الكاتب قام بنشر مايو 15, 2022 في 15/5/2022 at 20:35, احمد الفلاحجي said: اعمل نموذج خاص متاح للمسؤل بالتعديل فالسجلات القديمه وضع خانه ملاحظات وتكون مطلوبه اى لايقبل التعديل الا باضافه الملاحظات دى علشان يقول تم تعديل السجل ده من كذا لكذا بسبب كذا حتى يمكن التعرف على السجلات القديمه المعدله واسبابها Expand الله يراضيك اخى حبيبى الغالى اطمع اخيرا لو تسمح لى اخى الغالى بمثال اقوم بغش النموذج منه معلش اخى الكريم
أبوبسمله قام بنشر مايو 15, 2022 قام بنشر مايو 15, 2022 طيب بما ان قد تم الاجابه والحمد لله ع هذا الموضوع وحتى لا نخالف قواعد الموقع بما انه ده سؤال تانى في 15/5/2022 at 20:39, abouelhassan said: اطمع اخيرا لو تسمح لى اخى الغالى بمثال اقوم بغش النموذج منه Expand وبما اننا نتعلم فلا اريدك ان تغش بل تتعلم وتعتمد ع نفسك قم برسم النموذج الذى تريده ع ورقه ماذا تريد فيه من حقول ومن اين تاتى وماذا تريد منه ثم قم بتصميمه ثم قم بعدها بتكويد كود التحديث واستخدم استعلام التحديث وضع الشروط فى الاستعلام هتحدث سجل مين ومن فورم ايه جرب على المثال الاخير الذى وقفنا عنده 👇 ثم بعدها انتقل للتنفيذ على برنامج فى نسخه منه الى ان تستقر انقله لبرنامجك الاساسى وان وقفت حينها فى شىء افتح موضوع جديد كما اتفقنا لان ده سؤال تانى خالص واشرح ما تريد وما تم عمله وما تريد الوصول اليه حتى تتم مساعدتك فيما وقفت عنده من قبل اخوانك واساتذتنا جزاهم الله عنا كل خير في 14/5/2022 at 16:14, احمد الفلاحجي said: Date_2_trueOrfalse.accdb 540 kB · 3 downloads Expand تقبل تحياتى وبالتوفيق 1
abouelhassan قام بنشر مايو 15, 2022 الكاتب قام بنشر مايو 15, 2022 اشكرك اخى استاذى الحبيب @احمد الفلاحجي الله يراضيك ويرضيك في 15/5/2022 at 20:58, احمد الفلاحجي said: قم بتصميمه ثم قم بعدها بتكويد كود التحديث واستخدم استعلام التحديث وضع الشروط فى الاستعلام هتحدث سجل مين ومن فورم ايه Expand مش هعرف استاذى اذا تكرمت عليا بمثال اكون شاكر فضلك اخى وسأفتح موضوع جديد حاضر انت جمايلك كثيرة فى رقبتى اخى وانا لا املك الا الدعاء لك عن ظهر الغيب احبك فى الله حبيبى والله العظيم
أبوبسمله قام بنشر مايو 16, 2022 قام بنشر مايو 16, 2022 في 15/5/2022 at 21:04, abouelhassan said: مش هعرف Expand بعتذر مش هقدر اساعدك فالوقت الحالى بالتوفيق 1
abouelhassan قام بنشر مايو 16, 2022 الكاتب قام بنشر مايو 16, 2022 في 16/5/2022 at 17:37, احمد الفلاحجي said: بعتذر مش هقدر اساعدك فالوقت الحالى بالتوفيق Expand الله يوفقك ويكرمك ويحفظك اخى الكريم انا الذى اعتذر لحضرتك واقبل راسك لجميل صنعك تقبل احترامى وتقديرى وشكرى وخالص الدعاء
abouelhassan قام بنشر مايو 27, 2022 الكاتب قام بنشر مايو 27, 2022 السلام عليكم اخى استاذ احمد الفلاحجي بارك الله فيك وبك ولك اخى الكريم معلش استاذى احتاج استثناء الخلية Pay بحيث يتم تنفيذ الكود تمام كما هو ما عدا Pay يمكن تعديلها هل بالامكان مساعدتى اخى الكريم اكون شاكر فضلك وكرمك اخى في 15/5/2022 at 19:08, احمد الفلاحجي said: ولا يهمك اخى @abouelhassan يجب اضافه خانه الشيك بوكس chek للنموذج Financial_Records1 تم اضافته وعندك تاريخين لشهر 5 وشهر 6 لسنه 2022 دول المسموح بالتعديل فيهم بالتوفيق TestLOck.accdb 1.52 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads Expand
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.