abouelhassan

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

زادك الله من فضله اخى استاذ محمد أبوعبدالله حفظك المولى اتمنى مساعدتى فى الاستعلام حاولت التنفيذ وفشلت الفورم المراد تنفيذ عليه اسمةfrmserch هو فورم للتعديل بارك الله فيك وبك DATA14.mdb

السلام عليكم اخواتى الاساتذة قمت بالاطلاع على الكثير من المواضيع بالمنتدى ورأيت الافكار وحاولت التنفيذ صنعت مفتاح وفى حدث كليك وضعت الكود Private Sub Command104_Click() iAmount = -1 * iAmount End Sub ولكن عند التنفيذ قام بالتنفيذ على اول سجل فقط ولم ينفذ على باقى السجلات الغرض هو ان هذا فورم للتعديل وقد اغلط وادخل البيانات موجبة واحتاج الى ان تكون سالبة والعكس وفى حاجة كمان عندما نزلت بالماوس واخترت الرقم التالى وضغطت الزر نفذ ايضا احتاج الى ان يتم تعديل الكود ليتم التنفيذ على كل السجلات مع الشكر الجزيل بارك الله فيكم

شكر وتقدير وفائق الاحترام من اخيك

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

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

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

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

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

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

السلام عليكم اخواتى الاساتذة احتاج اضافة لهذا الفورم اسمه sersh حيث يقوم باستدعاء البيانات اعتمادا على رقم الفاتورة قمت باضافة تكست اسمها ابحث بالمبلغ اريد عند كتابة اى مبلغ يستدعى البيانات مثل رقم الفاتورة انا حاولت اقلد الكود الموجود بالبحث باستخدام رقم الفاتورة بس وقفت عند الكود معرفتش الية عمله Private Sub txtsearch_AfterUpdate() Me.Requery End Sub شكر وتقدير واحترام من اخيكم DATA14.mdb

الحمد لله الحمد لله اخى استاذ jjafferr نجحت بفضل الله وفضلكم المشكلة كانت اننى كنت كاتب فى الدالة الاسم(negative) بين قوسين الحمد لله الحمد لله اشكرك من كل قلبى انا فرحان جداااااااااااااااااااااااا والله وبدعى لك ولاخى ابو خليل وكل من ساعدنى ربنا يبارك لكم فى حياتكم اخواتى الافاضل اشكرك من كل قلبى

اعتذر اليك استاى الحبيب jjafferr والله بقالى اكثر من 5 ساعات بعد نقل الاستعلام والتأكد منه ولكن النتيجة كما هى معلش الله يعزك ويرزقك كل خير الدنيا والاخرة احترامى لشخصك الكريم جدااااا

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

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

استاذى حبيبى jjafferr بارك الله فيك وبك ولك يارب يحفظك استاذنا الغالى استاذى الحبيب ابوخليل والله لا اعمل الا على الاكسيس ولا اعمل على الاكسيل نهائى بفضل الله وفضلكم اخى فى الله استاذى جعفر الله يرضى عن والديك لا اعرف كيفية عمل الاستعلام لو امكن اى نسخة لدى حضرتك وانا انسخ منها الاستعلام الى اخر نسخة لدى اكون شاكر فضلك والله ربنا يرضى عن والديك يارب

استاذى الحبيبابوخليل اكثر الله خيرك وزادك من فضله يارب و استاذى الحبيب jjafferr اكثر الله خيرك وزادك من خيرك وفضله اللهم امين هذا التنسيق بعد تنفيذه فقط قام أخفاء الاصفار من السجلات وتم استدعائهم للتقرير فارغين ما احتاجه تعديل للكود نفسه ElseIf frm_Option = "positive" And N > 0 Then PN_All = N هذه الجملة ممتازة ولكن اريد التقرير به الصفحات الارقام الموجبة فقط او السالبة فقط دون استدعاء الصفر مش عايز هذه الصفحات بالتقرير اريد التقرير به ما احتاجه فقط ارجوك سامحنى بس هذا مهم جدااااااااااااااااااااا بالنسبة لى معلش ربنا يحفظك يارب

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

اخى استاذى ابوخليل ها هو المقصود انا ادخلت ارقام قيمتها -100و-200و-300 وقمت بعمل اختيار للفورم الرئيسى كما يلى بالصورة المفروض انى مختار Positive وهو اكبر من الصفر اى ما هو يساوى صفر او اصغر لا تحضر بيانتاه ومع ذلك يحضر لى التقرير اصفار فى هذه الصفحات انا احتاج تعديلها عندما اختار positive احضر بيانات ما هو اكبر من الصفر فقط فقط فاهمنى اخى رجاء التكرم بالمساعدة بارك الله فيك ولك وبك DATA14.rar

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

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

انا عرفت المشكلة اخى استاذى ابوخليل بس ماعرفتش احلها المشكلة فى الوحدة النمطية بها هذا الكود Public Function PN_All(N As Double) As Double 'PN_All : Positive, Negative, All 'N = iAmount Dim frm_Option As String frm_Option = Forms!frm_Main!srch_All_PN If frm_Option = "oll" Then PN_All = N ElseIf frm_Option = "positive" And N > 0 Then PN_All = N ElseIf frm_Option = "Negative" And N < 0 Then PN_All = N End If End Function والبرنامج بيشوف السالب صفر عند اختيارposative بيحضر كل البيانات السالبة انها تساوى صفر الحل عدم التقريب بس مش عارف اعملها ازى احتاج اضافة للكود لكى لا يرى السالب=0 بارك الله فيك اخى فى الله

تسلم ايدك استاذى نفس المشكلة اخى بارك الله فيك حبيبى سامحنى استاذى ابوخليل عند اختيار من الفورم الرئيسى للبيانات التى بالصورة ظهر لى ما بالشكل فى التقرير اريد ان اذا كان الناتج 0 ان يختفى لايظهر بالتقرير مش عارف اعملها وكل ما ظهر بصفر وجدته مدخل بالسالب مش عارف ايه ده رجاء التكرم بمساعدتى اخى مشكور وخالص الدعاء

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

الله الله الله ربنا يبارك لك اخى واستاذى وحبيبى استاذابوخليل كل شئ اصبح ممتاز فى التقرير عدا شئ بسيط هو مثلا الرقم مثلا-.50 اجد انه اصبح0 مش عايز التقريب عايز الرقم نفسه ربنا يحفظك يارب يارب يارب