abouelhassan

بارك الله فيك استاذى 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 استاذى وفى الاستدعاء استخدمت الكود وما ناجحش مش عارف ليه بارك الله لنا فيك استاذى

ربنا يراضيك استاذى @د.كاف يار يارب بحق لا الله الا الله وحق الشهر الكريم والايام الكريمة يارب السنة المالية بالرغم انها مكتوبة تمام بالاعلى الله يبارك لك لم تكتب بالفورم الاسفل وبعد الضغط على زر ترحيل وبالرغم ان الرقم بالاعلى اتمسح تمام لم يتم مسح الرقم بالفورم السفلى استاذى الحبيب عند الاستدعاء من ملف الاكسيل ممتاز جداا كما ترى استاذى فائدة الحذف اننى ادخل المبالغ فى الحسابات التى احتاجها اما ما لا احتاجه فى فاتورة اقورم بحذفه من الزر حذف حتى لايتم ترحيله وهو يحتوى على صفر هل ممكن استاذى زر لحذف السجلات التى تحوى مبلغ 0 مرة واحدة بدل ما اقوم بحذف واحد واحد وساعات احذف سجلات بالغلط بها مبالغ هل من زر لحذف لبسجلات التى المبلغ بها=0 اكون شاكر لحضرتك جدااااا فورم الاستدعاء هل الكود الذى استخدمه هو انقله من الصفحة ترحيل الى الاستدعاء Private Sub Combo97_AfterUpdate() If DCount("*", "EndYaer", "[NowYaer]=" & Me.YEAR) = 0 Then NowYEAR.DefaultValue = "" MsgBox "ÇáÓäÉ ÇáãÇáíÉ ÇáãÏÎáÉ ÛíÑ ãÓÌáÉ ÈÇáäÙÇã", vbCritical + vbMsgBoxRight, "ÊäÈíå" YEAR.SetFocus YEAR = Null Exit Sub Else NowYEAR.DefaultValue = [YEAR] End If Main_iBill_Number = Null iBill_Number.DefaultValue = "" End Sub ربنا يبارك فى عمرك يارب احترام من اخيك

شكر وتقدير واحترام من اخيك استاذى

اسعد الله صباحك استاذى @د.كاف يار عيدكم مبارك ان شاء الله جمسل جدا الالوان المبهجة بفورم الترحيل والادخال وفعلا كود التكرار يعمل ممتاز الام مربوط بالسنة المالية حفظك الله ويارب استيراد من ملف الاكسيل لا يتأثر بس هنا استاذى حبيبى التاريخ بالفورم السفلى غريب 30/12/1899 مع انى كاتب بالاعلى 1/7/2021 واريد استاذى ان تكون فلى الاعلى دائما السنة المالية الحالية مكتوبة اوتو يعنى بسجل السنة المالية العلوى يكون مكتول2022 ولو احب اغيره لسن قديمة ابقى اغيرها كمان بالرغن انى اخترت مخزن 2 الا ان السجل الاول بالفورم لم يكتب مخزن2 وبفورم الاستدعاء لايزال لم يتم الربط بالسنة المالية يعنى انا كتبت رقم 100 دون ان اختار السنة المالية وع ذلك استدعى البيانات اريد فى هذه الحالة ان توقفنى رسالة اختار السنة المالية وايضا التاريخ استدعى ساعة 12.00.06 مع انه تاريخ استاذى بارك الله فيك اخى وكل عام وانت واسرتك بكل خير الدنيا يارب

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

اعزك الله استاذى الحبيب وغفر لك اللهم امين حبيبى استاذى @د.كاف يار هذه اخر نسخة بها التعديل الاخير فورم الادخال والترحيل كود قراة ان الرقم مكرر اريد ان يقرا رقم المستند مع الرقم السنة المالية عند البحث على الرقم المكرر بحيث يكون رقم 1 فى سنة2021 غير 1 فى 2022 هنا فى هذا الكود يتم اضافة YEAR له Private Sub Main_iBill_Number_AfterUpdate() On Error Resume Next DoCmd.RunCommand acCmdSaveRecord Dim db As DAO.Database Dim sSQL As String Dim MaxIB As String If Nz(DCount("[iBill_Number]", "tbl_Items", "[iBill_Number] Like '" & Me.Main_iBill_Number & "'"), 0) = 0 Then Call EditNmberRows Else If MsgBox(" هذه الرقم مكرر" & vbCrLf & vbCrLf & " هل تريد استخدام هذا الرقم", vbYesNo + vbMsgBoxRight, "Confirmation Required") = vbYes Then Call EditNmberRows End If End If End Sub هذا بالنسبة لفورم الترحيل والادخال فقط هذه الاضافة انا حاولت اعدل الكود ولكن خبرتى ضعيفة والله حاولت اضيف YEAR للكود معرفتش وانا شرحت لحضرتك لو انا ادخلت رقم وغيرت السنة المالية اريد الكود بالاعلى يقرا انه مختلف باختلاف السنة المالية اما فورم Serch المشكلة به عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ مع اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية اريد تعديل ان تخرج رسالة ضرورة اختيار السنة المالية هنا فى الصورة مجرد اختيار سنة 2022 ظهرت كل البيانات المطلوب بعد اذنك عندما اختار السنة المالية لا تخرج اى بيانات بل البيانات تخرج بعد كتابة رقم الفاتورة او المبلغ يعنى لو كانت السنة المالية ما اخترت فيها شى وكتبت رقم فاتورة او مبلغ اريد تعديل ان تخرج رسالة اختار السنة المالية اولا واذا اخترت رقم من قائمة السنة المالية يتوجه السهم الى رقم المستند ولا تخرج بيانات الا بكتابة اما رقم فاتورة او مبلغ فاهمنى استاذى الحبيب هو ده المشكلة التى تواجهنى حاليا ربط البحث بالسنة المالية لعدم تكرار الاستدعاء وفورم الترحيل تعديل كود الرقم مكرر بحيث يقرا الرقم الفاتورة+السنة المالية قبل ان يخرج رسالة الرقم مكرر ربنا ما يحرمنا منك ابداااااااااا استاذى الغالى حبيبى احترامى وتقديرى DATA14.zip

استاذى الحبيب @د.كاف يار كل عام وحضرتك بكل خير حاولت التعديل فى كود الفلتر فى الفورم sersh Private Sub txtsearch_AfterUpdate() On Error Resume Next Dim varFilter As Variant varFilter = Null If Len(Me.Combo97 & "") = 0 Then MsgBox "ÚÝæÇ ¡ íÌÈ ÇÎÊíÇÑ ÇáÓäÉ ÇáãÇáíÉ" Cancel = True End If If Not IsNull(Me.Combo97) Then varFilter = (varFilter) & "[YEAR] LIKE '" & Me.Combo97 End If If Not IsNull(Me.txtsearch) Then varFilter = (varFilter) & "[iBill_Number] LIKE '" & Me.txtsearch & "'" End If With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .DataEntry = True .FilterOn = False End If .Requery End With End Sub بس يحتاج ضبط مشكور استاذى بارك الله فيك اخى فى الله وزادك من فضله يارب

للرفع

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

للرفع

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

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

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

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

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

بارك الله فيك اخي الكريم

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