abouelhassan قام بنشر يوليو 16, 2021 قام بنشر يوليو 16, 2021 السلام عليكم اخوانى كل عام وحضراتكم بخير اتمنى مساعدتى فى تعديل الكود قمت بعمل الاتى اضفت بالفورم الرئيسى زر اسمه السنة المالية عند الضغط عليه عند الضغط عليه يفتح الفورم الظاهر بالصورة وهو من ابداعات الاستاذ الكبير @د.كاف يار له كل الحب والاحترام والتقدير والدعاء والله نحدد فيه بداية السنة المالية وهى من 1/7/2021 الى 30/6/2022 وهكذا كل سنة نقوم باضافتها والجدول المربوط بها هو endyear وقمت باضافة عمود للجدول الرئيسى للبيانات tbl_items اسمهyear اريد ان يتم مع ترحيل البيانات من فورم الادخال والترحيل يت ترحيل العام المالى الحالى اليه الغرض لان رقم المستند يتكرر بتغير العام اردت ان يتم التميز بالعام المالى . المطلوب التعديل على كودين فورمين هما الادخال والترحيل بحيث يتم مع الترحيل اوتوماتيك ترحيل العام الحالى الظاهر فى العمود NOWYEAR بفورم السنة الماليةالى العمود year وعند الضغط على زر استدعاء للتعديل سيظهر الفورم اضفت قائمة اسمها السنة المالية هذا الفورم يقوم باستدعاء البيانات اما برقم الفاتورة او بالمبلغ اريده ان يطلب تحديد العام المالى عندد الاستدعاء حتى لايتكرر استدعاء الفواتير التى سيتكرر رقمها فى العام الجديد بهذا سيكون محدد استدعاء الفاتورة رقم 1 فى العام المالى 2021 مثلا وهكذا اتمنى المساعدة مع شرح التغيرات اين تمت مع الشكر من القلب اخيكم باحترام DATA14.rar
د.كاف يار قام بنشر يوليو 16, 2021 قام بنشر يوليو 16, 2021 ضع في القيمة الإفتراضية لحل السنة المالية ما يلي DLast("NowYaer", "EndYaer") 2
abouelhassan قام بنشر يوليو 16, 2021 الكاتب قام بنشر يوليو 16, 2021 (معدل) منذ ساعه, د.كاف يار said: ضع في القيمة الإفتراضية لحل السنة المالية ما يلي DLast("NowYaer", "EndYaer") اسعد الله صباحك استاذى الغالى د.كاف يار ربنا يكرمك ويحفظك يارب فى اى فورم اضع هذه الجملة استاذى ربنا مايحرمنى منك ابداااااااااااااااا ابدااااااااااااااااااااااا ابداااااااااااااا تم تعديل يوليو 16, 2021 بواسطه abouelhassan
د.كاف يار قام بنشر يوليو 17, 2021 قام بنشر يوليو 17, 2021 في ١٦/٧/٢٠٢١ at 22:11, abouelhassan said: فى اى فورم اضع هذه الجملة استاذى في الحقل الذي ترغب ان تشاهد فيه النتيجة
abouelhassan قام بنشر يوليو 17, 2021 الكاتب قام بنشر يوليو 17, 2021 (معدل) كل عام وحضرتك بخير حبيبى استاذى د.كاف يار تم التنفيذ على فورم sersh من خلال البحث ببرنامج الدائن والمدين عملت استعلام اسمه year اصبح هو مصدر القائمة لقيت ان 2022 ظهرت تمام ازى اربط البحث بهذا الرقم اى ضرورة اختيار السنة المالية وبعدها اما اكتب رقم الفاتورة او المبلغ للاستدعاء وبالنسبة للترحيل ازى هيتم ترحيل السنة المالية الحالية الى الجدول الرئيسى استاذى كل الشكر والتقدير من اخيك استاذى تم تعديل يوليو 17, 2021 بواسطه abouelhassan
د.كاف يار قام بنشر يوليو 17, 2021 قام بنشر يوليو 17, 2021 اتفضل التعديل يابوالحسن 38 دقائق مضت, abouelhassan said: وبالنسبة للترحيل ازى هيتم ترحيل السنة المالية الحالية الى الجدول الرئيسى استاذى من خلال الاستعلام الإلحاقي DATA14.zip
abouelhassan قام بنشر يوليو 18, 2021 الكاتب قام بنشر يوليو 18, 2021 كل الشكر والتقدري استاذى حبيب قلبى د.كاف يار قمت بالتجربة الاتية ادخال رقم المستند 456 فى السنة المالية2022 كما بالصورة ثم غيرت السنة المالية الى 2021 وادخلت نفس رقم المستند الكود الخاص بالتنبيه فى حالة التكرار مش بيقرا السنة المالية لانه اخرج رسالة الرقم مكرر المفروض الرقم مكرر تخرج الرسالة لو فى نفس السنة عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ امع ضرورة اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية تخرج رسالة ضرورة اختيار السنة المالية وهنا عندما كتبت رقم456 احضر بيانات 456-2021 و456-2022 اريد هنا ان يطلب منى تحديد السنة المالية واحضار بيانات المستند فى هذه السنة فقط هنا اخترت السمة المالية وكتبت 456 المفروض يحضر بيانات رقم الفاتورة456 لسنة 2022 وجدت انه تحضر البيانات لكل السنة المالية بارك الله فيك استاذى حبيبى الغالى اخيك باحترام من القلب
Eng.Qassim قام بنشر يوليو 18, 2021 قام بنشر يوليو 18, 2021 14 hours ago, abouelhassan said: كل الشكر والتقدري استاذى حبيب قلبى د.كاف يار قمت بالتجربة الاتية ادخال رقم المستند 456 فى السنة المالية2022 كما بالصورة ثم غيرت السنة المالية الى 2021 وادخلت نفس رقم المستند الكود الخاص بالتنبيه فى حالة التكرار مش بيقرا السنة المالية لانه اخرج رسالة الرقم مكرر المفروض الرقم مكرر تخرج الرسالة لو فى نفس السنة عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ امع ضرورة اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية تخرج رسالة ضرورة اختيار السنة المالية وهنا عندما كتبت رقم456 احضر بيانات 456-2021 و456-2022 اريد هنا ان يطلب منى تحديد السنة المالية واحضار بيانات المستند فى هذه السنة فقط هنا اخترت السمة المالية وكتبت 456 المفروض يحضر بيانات رقم الفاتورة456 لسنة 2022 وجدت انه تحضر البيانات لكل السنة المالية بارك الله فيك استاذى حبيبى الغالى اخيك باحترام من القلب السلام عليكم ..لم اطلع على ملفك لكن ارفق لك ملف مشابه لما تريده على ما اعتقد .. يعني فقط تعيد اسماء الحقول للاستعلام تحياتي نموذج بحث .accdb
abouelhassan قام بنشر يوليو 19, 2021 الكاتب قام بنشر يوليو 19, 2021 في ١٨/٧/٢٠٢١ at 06:47, abouelhassan said: كل الشكر والتقدري استاذى حبيب قلبى د.كاف يار قمت بالتجربة الاتية ادخال رقم المستند 456 فى السنة المالية2022 كما بالصورة ثم غيرت السنة المالية الى 2021 وادخلت نفس رقم المستند الكود الخاص بالتنبيه فى حالة التكرار مش بيقرا السنة المالية لانه اخرج رسالة الرقم مكرر المفروض الرقم مكرر تخرج الرسالة لو فى نفس السنة عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ امع ضرورة اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية تخرج رسالة ضرورة اختيار السنة المالية وهنا عندما كتبت رقم456 احضر بيانات 456-2021 و456-2022 اريد هنا ان يطلب منى تحديد السنة المالية واحضار بيانات المستند فى هذه السنة فقط هنا اخترت السمة المالية وكتبت 456 المفروض يحضر بيانات رقم الفاتورة456 لسنة 2022 وجدت انه تحضر البيانات لكل السنة المالية بارك الله فيك استاذى حبيبى الغالى اخيك باحترام من القلب للرفع
abouelhassan قام بنشر يوليو 19, 2021 الكاتب قام بنشر يوليو 19, 2021 استاذى الحبيب @د.كاف يار كل عام وحضرتك بكل خير حاولت التعديل فى كود الفلتر فى الفورم 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 بس يحتاج ضبط مشكور استاذى بارك الله فيك اخى فى الله وزادك من فضله يارب
د.كاف يار قام بنشر يوليو 19, 2021 قام بنشر يوليو 19, 2021 في ١٨/٧/٢٠٢١ at 12:47, abouelhassan said: كل الشكر والتقدري استاذى حبيب قلبى د.كاف يار قمت بالتجربة الاتية ادخال رقم المستند 456 فى السنة المالية2022 كما بالصورة ثم غيرت السنة المالية الى 2021 وادخلت نفس رقم المستند الكود الخاص بالتنبيه فى حالة التكرار مش بيقرا السنة المالية لانه اخرج رسالة الرقم مكرر المفروض الرقم مكرر تخرج الرسالة لو فى نفس السنة عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ امع ضرورة اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية تخرج رسالة ضرورة اختيار السنة المالية وهنا عندما كتبت رقم456 احضر بيانات 456-2021 و456-2022 اريد هنا ان يطلب منى تحديد السنة المالية واحضار بيانات المستند فى هذه السنة فقط هنا اخترت السمة المالية وكتبت 456 المفروض يحضر بيانات رقم الفاتورة456 لسنة 2022 وجدت انه تحضر البيانات لكل السنة المالية بارك الله فيك استاذى حبيبى الغالى اخيك باحترام من القلب هذا الموضوع انتهينا منه سابقا يابو الحسن ارجع للملفات السابقة في ١٨/٧/٢٠٢١ at 12:47, abouelhassan said: عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ امع ضرورة اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية تخرج رسالة ضرورة اختيار السنة المالية هذي انا ولا قربت منها كل الي سويته اضفت مربع نص و داخله تعبير خوارزم يعني ما راح يأثر على اي شي في رأي لابد ترجع ترتب برنامج من خلال المشاركات السابقة و بعدها احذف كل النسخ الي موجودة عندك عشان لا يحصل تضارب 6 ساعات مضت, abouelhassan said: استاذى الحبيب @د.كاف يار كل عام وحضرتك بكل خير حاولت التعديل فى كود الفلتر فى الفورم 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 بس يحتاج ضبط مشكور استاذى بارك الله فيك اخى فى الله وزادك من فضله يارب بالنسبة لكود البحث ما لاحظت فيه اي مشكلة
abouelhassan قام بنشر يوليو 19, 2021 الكاتب قام بنشر يوليو 19, 2021 (معدل) اعزك الله استاذى الحبيب وغفر لك اللهم امين حبيبى استاذى @د.كاف يار هذه اخر نسخة بها التعديل الاخير فورم الادخال والترحيل كود قراة ان الرقم مكرر اريد ان يقرا رقم المستند مع الرقم السنة المالية عند البحث على الرقم المكرر بحيث يكون رقم 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 تم تعديل يوليو 19, 2021 بواسطه abouelhassan
د.كاف يار قام بنشر يوليو 19, 2021 قام بنشر يوليو 19, 2021 10 دقائق مضت, abouelhassan said: عند الاستدعاء للتعديل بمجرد اختيار السنة المالية فتجت كل البيانات احتاج الغاء هذا استاذى ولا يتم الاستدعاء الا بكتابة رقم الفاتورة او المبلغ مع اختيار السنة المالية يعنى لو كتبنا رقم فاتورة دون اختيار السنة المالية اريد تعديل ان تخرج رسالة ضرورة اختيار السنة المالية تم حل المشكلة DATA14.zip 11 دقائق مضت, abouelhassan said: هذا بالنسبة لفورم الترحيل والادخال فقط هذه الاضافة انا حاولت اعدل الكود ولكن خبرتى ضعيفة والله حاولت اضيف YEAR للكود معرفتش وانا شرجت لحضرتك لو انا ادخلت رقم وغيرت السنة المالية اريد الكود بالاعلى يقرا انه مختلف باختلاف السنة المالية اما فورم Serch المشكلة به ياليت تشرح هذي بإختصار لأني مافهتها ايش الملطلوب بالتحديد 12 دقائق مضت, abouelhassan said: اريد ان يقرا رقم المستند هذا في اي نموذج بالضبط ؟؟ هل تقصد هذا
د.كاف يار قام بنشر يوليو 19, 2021 قام بنشر يوليو 19, 2021 ابو الحسن فيه اقتراح جدا جميل بالنسبة للإدخال اقترح عليك ان يكون في جدول رئيسي و جدول ترحيلات الرئيسي يتم عليه كل العمليات التعديل و كل الأمور الترحيلات مع الضغط على ازرار ترحيل تحفظ البيانات بيني و بينك مسافة يجب ان تقل لكي يكون الهدف واحد كثرة الشروط في البرنامج و كثرة الأكواد سوف تعاني منها مستقبلا لذا من الأفضل لك ان تقلل من استخدامك للكود قدر المستطاع ما لم افهمه حتى الأن ماهو سبب تمسكك برسلة الرقم مكرر هل تريد استخدام نفس الرقم لم اجد برامج محاسبية تقوم بتكرر ارقام القيود و لا ان تكون متاحة في جميع الأوقات بعد الترحيل العمليات المنطقية هي اساس نجاح اي برنامج لا تزعل مني يابو الحسن و احنا في شهر فضيل بس لابد انك ترجع و تعيد صياغة برنامجك لأنه في امور كثير غير منطقية فكر فيها راح تجد انها مستقبلا راح تسبب مشكلات كثير في البيانات خاصة مع ارقام الفواتير و التي جعلتها نصية و هذي بحد ذاتها مع كثرة الأرقام و الحروف تجعلك تجد صعوب في استخراج النتائج بسبب التشابه و المطابقة تعلمنا بأن اي برنامج او نظام هو عبارة عن سلسلة تكاملية لكن برنامج يفقد التكاملية بشكل كبير و سوف يجعله عرضة للعطب 1
abouelhassan قام بنشر يوليو 19, 2021 الكاتب قام بنشر يوليو 19, 2021 (معدل) حبيبى استاذى @د.كاف يار ربنا يحفظك من اى سوء انا عمرى ما ازعل منك ابداااااااااااااااااا لا سمح الله ربنا يديم المعروف اخى فى الله انت اخى حد يزعل من اخوه بالنسبة لفورم الترحيل استاذى الرقم مكرر ده لانى بنسى كثير ممكن ادخل رقم فاتورة مرتين وانا مش هعرف علشان كده انا متمسك بيه وهو بيأدى الغرض منه بس عايزه يفرق بين الرقم بالسنة المالية وبالنسبة لفورم الاستدعاء اشكرك استاذى تم حل اول مشكلة وهى عند اختيار السنة المالية مش بيخرج كل البيانات بس عايز اربط الاستدعاء بالسنة المالية بحيث انى لو كتب رقم فاتورة لايستدعى بيانات بدون السنة المالية او مبلغ بدون السنة المالية بالنسبة للبرنامج هو بيأدى المطلوب منه وهو من تصميم واهداء من اخى فى الله استاذجعفر وهو الى حببنى فى الاكسيس ربنا يحفظه يارب وال بيته وده كان بناء على برنامج كنت عامله بالاكسيل وهو فيه بيانات انا مش هعرف اطوره وهو بيخرج التقارير المطلوبة منه لو حضرتك انصحنى اعمل ايه وانا اعمله بس البيانات لا تعطب ربنا يستر وما تراه صح نعمله استاذى الحبيب هذا البرنامج به كل عملى وكل حياتى والله ومش عارف ممكن يجرى ايه لو عطب زى ما حضرتك بتقول ربنا يستر والله انا خفت والله على البيانات انا اعمل على البرنامج انا وشخص اخر اليوزر الخاص به لايستطيع ان يرى الجزء السفلى الخاص بالتقارير التى باسفل الفورم الرئيسى بس يستطيع ان يساعد فى ادخال الفواتير ولو فى غلط بيستدعى البيانات من فورم التعديل ويعدلها وانا خوفا من ان يخرج تقارير الخاصة بنا جعلت اليوزر الخاص به لايرى الجزء السفلى الخاص باستخراج تقارير انا حاولت العمل على برنامج الدائن والمدين الى حضرتك صممته بحيث انقل الارصدة اليه واشتغل صح عليه بحيث يتم الادخال دائن ومدين محاسبيا عكسهنا البرنامج ادخل الدائن موجب والمدين بالسالب بس ناقص فيه تقارير كثيرة مش عارف استخرجها منه يعنى احتاج تقرير لمجموعة حسابات معين بتاريخ من وتاريخ الى وكمان باحتاج تقرير للدائن فقط والمدين فقط والرصيد فقط لبعض او كل الحسابات وكمان احتاج لكود تغير القيد من دائن الى مدين والعكس عنى لو حضرتك شفت التقرير اللى اسمه تقرير مهم جدا فى هذا البرنامج والتقارير التى بالجزء السفلى بهذا البرنامج هى التى احتاجها وبرنامج الدائن والمدين استخدمه فى العمل وبدعى لك بس كنت احاول انى اعمل عليه هذا البرنامج كمان يعنى اشتغل عليه كل عملى اما حاليا انا اشتغل على البرنامجين البرنامج ممكن حضرتك تفحصه وتشوف التقارير التى تخرج منه و الية عمله وانصحنى اعمل ايه اكون شاكر فضلك والله وانا قمت بوضع البرنامج على جوجل درايف لحفظه واعمل عليه من خلال الدريف حتى لايحذف من انتى فايروس او يتلف وحضرتك عملت لى نسخ احتياطى وكنت فاكر انه كده متأمن تمام بس انا خفت جدا الان لانى اول مرة اعرف انه فى خطر على البيانات به وانا بحبك فى الله والله ربنا اعلم انا النهاردة فى يوم عرفة دعيت لك كثير جدااا والله من قلبى ولاستاذ جعفر واستاذ ابو خليل والله انا بحبكم احترامى تم تعديل يوليو 19, 2021 بواسطه abouelhassan
abouelhassan قام بنشر يوليو 20, 2021 الكاتب قام بنشر يوليو 20, 2021 اسعد الله صباحك استاذى @د.كاف يار عيدكم مبارك ان شاء الله جمسل جدا الالوان المبهجة بفورم الترحيل والادخال وفعلا كود التكرار يعمل ممتاز الام مربوط بالسنة المالية حفظك الله ويارب استيراد من ملف الاكسيل لا يتأثر بس هنا استاذى حبيبى التاريخ بالفورم السفلى غريب 30/12/1899 مع انى كاتب بالاعلى 1/7/2021 واريد استاذى ان تكون فلى الاعلى دائما السنة المالية الحالية مكتوبة اوتو يعنى بسجل السنة المالية العلوى يكون مكتول2022 ولو احب اغيره لسن قديمة ابقى اغيرها كمان بالرغن انى اخترت مخزن 2 الا ان السجل الاول بالفورم لم يكتب مخزن2 وبفورم الاستدعاء لايزال لم يتم الربط بالسنة المالية يعنى انا كتبت رقم 100 دون ان اختار السنة المالية وع ذلك استدعى البيانات اريد فى هذه الحالة ان توقفنى رسالة اختار السنة المالية وايضا التاريخ استدعى ساعة 12.00.06 مع انه تاريخ استاذى بارك الله فيك اخى وكل عام وانت واسرتك بكل خير الدنيا يارب
د.كاف يار قام بنشر يوليو 20, 2021 قام بنشر يوليو 20, 2021 اتفضل يابوالحسن 55 دقائق مضت, abouelhassan said: وبفورم الاستدعاء لايزال لم يتم الربط بالسنة المالية يعنى انا كتبت رقم 100 دون ان اختار السنة المالية وع ذلك استدعى البيانات اريد فى هذه الحالة ان توقفنى رسالة اختار السنة المالية خذ نفس الكود في صفحة الادخال و ضيفه للصفحة 5555DATA14.zip 1
abouelhassan قام بنشر يوليو 20, 2021 الكاتب قام بنشر يوليو 20, 2021 ربنا يراضيك استاذى @د.كاف يار يارب بحق لا الله الا الله وحق الشهر الكريم والايام الكريمة يارب السنة المالية بالرغم انها مكتوبة تمام بالاعلى الله يبارك لك لم تكتب بالفورم الاسفل وبعد الضغط على زر ترحيل وبالرغم ان الرقم بالاعلى اتمسح تمام لم يتم مسح الرقم بالفورم السفلى استاذى الحبيب عند الاستدعاء من ملف الاكسيل ممتاز جداا كما ترى استاذى فائدة الحذف اننى ادخل المبالغ فى الحسابات التى احتاجها اما ما لا احتاجه فى فاتورة اقورم بحذفه من الزر حذف حتى لايتم ترحيله وهو يحتوى على صفر هل ممكن استاذى زر لحذف السجلات التى تحوى مبلغ 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 ربنا يبارك فى عمرك يارب احترام من اخيك
د.كاف يار قام بنشر يوليو 20, 2021 قام بنشر يوليو 20, 2021 3 دقائق مضت, abouelhassan said: السنة المالية بالرغم انها مكتوبة تمام بالاعلى الله يبارك لك لم تكتب بالفورم الاسفل خذ نفس القيمة الافتراضية في الاعلا و ضعها في الاسفل فقط 3 دقائق مضت, abouelhassan said: وبعد الضغط على زر ترحيل وبالرغم ان الرقم بالاعلى اتمسح تمام لم يتم مسح الرقم بالفورم السفلى استاذى الحبيب في ازرار الترحيل اكتب اسم كل حقل و ضع بجواره Null [TextBox1]=Null
د.كاف يار قام بنشر يوليو 20, 2021 قام بنشر يوليو 20, 2021 5 دقائق مضت, abouelhassan said: عند الاستدعاء من ملف الاكسيل ممتاز جداا كما ترى استاذى فائدة الحذف اننى ادخل المبالغ فى الحسابات التى احتاجها اما ما لا احتاجه فى فاتورة اقورم بحذفه من الزر حذف حتى لايتم ترحيله وهو يحتوى على صفر هل ممكن استاذى زر لحذف السجلات التى تحوى مبلغ 0 مرة واحدة بدل ما اقوم بحذف واحد واحد وساعات احذف سجلات بالغلط بها مبالغ هل من زر لحذف لبسجلات التى المبلغ بها=0 اكون شاكر لحضرتك جدااااا استخدم استعلام الحذف او من خلال الجملة التالية Dim db As DAO.Database Dim rs As DAO.Recordset ' قم بتعديل جملة الاستعلام ادناه اضف اسم الجدول و اسم العمود Set rs = CurrentDb.OpenRecordset("SELECT * FROM table_name WHERE yaer=0") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) rs.Delete rs.MoveNext Wend End If rs.Close Set rs = Nothing
abouelhassan قام بنشر يوليو 20, 2021 الكاتب قام بنشر يوليو 20, 2021 حفظك المولى ورعاك اخى استاذى @د.كاف يار 16 دقائق مضت, د.كاف يار said: خذ نفس القيمة الافتراضية في الاعلا و ضعها في الاسفل فقط تمام استاذى تم عمل هذا وظهرت 2022 ولكن بمراجعة الجدول الرئيسى وجدت ان عمود year به0 ولم ترحل 2022 الى الجدول 12 دقائق مضت, د.كاف يار said: استخدم استعلام الحذف او من خلال الجملة التالية هل اضع هذه الجملة فى زر واكتب اسم الجدول tbl_items والعمود iAmount استاذى وفى الاستدعاء استخدمت الكود وما ناجحش مش عارف ليه بارك الله لنا فيك استاذى
د.كاف يار قام بنشر يوليو 20, 2021 قام بنشر يوليو 20, 2021 4 ساعات مضت, abouelhassan said: ولكن بمراجعة الجدول الرئيسى وجدت ان عمود year به0 ولم ترحل 2022 الى الجدول لأن التعديل كان بعد اضافة البيانات دعنا نفكر سويا لماذا لم يتم تحديث البيانات رغم انك قمت بتعديل القيمة الإفتراضية للحقل؟؟ السبب لأن القيمة الإفتراضية توضع عند الإدخال الجديد فقط هذا بإختصار شديد جدا اذا البيانات السابقة يجب ان تحدث قم بإنشاء استعلام تحديث و هنا تكون المشكلة انتهت . 4 ساعات مضت, abouelhassan said: هل اضع هذه الجملة فى زر واكتب اسم الجدول tbl_items والعمود iAmount استاذى نعم صحيح و بما انك قد سألت هذا السؤال اذا فقد بدءت في اول طريق صناعة الكود و مع الاستمرار بالإعتماد على مجهودك سوف تجد ان الموضوع بسيط من الخطأ ان تأخذ السمك و لا تتعلم اصطيادها و بما انك بدءت تقرأ الكود و تفكك اجزائه دعنا نجرب كود الإضافة و عليك ان تبدء بتجربته و ثم كود التحديث اذا هنا بدئنا ننتقل من عملية الاستعلام الجاهزة في الاكسس الى الأكود و العمل الاحترافي Dim db As DAO.Database Dim rs As DAO.Recordset ' فقط تضع اسم الجدول هنا Set rs = CurrentDb.OpenRecordset("table_name") ' هنا تقوم بوضع اسماء الأعماد و الحقول كما هو موضح ادناه rs.AddNew rs.Fields("Column_Name1") = [TextBpox1] rs.Fields("Column_Name2") = [TextBpox2] rs.Fields("Column_Name3") = [TextBpox3] rs.Update rs.Close Set rs = Nothing 1
abouelhassan قام بنشر يوليو 20, 2021 الكاتب قام بنشر يوليو 20, 2021 (معدل) بارك الله فيك استاذى حبيبى والله العظيم @د.كاف يار ربى يزيدك من علمه اللهم امين انا نفذت كود الحذف للمبالغ الصفرية زى ما حضرتك شرحت الله يرضى عنك انظر استاذى عملت زر اسمه حذف المبالغ الصفرية وفى حدث عند الضغط وضعت الكود وتم الحذف بس ظهر على الشاشة الموضح بالصورة يجب ان اخرج من الفورم وده هيخلينى مش عارف اضبط المدخلات وعندما جربت وضع مبلغ وضغطت زر حذف المبالغ الصفرية مرة اخرى لم يحدث شئ وبعد حوالى10 ثوانى حدث مثل الصورة بالاعلى ماعد سجل المبلغ هذا الكود استاذى هو المسمى تحديث نعم ام لا اين اضعه فى اى فورم واى حدث بارك الله فيك يارب 38 دقائق مضت, د.كاف يار said: Dim db As DAO.Database Dim rs As DAO.Recordset ' فقط تضع اسم الجدول هنا Set rs = CurrentDb.OpenRecordset("table_name") ' هنا تقوم بوضع اسماء الأعماد و الحقول كما هو موضح ادناه rs.AddNew rs.Fields("Column_Name1") = [TextBpox1] rs.Fields("Column_Name2") = [TextBpox2] rs.Fields("Column_Name3") = [TextBpox3] rs.Update rs.Close Set rs = Nothing وايضا حاولت فى فورم البحث لم افلح فى ربط السنة المالية برقم المستند والمبلغ للمرة 10 للاسف اقبل راسك لجميل صنعك الله يحفظك يارب DATA14.mdb تم تعديل يوليو 20, 2021 بواسطه abouelhassan
د.كاف يار قام بنشر يوليو 20, 2021 قام بنشر يوليو 20, 2021 منذ ساعه, abouelhassan said: زر اسمه حذف المبالغ الصفرية وفى حدث عند الضغط وضعت الكود الصق الجملة التالية في نهاية الكود و هي تعمل على تحديث الصفحة DoCmd.Requery منذ ساعه, abouelhassan said: وعندما جربت وضع مبلغ وضغطت زر حذف المبالغ الصفرية مرة اخرى لم يحدث شئ وبعد حوالى10 ثوانى حدث مثل الصورة بالاعلى ماعد سجل المبلغ نفس الاجابة اعلاه منذ ساعه, abouelhassan said: هذا الكود استاذى هو المسمى تحديث نعم ام لا هذا كود فقط للإضافة كتبته لكي تقرأه و تحاول فهمه لا اكثر 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.