abouelhassan

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

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

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

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

بارك الله فيك استاذى Hawiii حذفت الامر ولا يزال الوضع كم هو بارك الله فيك اخى الكريم

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

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

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

ادام الله على الجميع الصحة والعافية يارب عيدكم مبارك

استاذى حبيبى اخى فى الله @د.كاف يار ربنا يكرمك والله يارب يارب يارب هفرحك فورم البحث نفذت الكود الموجود بالاعلى واضفت عليه هذه الجملة ونجح تمام التمام If Len(Me.Combo97 & "") = 0 Then MsgBox "عفوا يجب اختيار السنة المالية" Me.Combo97.SetFocus Cancel = True Exit Sub End If كمان اضفت الكود Private Sub Combo97_Click() On Error Resume Next With Me.Form Me.txtsearch = Null Me.Text22 = Null .DataEntry = True .FilterOn = False End With Me.Combo97.SetFocus End Sub ونجح تمام وجعلت القيمة الافتراضية للسنة المالية بالبحث طبعا غاششها من حضرتك =Nz(DLast("[NowYaer]";"[EndYaer]");0) وجعلت الخط سمبك احمر بقت جميلة جداااا و اللون البنى خليته ازرق فاتح زى الادخال وبكده انتهى فورم البحث تمام الله يبارك لك فورم الترحيل وضعتها وعند الذهاب للجدول لازال ترحل 0 الى عمود YEAR والله فرحتنى جدااااا ربنا يفرحك يارب احترام من القلب والله لك

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

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

حفظك المولى ورعاك اخى استاذى @د.كاف يار تمام استاذى تم عمل هذا وظهرت 2022 ولكن بمراجعة الجدول الرئيسى وجدت ان عمود year به0 ولم ترحل 2022 الى الجدول هل اضع هذه الجملة فى زر واكتب اسم الجدول tbl_items والعمود iAmount استاذى وفى الاستدعاء استخدمت الكود وما ناجحش مش عارف ليه بارك الله لنا فيك استاذى