abouelhassan

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

معلش استاذى الحبيب لقلبى @jjafferr احتاج مساعدتك لو وقت حضرتك يسمح فى نفس الموضوع هذا جزء من البرنامج للتجربة اخى الكريم Form1 هو فورم فلترة للبيانات بالمعايير الموجودة وفى البرنامج الاصلى يعمل تمام ويقوم باحضار البيانات المراد تصفيتها هنا تمام احتاج كود تصدير للاكسيل ما يعرض فى هذا الفورم اى ناتج التصفية بأى معيار فقط هو ما يتم تصديره للاكسيل حولت كتير بس بيتم تصدير كل بيانات الجدول واناا حتاج تصدير ناتج التصفية فقط زادك الله من فضله اخى الكريم وجزاك الله عنا كل خير يارب T3Q 22- Copy.accdb

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

هل لى بسؤال بعد اذن حضرتك استاذى الحبيب لقلبى @jjafferr طيب اذا كان الفلترة عن طريق كود ويستخرج البيانات مفلترة تمام كيف تصدر ناتج الفلترة الى الاكسيل لو تكرمت علينا اكون شاكر فضلك اخى الكريم

الله يوفقك ويكرمك ويحفظك اخى الكريم انا الذى اعتذر لحضرتك واقبل راسك لجميل صنعك تقبل احترامى وتقديرى وشكرى وخالص الدعاء

اشكرك اخى استاذى الحبيب @احمد الفلاحجي الله يراضيك ويرضيك مش هعرف استاذى اذا تكرمت عليا بمثال اكون شاكر فضلك اخى وسأفتح موضوع جديد حاضر انت جمايلك كثيرة فى رقبتى اخى وانا لا املك الا الدعاء لك عن ظهر الغيب احبك فى الله حبيبى والله العظيم

الله يراضيك اخى حبيبى الغالى اطمع اخيرا لو تسمح لى اخى الغالى بمثال اقوم بغش النموذج منه معلش اخى الكريم

الله فعلا تسلم ايدك اخى الكريم جداااااااااااااااااااااااا اضاء الله النور فى قلبك وحفظك واكرمك مثل ما اكرمتنى وانعم عليك بخير الدارين وال بيتك وكل احبابك انا احبك فى الله اخى لى اخر استفسار ان شاء الله لو اريد رسالة تضاف للكود للسجلات غير قابلة للتعديل يظهر رسالة هذا السجل غير قابل للتعديل اكون ممنون لحضركتك جداااااااا اخى فى الله ولو اضريت للضرورة تعديل سجل قديم هل لايوجد طريقة غير الدخول الى الجدول اخى حبيبى والله

والله استاذى @احمد الفلاحجي انا فى غاية الخجل من حضرتك منذ امس وانا فى محاولات وفشلت فى تطبيق المثال نعم لا على نموذج مثل برنامجى اليوزر admin الباس 123 سيفتح Form1 فقط نختار السنة المالية2022 هيكتب التاريخ من الى ونضغط عرض ظهر هذا الخطأ الجدول الذى تم عليه تعديل chek اسمه Financial_Records والاستعلام كما سميته حضرتك qryDcount والنموذج الذى سضاف اليه الكود اسمه Financial_Records1 بس بيظهر لى الخطأ اعلاه وعملت استعلام تحيث للكل نفذت كل شئ بس هنا خطا استاذى بارك الله فيك وبك وزادك من فضله اشكر لك اهتمامك اخى الكريم TestLOck.accdb

كل الشكر من القلب استاذى احمد الفلاحجي حبيبى الله يزيدك من فضله يارب يارب والله انى احبك فى الله حفظك الله واعزك بين العباد يارب اكرمك الله مثل ما اكرمتنى اخى

كل الشكر من القلب استاذى احمد الفلاحجي حبيبى الله يزيدك من فضله يارب يارب والله انى احبك فى الله حفظك الله واعزك بين العباد يارب اكرمك الله مثل ما اكرمتنى اخى

تستطيع تنفيذ ما تريد بواسطة الكود لو تكرمت بوضع نموذج سيتم التنفيذ عليه ان شاء الله y = Format$("\#mm\/dd\/yyyy\#")

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

افتح على وضع التصميم اخى وضع التنسيق التالى DD/MM/YYYY بالتوفيق ان شاء الله

معلش اعذرنى اخى الكريم جدا حفظك الله اليوم هو14/5/2022 والبيانات فى الجدول14/5/2022 المفروض تكون متاحة للتعديل حتى يوم10/6/2022 وحتى غيرت التاريخ فى الجدول الى 8/5/2022 وايضا غير متاح التعديل استاذى الحبيب لقلبى بارك الله فيك وبك اخى

