abouelhassan

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

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

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

ممتاز استاذنا kanoryتسلم ايدك ربنا يكرمك يارب

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

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

مشكور اخي الكريم وجزاك الله خير الجزاء

بارك الله فيك استاذى الغالى حبيبي @د.كاف يار هذا الكود هو احد ابداعاتك الكثيرة وهو الكود الاول الذى كنت اريد اضافة YEAR له وبيسبب لى مشكلة انه عند تشابه رقم المستند يخرج رسالة الحساب متكرر If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then انا حاولت بس يخرج الكود رسالة خطأ مااريده بسيط عليكم ان شاء الله فقط ان يقوم بالبحث داخل فورم الترحيل ليس كل الجدول كما شرحت لحضرتك هنا اريد تغير الى بدل ان يعمل على tbl_items وكل هذا فقط يبحث بالفورم نفسه frm_items_entry وعندم يجد مثل هنا الحساب النقدية اختارته مرتين هنا بالخطا ينبهنى ان الحساب مكرر بغض النظر ان الرقم 111 مكرر او المخزن او اى شى فقط انه فى الفورم نفسه حساب مكرر اكثر من مرة ربنا يحفظك يارب وال بيتك اجمعين اللهم امين

شكر وتقدير واحترام لك اخى استاذ @kanory تسلم ايدك استفادنا كثيرا

انا حاولت التعديل فى الكود بس برده فى كل الاحوال تخرج رسالة فشل الاختيار تم ادخال الحساب مسبقا بالتغير الى If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "frm_Items_Entry")) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub احترامى الشديد

بارك الله فيك استاذنا الفاضل احترام وتقدير من اخيك

استاذى الحبيب @د.كاف يار الكود يبحث داخل الجدول الرئيسى ويخرج الرسالة اذا كان الحساب متكرر بدلالة الرقم والسنة المالية Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub بس سبب لى مشاكل باستمرار الان تخرج لى رسالة الحساب مكرر حتى لو مش مكرر فى الفورم فبالبحث داخل جدول البيانات يصدف تكرار الحساب احتاج ان يعمل الكود فقط على الحساب فى الفورم ترحيل دون الرجوع ل جدول البيانات الرئيسى فقط فى مثل هذه الحالة يخرج رسالة تنبيه الحساب مكرر معلش استاذى احترامى الشديد وخالص دعائى لشخصك الكريم جدا اخى DATA14-1.mdb

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

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

بارك الله فيك استاذى الغالى @ناقل ربنا يكرمك يارب ويجازيك كل خير انا طبقت المثال ونجح بس فى مشكلة فى التصميم لدى لدى تكست بهذا الشكل السنة المالية اين اضع الاستعلام لانى مش لاقيه خالص للاسف معذرة لو امكن انا وضعتها فى مثال حضرتك للاطلاع لو امكن اكون شاكر فضلك اخى احترامى وتقديرى ناقل2.accdb

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

للرفع

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

استاذى الفاضل ناقل زادك الله من فضله ارجو الاطلاع على المرفق قمت بالتنفيذ وداخل الاستعلام عدلت اسم الفورم واسماء التكست ومع ذلك لم يتم التنفيذ ممكن الاطلاع رجاء بارك الله فيك اخى الكريم وجزاء الجنة ان شاء الله احترامى وتقديرى وشكرى 5555DATA14.rar

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

السلام عليكم اخوانى الافاضل احترامى وخالص دعائى احتاج لربط التاريخ بالسنة المالية فى فورم الادخال والترحيل فى تكست السنة المالية اريد ربطها بالتاريخ بحيث عند اختيار التاريخ يتم كتابة السنة المالية اوتو ليس عن طريق القيمة الافتراضية بل عن طريق الربط بجدو ل وفورم السنة المالية هنا بداية السنة المالية الاولى 1/7/2020 وتنتهى فى30/6/2021 عايز لو كتبت فى تكست التاريخ التى اعلى السنة المالية اى تاريخ مابين هذين التاريخين يكتب فى التكست بتاع السنة المالية2021 ولو كتبت تاريخ ما بين1/7/2021 حتى30/6/2022 يكتب فى تكست السنة المالية 2022 اوتو وعند مسح التاريخ تكون تكست السنة المالية فارغة استدعدادا لاختيار تاريخ جديد ويوجد كود اذا كتبت سنة مالية غير مسجلة بتظهر الرسالة التى بالصورة السنة المالية غير مسجلة عايزها تظل كما هى ان شاء الله سهل عليكم يارب يارب حفظكم الله ورعاكم وبار فيكم اللهم امين احترامى 5555DATA14.zip

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

بارك الله فيك استاذى الحبيب Eng.Qassim الان اصبح عند اختيار اى حساب مرة واحدة تخرج لى الرسالة تم ادخال هذا الحساب مسبقاوالمفروض ان الرسالة تخرج لو انى اختارت حساب واحد مرتين ام الا تخرج مع كل اختيار حساب مرة واحدة والكود كده هيكون ناقص الكود الاصلى به iBill_Number اريد اضافة YEAR له If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then و الكود تعديل حضرتك اشكرك استاذى بارك الله فيك اخى

السلام عليكم اخواتى الافاضل هذا الكود من ابدا ع @د.كاف يار له كل الشكر والاحترام وخالص الدعاء وهذا حقه واقل من حقه احتاج تعديل فيه برجاء التكرم بتعديل الكود باضافة العمود YEAR فى الكود فى Dcount هنا If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then انا حاولت بس يخرج الكود رسالة خطأ If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] Like '" & YEAR, "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then ليكون اذا تكرر الحساب يخرج رسالة انه تم اختيار الحساب مسبقا هذا الكود يعمل بس على كل البيانات احتاج اضافة السنة المالية الى الكود والسنة المالية هى YEAR ليتم التحديد بالرقم iBill_Number والسنة المالية YEAR Private Sub iPage_AfterUpdate() On Error Resume Next If Nz(DCount("[iPage]", "tbl_Items", "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If End Sub مع خالص الشكر والتقدير والدعاء احترامى الشديد لحضراتكم

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