abouelhassan

للرفع

استاذى الغالى ناقل منذ امس طبقت المثال بالكامل ولم يعمل معى حتى اننى غيرت اسماء الاعمدة بمثال حضرتك مثل مسمياتى وكذلك الاستعلام وكل شى ولم يعمل ارجو الاطلاع وتوضيح اين الخطأ لو تكرمت بارك الله فيك وزادك الله علما اللهم امين استاذى الغالى 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 مع خالص الشكر والتقدير والدعاء احترامى الشديد لحضراتكم

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

بارك الله فيك استاذى الغالى د.كاف يار اعزك الله وزادك من فضله ورعاك اللهم امين

ربنا يرضى عنك استاذى الغالى الى قلبى حبيبى د.كاف يار الفاضل اشكرك استاذى هذا المثال المرفق لاحد الاساتذة بالمنتدى هو ما احتاج مثله للتطبيق على قاعدة بياناتى هو محترف جدا بس بيعمل نسخة احتساطى للقواعد المقسمة المرتبطة انا مش عارفها وجدته فى المنتدى احتاج مثله للقواعد العادية ربنا يكرمك يارب Backup (2).rar

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

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

والله لم الاححظ ان حضرتك رافع مثال الا الان رغم انى واضع ليك للمشاركة الخاصة بحضرتك فعلا يعمل ممتاز اشكرك اخى بارك الله فيك ربنا يكرمك بكل خير يارب احترام من اخيك

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

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

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

استاذى الكريم جدااااد.كاف يار اسعد الله اوقاتك بعد ان اضفت الكود فتحت الفورم اخترت اظهار الكل امامنا 3 مبالغ 100-200-15200 اخترت حذف 15200 التى بالاسف عن طريق لبضغط عى علامة الحذف الحمراء فظهر لى هذا اتحذف السطر الاول المبلغ 100 وتكرر السطر الذى ضغطت على علام الحذف التى امامه حبيبى استاذى الكريم الغالى د.كاف يار نفس النتيجة التى بالاعلى كل ما اختار احذف يتكرر السطر ربنا يكرمك يارب ويزيدك من فضله بارك الله فيك وبك استاذى الحبيب

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

بارك الله فيك اخى استاذ Hawiii حبيبى اشكرك استاذى الكريم جدااااد.كاف يار اسعد الله اوقاتك بعد ان اضفت الكود فتحت الفورم اخترت اظهار الكل امامنا 3 مبالغ 100-200-15200 اخترت حذف 15200 التى بالاسف عن طريق لبضغط عى علامة الحذف الحمراء فظهر لى هذا اتحذف السطر الاول المبلغ 100 وتكرر السطر الذى ضغطت على علام الحذف التى امامه بارك الله فيك وبك استاذى الحبيب DATA14.mdb

بارك الله فيك استاذى ها هو الكود الذى استخدمه اخى Private Sub DELL_ROW_Click() On Error Resume Next If IsNull(Select3) Then a2.Visible = True MsgBox "íÌÈ Êãßíä ÇáÍÐÝ ", vbCritical + vbMsgBoxRight, "ÊäÈíå" Exit Sub End If If Not IsNull(Select3) Then a2.Visible = False End If 'DoCmd.SetWarnings False ' DoCmd.Requery ' DoCmd.RunCommand acCmdSelectRecord ' DoCmd.RunCommand acCmdDeleteRecord 'DoCmd.SetWarnings True If MsgBox("ÇäÊ Úáì æÔß ÍÐÝ ÓÌá ", vbYesNo, "ÑÓÇáÉ ÊÍÐíÑíÉ") = vbYes Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Else End If End Sub بارك الله فيك اخى الكريم

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

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

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

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