استاذى الحبيب وجدت كود لاستاذى الحبيب @jjafferr ربنا يبارك له ويحفظه اخى الكريم Dim Msg, Style, Title, Response, PauseTime Dim Sh_Msgbox As Object PauseTime = 5 'Seconds Msg = "هل تريد الاستمرار" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان" Set Sh_Msgbox = CreateObject("WScript.Shell") Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title, Style) If Response = vbYes Then MsgBox "تم اختيار نعم" Else MsgBox "تم اختيار لا ، او انتهى الوقت" End If End Sub كود يعمل على اختفاء الرسالة اتو بعد 5 دقائق اردت ان اوظفه مع الكود بتاع حضرتك مع بعض يعنى بس بيظهر لى الرسالتين مع بعض Dim i As Byte i = Day(Date) If i = 1 Or i = 2 Or i = 3 Or i = 14 Then Dim Msg, Style, Title, Response, PauseTime Dim Sh_Msgbox As Object PauseTime = 5 'Seconds Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان" Set Sh_Msgbox = CreateObject("WScript.Shell") Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title) MsgBox "الوقت انتهى" End If هل تتكرم استاذى للوقوف على موضع الخطأ اكون شاكر فضلك احترامى وتقديرى لك اخى

بارك الله فيك اخى استاذى Eng.Qassim مشكور حبيبى اخى الكريم

زادك الله من فضله وكرمه وال بيتك اخى حبيبى استاذى @ابوخليل والله رائع رائع تسلم ايدك اخى

اخى فى الله استاذى الحبيب احمد الفلاحجي اثقلت كاهلنا بجمايلك اخى لا نملك الا ان ندعوا لك كل يوم على ما فعلته اخى الكريم جدا تقبل احترامى وخالص دعائى لك اخى استاذى المبدع استاذ احمد حفظك الله وحفظ اسرتك الكريمة اللهم امين يارب معلش استاذى انا ذهبت لجدو البيانات وعلمت شيك على كل البيانات وغير اول سطر الى 14/5/2022 حتى يتم التعديل الى 14/6/2022 ولكن عند فتح الفورم ذهبت مرة اخرى للجدول لم اجد شيك ووجدت التعديل مغلق سامحنى اخى الكريم Date_2_trueOrfalse.accdb

السلام عليكم اخوان الافاضل بارك الله فيكم اخوانى الاعزاء هل بالامكان عمل رسالة تذكيرية تظهر اول كل شهر رسالة تظهر كل اول شهر يعنى يوم 1 و2و3و4و5كل شهر وتختفى بدون تدخل فقط ستكون رسالة تذكرية وتختفى ثم لا تظهر الا يوم 1و2و3و4و5 الشهر الذى يليه وهكذا بارك الله فيكم اخوانى الافاضل احترامى وتقديرى Date-1 (3_4).accdb

للرفع رفع الله قدركم

والله العظيم استاذى @احمد الفلاحجي الشكر لايكفيك حقك والله العظيم حضرتك رائع اخى الكريم اتقدم لك بخالص الشكر وخالص الدعاء والله العظيم من القلب لك اخى الكريم زادك الله واكرمك وحفظك وال بيتك اللهم امين يارب بالنسبة لمقترح حضرتك لو تكرمت عليا بمرفق للتوضيح اكون سعيدا وشاكر لك احبك فى الله من قلبى احبك اخى الكريم اكثر الله خيرك اخى

سدد الله خطاك اخى استاذى @احمد الفلاحجي وسقاك من حوض النبى صلى الله عليه وسلم شربت هنيئة لاتظمأ بعدها ابدا يارب شهر 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).accdb

الله يسعد اوقاتك اخى الكريم جداااااااااااااااااااااااااااااااااااااااا حفظك الله وزادك من فضله اللهم امين اخى صادفتنى مشكلة اخى عذرا اخى الكريم فى المثال المرفق كما بالصورة تاريخ القيد 1/4/2022 واليوم هو14/5/2022 يعنى تخطى 10/5/2022 ويجب ان يمنع التعديل والحذف بس التعديل بيتم عادى الله يرضى عنك اخى وعن والديك اعذرنى اخى الكريم وحفظك وجزاك الله عنا كل الخير Date-1 (3_1).accdb

اخى الحبيب الى قلبى استاذى الكبير احمد الفلاحجي تسلم ايدك والله روعة روعة حضرتك رائع رائع رائع جداااااااااااااا حفظك الله وزادك من فضله وعلمه الكود ممتاز ويعمل اخى فى كل شئ عدا الحذف لا زال يعمل هذا الزر به كود حذف به هذا الكود Private Sub أمر31_Click() If MsgBox("هل تريد فعلا حذف القيد نهائياً ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تأكيد عملية الحذف") = vbYes Then Dim db As DAO.Database Dim rs As DAO.Recordset Dim MyNo As Integer MyNo = [Registration_Number] Set rs = CurrentDb.OpenRecordset("SELECT * FROM [Financial_Records] where Registration_Number=" & MyNo) rs.Delete rs.Close Set rs = Nothing DoCmd.Requery End If End Sub هو الوحيد الذى احتاج الى تطبيق الكود عليه معلش استاذى الحبيب لقلبى لان برغم عدم امكانية التعديل بس يمكن حذف القيد وبكده يكون الكود متكامل ان شاء الله بفضل الله وفضلك اخى الكريم جداااااااااااااا خالص الدعاء لك اخى الكريم احترمى لك وخالص التقدير والشكر TestLOck.accdb