ابو جودي

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

وبعد تعب وتحضير مثال وتضييع وقت تجد ردا يصيبك بالاحباط ولو قلت للاخ الكريم صاحب المسألة حتى لو لم تجبه انت ان من قدم المساعدة لم يضرب الودع حتى يقف على مرادك ويقدم لك ما تريد يرد عليك وتكون انت المخطأ كيف ترد بمثل تلك الكلمات ويتعقدون انك تتكبر عليهم او او .... لذلك انا اطلب المرفق دائما ولا احب الرد على المجهول لاننى اشبهه بمن يحرث فى الماء فانه يحرث بلا جدوى فلن يجنى غير التعب بوجع عام ضع المغيار الاتى فى استعلامك على حقل التاريخ Between [start dat] And [end date]

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

ما فى اجمل منك استاذ @عبد اللطيف سلوم بس شوف هذا المرفق ماشاء الله الوقت يجرى بســــــــرعه وممكن عمل ايقاف مؤقت واستكمال على الوقت ذاته والتسجيل فى جدول DB stopwatch.accdb

جربت المثال واحسست ببطئ مرور الوقت به هل هذا لاننا ننتظر موعد الافطار ؟

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

عروستــــــــــــــــــــــــــــــــــــــى انا لم افهم ممكن توضح عملى مثال على كل طلب وبم تقصد ينقل المدينه ؟ اتمنى منك الاخذ فى الحسبان اننا صائمون ههههههههههه

ممكن سؤال هو حضرتك اللى عامل البرنامج والاكواد دى والا بس انت محتاج تعدل ؟ Copy_of_Shopping_Stars_(Final).zip

المرفق لو تكرمت

رااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااائع جدا جدا جدا جدا جدا جدا جدا جزاااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff700513(v=office.11) https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee691831(v=office.14)

التموين للوحدات العسكرية.mdb

انتبه انت الان فى قسم الاكسس التابع لمنتديات اوفيسنا

افعل ما فى الخير يسدى

Private Sub Btn1_Click() Call Btn2_Click End Sub Private Sub Btn2_Click() DoCmd.Close DoCmd.OpenForm "نموذج2" End Sub Btn1 اسم الزر الاول Btn2 اسم الزر التانى

Public Function OpeneApp() On Error Resume Next If FileExist = True Then If countopen = 0 Then 'MsgBox ".. سوف يتم فتح البرنامج الان" 'هذه الرسائل فقط للتأكيد يمكنك حذفها OpeneApp = Shell(StrPath) countopen = 1 Dim StrSql As String StrSql = "DELETE tblprograms.* FROM tblprograms;" DoCmd.RunSQL StrSql ElseIf countopen <> 0 Then 'هذه الرسائل فقط للتأكيد يمكنك حذفها 'MsgBox "... تم فتح البرنامج من قبل ولن يفتح مرة اخرى الا بعد اغلاق القاعدة وفتحها" Exit Function End If Else 'هذه الرسائل فقط للتأكيد يمكنك حذفها 'MsgBox "لا يوجد ملفات او برامج لفتحها مع النموذج عند الفتح" Exit Function End If End Function

رائع

ممكن بس حضرتك تقول لى رقم الاصدار كام اللى عليه المنتدى الان لو تكرمت

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

لا تعطنى سكمة ولكن علمنى كيف اصطاد السمك انت مصر على ان تطلب السمك فقط

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

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

سؤال جديد سو له موضوع جديد لو تكرمت

هذه اخر محاولة لى واخر مشاركة فى هذا الموضوع ان اردت اخفاء الزر واظهار فى حدث الحالى If txtCount >= 2 Then Me.Com3.Visible = True Else Me.Com3.Visible = False End If والسلااااااااااااااااااااااااااااااااااااااااااااااااااام عليــــــــــــــــــــــــــــــــــــــــــــــــــــــكم