نجوم المشاركات
Popular Content
Showing content with the highest reputation on 03/05/15 in مشاركات
-
بسم الله الرحمان الرحيم السلام عليكم اولا ما هو النص التنبئي باختصار هو تنبئ البرنامج او الدالة او الكود بالكلمات التي تبحث عنها من خلال كتابة اول حروف الكلمة مثل مايحدث اثناء البحث عن طريق محرك البحث قوقل هذا الموضوع ليس جديد فهناك كود في المنتدى يعتمد على مربع نص وليست بوكس لاكني منذ فترة حاولت تطبيق الامر على الكمبوبوكس الى ان وفقني الله الى ذلك وها انا الان اشارككم الموضوع ما هي الفائدة من هذا الموضوع كثيرا ما يكون لدينا قاعدة بيانات كبيرة مثلا الاصناف في الفواتير و غالبا متكون عمليات الادخال خاصتا مكررة و كثيرة فهذه الطريقة ستساعدك كثيرا في ادخال الاصناف بسلاسة وسهولة بدل عناء اعادت كتابت الصنف مرارا وتكرارا لا اطيل عليكم في المرفق تجد مثال توضيحي احدهما مطبق على الشيت وهو مايهم اصحاب ادخالات الفواتير والثاني مطبق على الفورم صورة توضيحية بالنسبة للمثال المطبق على الشيت كما في الصورة من جهة اليمين عند الضغط على اي خلية ملونة بالاخضر تظهر كمبوبكس اكتب داخلها اي حرف لتجلب لك الكلمات التي تحمل تلك الحرف كما في الصورة يمكنك التنقل بين النتائج بواسطة سهم الاعلى والاسفل من الكبيور اضغط انتلر لادخال النتيجة في الخلية وانتقال الكمبو الى اسفل الخلية المفعلة بالنسبة للمثال المطبق على الفورم كما في الصورة من جهة اليسار نفس الامر كما في المثال الاول فقط الاختلاف في ان ادالبحث يكون من الفورم ارجو ان يكون الموضوع مفيد للجميع تحياتي للجميع تنويه تم استبدال المرفق بعد 23 تحميل texte prédictive 2007 2003.rar2 points
-
أخي الفاضل / بعد إذن الاستاذ علي المصري والأستاذ ياسر خليل لك معادلة بسيطة دون الحاجة للشروط المركبة وهي ما كنا نستخدمه قبل ان نتعلم الشروط المركبة =IF(A1="";"";IF(A1>=92;"ممتاز";IF(A1>=82;"جيد جدا";IF(A1>=72;"جيد";IF(A1>=62;"متوسط";IF(A1>=50;"مقبول";"راسب"))))))2 points
-
عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :Cost Control ويتراسه Cost controller وهو القسم المسئول عن مراقبة المخزون ومخرجه الاساسي هو ( تكلفة البضاعة المباعة )Cost Of Salesوبالطبع كي نصل الى رقم تكلفة البضاعة المباعة فنحن بحاجة لمعرفة رصيد اول الفترة المحاسبية وصافي المشتروات واخيرا رصيد بضاعة آخر الفترة (كل هذه البنود بسعر التكلفة وليس البيع) والمخزون في غالبية الفنادق يصنف على 4 محاور رئيسية 1- مخزون اغذية Food Store 2- مخزون مشروبات Beverage Store 3-مخزون عام General store 4-مخزون الصيانة Maintenance Store وساقوم برفع ملف به هذه التصنيفات بمحتوياتها من اصناف لان كل من هذه المخازن بداخلها تصنيف فرعي آخر وهنا يجب الاشارة الى معيار هام في التفرقة بين ماهو Food وما هو Beverage وهو اذا لم تتم اضافة اى تكاليف للصنف بعد شراؤه فهو Beverage وللتوضيح الشاى نضيف اليه سكر اذا فهو Food وليس مشروب Beverageاما الكولا فهي مشروب عزيزي ابو عبدالله اعلم اني اطيل عليك ولكن انت قلت ان الفكرة اعجبتك واذا اردت مني اكمال الموضوع فانا معك حتى تصل الفكرة للاذهان واذا قلت توقف وارسل ملفات فانا ايضا معك واتمنى ان لا تمل مني وفي المرة القادمة ساقوم بشرح باقي الاقسام والتعريف بمهامها الاساسية ومدخلاتها ومخرجاتها وهي على النحو التالي قسم مراقبة الايرادات Income و يتراسه Income Auditor ويليه Night Auditor ويليه Restaurant Auditor ويليه General Cashier ثم F&B Cashier وكل له تخصصه وله مدخلات بيانات ومخرجات مكملة لبعضها البعض قسم المدفوعات Payable قسم المقبوضات Receivable وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر1 point
-
السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar1 point
-
السلام عليكم ورحمة الله وبركاته اخواني الأعزاء طرحت مسبقا لنموذج فاتورة عربي ونموذج فاتورة انجليزي لكن اليوم سوف اتناول الفاتورة بشكل وفكر جديد حتي تخدم شريحة كبيرة من المستخدمين مع حركات اخي الحبيب / شوقي ربيـع الجديد في النموذج فورم واحد ولكن يمكنك من خلاله الاختيار بين لغة الفاتورة (عربي - انجليزي ) ولغة الايصال (عربي - انجليزي) اختيار سهل للاصناف اختيار طريقة السداد بيان رصيد العميل واترككم مع النموذج أدعو الله سبحانه وتعالي ان يكون النموذج فيه الفائدة لكم ولا تنسونا بدعائكم بصلاح الحال بظهر الغيب فاتورة مبيعات اوفيسنا_2.rar1 point
-
جرب الملف التالي عله يفي بالغرض ويكون المطلوب ..لن يتأثر اللون .. تلوين عمود وصف مع ثبات لون التنسيق الشرطي ولون الخلية.rar1 point
-
اخى واستاذنا شوقى دائما ما تحرجنى بمعلوماتك الجميله اى نعما هى بتكون دسمه ولكن يغلب عليها البساطه تقبل تحياتى1 point
-
الأستاذ والمعلم القدير شوقي ربيع هذا تواضع منك .. في غير محله بالنسبة لي .. أنت تعرف أن قدري لا يتعدى مرحلة التلميذ وحضرتك معلم كبير والكل يستفيد من إبداعاتك المتميزة دائماً .. كل لابد أن يوضع في مقامه1 point
-
لا لا انت استادنا ومعلمنا نحن مجرد تلاميذ عند حضرتك وفقك الله وجازاك كل الخير1 point
-
السلام عليكم بالمختصر نضع الاكواد في thisworkbook عندما نريد من ذالك الكود التعامل مع مصنف معين لا غير مثلا لو تريد ان يقلع الفورم مع فتح الملف تضع الكود في حدث اقلاع الملف (Workbook_Open) الذي تجده في ThisWorkbookحيث ان الكود او الاكواد التي تكتبها فيه ستعمل فقط مع هذا الملف اما Sheet تكتب الاكواد في احد احداثه من اجل التعامل مع شيت معين عموما او خصوصا عموما التعامل مع الشيت كله اما خصوصا التعامل مع جزء من الشيت (خلية او مجموعة خلايا او عمود او مجموعة عواميد) باختصار الاكواد المكتوبة في ما سبق ذكره تتعامل مع مصنفف معين وشيتاته لا غير اما Module فاستعمالاته اوسع فبالامكان كتابة اكواد في الموديل تتعامل مع اكثر من شيت واكثر من مصنف وذلك حسب التعاريف التي نعطيها للمتغيرات في ذلك الموديل فيمكن عمل متغيرات عامة تستطيع الوصول اليها من اي مصنف او شيت الى ذالك المتغير بالنسبة لي تعريف المتغيارت بالطريقة الصحيحة اهم حاجة في بالبرمجة لذى يجب الحذر والتعامل معها بعناية في بعض الاحيان نبرمج اكواد خاصة بعمل ماء وتكون جيدة لاكن مثلا يوكن لديا اكثر من ملف مفتوح ممكن ان تاثر تلك الاكواد على ملف ثاني لم نبرمجها من اجله وهذا راجع لطريقة تعريفنا للمتغيرات اما بخصوص استعمال اكثر من Module في مشروع ما هنالك بعض المشاريع تكون كبيرة جدا فليس من الجميل و المناسب برمجت كافت الاكواد في موديل واحد لذى نستعما عدت موديلات ونعطيها اسماء تقرب لنا محتوى كل كود وهذا لتنضيم وتسهيل العمل فقد يكون اكثر من مبرمج يعمل على ذلك المشروع او نقول ان صاحب ذلك المشروع وجد خطاء ما او اراد تطوير جزء ما من ذلك المشروع سيكون من السهل الوصول اللى المكان المناسب الذي سيعدل فيه ..... ..... .... هذا مجرد شرح بسيط شخصي يحتمل الصح و يحتمل الخطاء يمكن ان يكون هناك شرح اشمل و اوسع من احد اساتذة المنتدى ارجو ان اكون وفقت ولو في القليل لاصال القكرة تحياتي للجميع1 point
-
السلام عليكم ورحمة الله أخي الكريم، انظر إلى الملف المرفق لعل فيه المطلوب.... أخوك بن علية الملف المرفق : تعليم الحساب.rar1 point
-
الأخ الحبيب الغالي والأستاذ الكبير شوقي ربيع أعتذر لعدم رؤيتي لمشاركتك .. إذا حضر شوقي ربيع بطل ياسر خليل تقبل تحياتي1 point
-
السلام عليكم 1. عملت استعلام يربط الجداول ، ويكون فيه الحقول المطلوبة: 2. ثم نموذج عادي يأخذ نتائجه من هذا الاستعلام ، وعملت نسخة من الحقول المطلوبة للبحث في الاعلى: 3. بعض الحقول تحتوي على ارقام ، واسماء هذه الحقول موجودة في جداول اخرى ، فكان لازم نغيرها من نص الى مربع سرد: وهذه طريقة ربط الجداول للحقل اعلاه: والنتيجة: 4. عملت حدث بعد التحديث لحقول البحث ، وهذا هو الكود: Option Compare Database Private Sub Form_Close() Me.Filter = "" Me.FilterOn = False End Sub Private Sub Check_Selected() Dim FF As String 'cmb_alaam_aldrasy If Len(Me.cmb_alaam_aldrasy & "") = 0 Then FF = "" Else FF = "[alaam-aldrasy] ='" & Me.cmb_alaam_aldrasy & "'" End If '--------- 'cmb_almadrasa If Len(Me.cmb_almadrasa & "") = 0 Then Else FF = FF & " And [almadrasa] ='" & Me.cmb_almadrasa & "'" End If '--------- 'cmb_alsaf If Len(Me.cmb_alsaf & "") = 0 Then Else FF = FF & " And [alsaf] ='" & Me.cmb_alsaf & "'" End If '--------- 'cmb_alsuaph_aldrasy If Len(Me.cmb_alsuaph_aldrasy & "") = 0 Then Else FF = FF & " And [alsuaph-aldrasy] ='" & Me.cmb_alsuaph_aldrasy & "'" End If '--------- 'cmb_IDalmada If Len(Me.cmb_IDalmada & "") = 0 Then Else FF = FF & " And [IDalmada] =" & Me.cmb_IDalmada End If '--------- 'cmb_IDalsahr If Len(Me.cmb_IDalsahr & "") = 0 Then Else FF = FF & " And [IDalsahr] =" & Me.cmb_IDalsahr End If '--------- If Left(FF, 4) = " And" Then FF = Mid(FF, 6) Me.Filter = FF Me.FilterOn = True End Sub Private Sub cmb_alaam_aldrasy_AfterUpdate() Call Check_Selected End Sub Private Sub cmb_alaam_aldrasy_DblClick(Cancel As Integer) Me.cmb_alaam_aldrasy = "" Call Check_Selected End Sub وتركت لك في الكود بونص انقر مرتين على اي حقول البحث ، وسيتنحذف الكلمات اللي فيه 5. والنتيجة: يا الله يا ابوآلآء ، خلينا نشوف اللي عملته ونستفيد ان شاء الله جعفر 6.برنامجي2.accdb.zip1 point
-
1 point
-
العفو ابو الآء ، احنا نتعلم من بعض ، وبالعكس ، لما انتهي من عملي ، ساقارن عملي بعملك ، ونتوصل الى النتيجة الافضل للرد على السؤال ، ونتعلم شئ جديد يعني ، في سباق بيننا نحن الاثنين لإرضاء الاخ عبدالعزيز جعفر1 point
-
اخى الحبيب الرجاء الافاده فى ترتيب التصفيه يعنى المدرسه ثم الفصل ثم الشعبه ثم الشهر ثم الماده ام ماذا وهناك طرق تصفيه افضل بكثير من التصفيه بداخل الاستعلام وتتم ايضا عن طريق الاستعلام مثل البخث عن طالب لتعديل درجاته وغيره ________________________ ولعنا ننتظر الاجابه الشافيه من معلمنا الجليل الاستاذ جعفر بارك الله فيه1 point
-
1 point
-
السلام عليكم اليوم جبتلكم برنامج قوي جدا اغلب الاخوة عندما يعملون رقم سري لنمط يثم نسيانه فالحل مع هاد البرنامج الرهيب وللعلم يقوم بجلب ارقام سرية لبرامج كثيرة والبرنامج كاملا والكمال لله يعني مرفوق معه رقم التفعيل ( رقم سري )1 point
-
بارك الله فيك يا استاذ على هذا العمل الاكثر من رائع انا استخدم برنامج الاكسل فى مكتب حكومى (الضرائب) لكن صراحة اندهشت لوجود هذه الامكانيات الكبيرة فى اكسل1 point
-
السلام عليكم أستاذي شوقي عمل ممتاز دائما متألق بإبداعاتك يحفظك الله1 point
-
1 point
-
ففي اعتقادي انه في خطأ في ادخال السجل بالنسبة للحارس ، فعند تعديله ، سيظهر اسمه ان شاء الله هذا معناه: التوقيت الكامل والجزئي يكونان فقط لرتبة عامل مهني من المستوى الاول جعفر أخي واستاذي العزيز جعفر مايسعني الا ان اشكرك فشكرا جزيلا على كل هذه المساعدة وحقيقة نورت منتدى أوفيسنا ويحتاج الى خبراء من أمثالك *- بخصوص عدم ظهور رتبة الحارس او رتب أخرى بصفة التعاقد "متعاقد بالتوقيت الكامل" فقد تمت إضافة رقم الى المعيار كما يلي : 1 Or 2 Or 4 Or 3 وتمت ظهور رتبة الحارس *- وأما بخصوص عدم ظهور موظفين تابعين لإدارة اخرى مثلا " الوضعية : موظف بالولاية " فقد تمت إضافة هذا المعيار في الوضعية "موظف" Or "متعاقد بالتوقيت الكامل" Or "متعاقد بالتوقيت الجزئي" وتم الحل بتوفيق من الله عز وجل وبمساعدتك فأشكرك مرة ثانية وربي يحفظك دنيا واخرة ملاحظة : كل هذا التصحيح والنتائج كانت في البرنامج الأصلي الذي بحوزتي تقبل تحياتي القلبية الخالصة1 point
-
1-حدد خلية أو عدة خلايا حيث تريد التنسيق 1-اضغط CTRL+1 تظهر لك نافذة اختر منها Date 3- في نفس القائمة اختر Custom 4- اسفل كلمة Type: اكتب ما يلي yyyy/m/d 5 أضغط OK1 point
-
السلام عليكم اشكركم على هدا التعليق وانا اقبل بالنقد فالراي الاخر هو النجاح بالنسبة لهده البرامج فهي منقولة فاحببت ان اشاركها مع الاخوة لتطوير مصدر : http://arabteam2000-forum.com/ اما بالنسبة للاخ : اسير الشوق فتفضل ممنون اختر ما شاة وسلام ختام جمعية الوفاء.rar ContributorData.rar رقم سري :1234 مكتب هيئة الإغاثة .zip رقم سري :11 point
-
انا جربت على الماسح الذي وضعته في اول مشاركو وكانت النتيجة ممتازة على ورقة واحدة ثم جربت على (طابعة 3 في واحد ) ماسح وتصوير وطابعة وكانت النتيجة ممتازة جداً1 point
-
1 point
-
1 point
-
بارك الله فيك أخي الغالي شوقي مجرد هفوة صغيرة جدا If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then يجب أن يحذف الرقم 2 من g2 If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then تقبل تحياتي1 point
-
السلام عليكم الخطئ في هذا السطر If Not Intersect(Target, Range("a2") & lastColumn) Is Nothing Then يجب ان تكون هكذا If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then1 point
-
اعزائي مداخلة كمعلومة : مصدر النموذج الفرعي استعلام واسمه : جدول الموظفين2 اخي عبدالرحمن : ماقمت بتحديده هو مصدر الكائن وليس مصدر السجلات فمصدر الكائن هو اسم النموذج بقائمة النماذج والذي مصدره استعلام . ولكن انقر على زاوية النموذج العليا اليسرى ستظهر خصائص النموذج وليس الكائن الفرعي ! اخ حسين : اعود لك ان شاء الله تحياتي1 point
-
استاذى الحبيب شوقى ربيع بارك الله فيك وزادك الله علما نفس المشكله اللى حصلت مع الاستاذ ياسر حصلت معى الملفين لا يظهر الكمبوبوكس ولا اليوزرفورم ياريت حل المشكله مشتاق للاطلاع على العمل تقبل تحياتى1 point
-
تفضل اخي الكريم =IF(A1="";"";IF(A1="غ";"غائب";IF(AND(A1>=0;A1<50);"راسب";IF(AND(A1>=50;A1<61);"مقبول";IF(AND(A1>=61;A1<71);"متوسط";IF(AND(A1>=71;A1<81);"جيد";IF(AND(A1>=81;A1<91);"جيد جداً";IF(AND(A1>=91;A1<=100);"ممتاز";IF(OR(A1>100;A1<0);"خارج نطاق الدرجة";""))))))))) التقديرات.rar1 point
-
1 point
-
اخى الفاضل أ.إبراهيم الموضوع بسيط .. اجعل سطر الكود الذي يحضر لك اخر قيمة هكذا .. هتزبط معاك ان شاء الله x = [f7000].End(xlUp).Row + 1 تحياتي1 point
-
المنتدى هو منتدى لمناقشة الأمور البرمجية مع الأخوة الأعضاء ممن هم في مستوى مبرمج و يقوم بتطوير برنامج بنفسه نحن نساعده أما طلبات البرامج الجاهزة فهي ليست من أهداف هذا المنتدى1 point
-
السلام عليكم ورحمة الله وبركاته,, تفضل اخي الق نظرة على المرفق... ستجد التغييرات في مصدر بيانات report1 وفي حدث عند النقر للمعاينه والطباعة في نموذج staff1 . بالنسبة للإستعلام ستجد استعلام يفيدك بالجوازات الموشكة على الإنتهاء قبل عشرون يوما ... بإمكانك تغيير المدة في الإستعلام . من استعلام الجوازات تم عمل report2 وفي حدث عند التحميل ستجد الكود . في كل مره تفتح فيها نموذج staff1 سيتم تنبيهك سواء وجد منتهي او لم يوجد وكذلك يفتح report2 مباشرة. بالتوفيق ولو لك سؤال فنحن حاضرين. http://www.4shared.com/rar/5iVGubIece/____.html1 point
-
اخي الكريم يجب اختيار عنوان مناسب يصف الموضوع ابشر تم تعديل العنوان1 point
-
1 – عمل ملف اكسل (كتابة كود الماكرو) 2- انشاء ملف VBScript لتشغيل الماكرو 3 – كتابة ملف دفعي او باتش batch لفحص الوقت 4 – انشاء ملف تنصيب خدمة الويندوز Windows Service ___________________________________________ بسم الله الرحمن الرحيم على الله نتوكل وبه نستعين ملاحظة ===== اذا لم تفرأ الخطوات السابقة بعد فأني اشد على يدك ان تقرأها اولا قبل الاستمرار. سنفترض التالي: 1 - جميع الملفات في المسار التالي (بالطبع يمكنك وضعهم في اي مجلد من اختيارك) C:\work\2015 2 - الخدمة ستعمل تحت حساب النظام المحلي Local System Account 3 - الخدمة ستحتاج الى وسيط وهو اسم ملف الباتش RunSummaryMacro.cmd لتشغيله 4 - الخدمة ستعمل اوتوماتيكيا كل مرة يشتغل فيها الجهاز. 5 - اسم الخدمة هو AbuTorab (يمكنك تسميتها ما تشاء) انشاء خدمة ويندوز هى من اكثر الخطوات تشويقا و اثارة..و لهذا سنبدأ على عكس ما بدأناه في الخطوات السابقة....سنبدأ من النهايــــــــــــة. 1 - انقر بالزر الايمن و اختر Run as Administrator 2 - اخل حرف Y للموافقة على تنصيب الخدمة 3 - تم تنصيب الخدمة بنجاح...لاحظ ان رقم العملية PID للخدمة على جهازي هى 5144 4 - هنا قد انتهينا من تنصب الخدمة الا انه استكمالا للشرح لنرى الخدمة وهى تعمل في الخلفية. اضغط شعار ويندوز + R واكتب Services.msc من هنا يمكنك ايقاف و تشغيل الخدمة 5 - لنرى الخدمة من شريط المهام اضغط Ctrl + Shift + Esc .. اختر التبويب Services ومن ثم التبويب Details ماذا ترى!!! 6 - الاسم في التبويب Services هو كما توقعناه AbuTorab ولكن الاسم في التبويب Details مختلف!!! السبب هو ملف الباتش لا يستطيع من تلقاء نفسه التخاطب مع مركز خدمات الويندوز و لهذا نحتاج الى تغليفه wrap باداة صغير لديها القدرة على التخاطب مع النظام و في نفس الوقت القدرة على تشغيل ملف الباتش و الاداة هى Srvany.exe. توجد ادوات اخرى ولكن استخدمت هذه و يمكنك استخدام ما تريد يمكنك تحميل مجموعة الادوات من موقع شركة ميكروسوفت او يمكنك تحميلها من المرفق ستطلب هذه الاداة ان تعمل لها ثلاث قيم في سجل النظام ... وهذه القيم هى: AppDirectory : مسار المجلد الذي يحتوي على ملف الباتش Application : ملف الباتش مع المسار AppParameters: وسائط ملف الباتش..في مثالنا سيكن ملف الاسكربت ملاحظة: ===== عند انشاء الخدمة سيتم اضافتها الى سجل النظام في المسار التالي: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\AbuTorab اذا اردت ان ترها بنفسك فأضغط شعار ويندوز + R و اكتب RegEdit للتوضيح راجع الصورة التالية: لنتحدث قليل على اوامر انشاء الخدمة Windows Service ================================ 1- لانشاء الخدمة يمكننا عن طريق الامر sc في محرر الاوامر (هذا الامر يحتاج الى صلاحيات مدير النظام لينفذ) SC create AbuTorab binpath="C:\work\2015\srvany.exe" 2- لجعل الخدمة تعمل اوتوماتيكيا عن تشغيل/إعادة تشغيل النظام ننفذ الامر التالي: SC config AbuTorab start=auto 3- لتشغيل الخدمة sc start AbuTorab 4- لحذف الخدمة SC delete AbuTorab 5 - لتحديث قيم سجل النظام ننفذ الاوامر التالية reg add "HKLM\SYSTEM\CurrentControlSet\Services\AbuTorab\Parameters" /v AppDirectory /t REG_SZ /d "C:\Work\2015" reg add "HKLM\SYSTEM\CurrentControlSet\Services\AbuTorab\Parameters" /v Application /t REG_SZ /d "C:\Work\2015\RunSummaryMacro.cmd" reg add "HKLM\SYSTEM\CurrentControlSet\Services\AbuTorab\Parameters" /v AppParameters /t REG_SZ /d "C:\Work\2015\RunSummaryMacro.vbs" ملاحظة مهمة و اخيرة اذا نفذت الاوامر السابقة فان الخدمة ستعمل و ملف الباتش سيعمل و ملف الاسكربت سينفذ و لكن لن ينفذ الماكرو برامج الاوفس هى برامج تفاعلية interactive تتفاعل مع حساب المستخدم الذي سجل الدخول وهو ليس حساب تشغيل الخدمة الا وهو System و لهذا فان الماكرو لن ينفذا...لتحقيق هذا التفاعل نحتاج لوجود مجلد باسم Desktop على المسار التالي: في نسخة الويندوز 64 بت: c:\windows\SysWOW64\config\systemprofile\Desktop في نسخة الويندوز 32 بت: c:\windows\System32\config\systemprofile\Desktop كود ملف تنصيب الخدمة @ECHO OFF SET ServiceName=AbuTorab ECHO A new Windows service called "%ServiceName%" will be installed ECHO. CHOICE /C YNC /M "Press Y for Yes, N for No or C for Cancel." IF %ERRORLEVEL% neq 1 (EXIT) mkdir %windir%\SysWOW64\config\systemprofile\Desktop mkdir %windir%\System32\config\systemprofile\Desktop CLS SET CurrentDir=%~dp0 sc create %ServiceName% binpath="%CurrentDir%srvany.exe" reg add "HKLM\SYSTEM\CurrentControlSet\Services\%ServiceName%\Parameters" /v AppDirectory /t REG_SZ /d %CurrentDir% reg add "HKLM\SYSTEM\CurrentControlSet\Services\%ServiceName%\Parameters" /v Application /t REG_SZ /d "%CurrentDir%RunSummaryMacro.cmd" reg add "HKLM\SYSTEM\CurrentControlSet\Services\%ServiceName%\Parameters" /v AppParameters /t REG_SZ /d "%CurrentDir%RunSummaryMacro.vbs" sc config %ServiceName% start=auto sc start %ServiceName% ECHO. ECHO ========================================================= ECHO The %ServiceName% has been installed and run successfully ECHO ========================================================= SET CurrentDir= SET ServiceName= pause @ECHO ON مخرجات الخطوة الاخيرة ================= اسم ملف التنصيب : Installِ_AbuTorab_Service.bat اسم ملف الاداة : srvany.exe جميع الملفات تجدها على المرفق و يمكنك البدء تم بحمد الله الذي بنعمه تتم الصالحات 2015.zip1 point
-
السلام عليكم لم اذكر تحويل الجدوال وانما ذكرت تحويل المايكرو الى احداث وذلك عن طريق تحويلها الى اكواد في الفجول بيسك واجراء حدث عليها اما الاستعلمات فيتم تكوين نموذج او تقرير وجعل مصدر سجلاته الاستعلام من خلال منشئ الاستعلام في النموذج ولا يمكن فتح تصميم النموذج لان القاعدة accde لذلك يتم حماية بعض الاستعلمات بالتوفيق1 point
-
سأجيب واحدة واحدة كل هذا مفهوم من الشرح ومن البيانات المرفقة الشيء الجديد هو تخصيص ادخال الدرجات حسب معلم المادة هو مفتوح وقد ذكرت لكم ذلك قاعد البيانات موجودة في مجلد البرامج واسمه school والبرنامج داخله باسم " مدرسة " لفتح القاعدة على التصميم انقري على البرنامج واصبعك على shift نعم يمكن نعم صحيح هذه مكتبة تخص التحكم بالفأرة كإيقاف العجلة ، غير موجودة في جهازك يمكن ايقاف عمل الكود فيتوقف ظهور الرسالة الافضل عدم الاستعجال انما رفعت البرنامج للدراسة والاطلاع وفهم عمل اكسس لمن لم يمارسه والا انت بحاجة اولا الى تصور العمل ( المدخلات والمخرجات ) والجداول اللازمة لذلك اولا التأسيس الصحيح والاساسات هي الجداول اعانك الله ووفقك ،،،1 point
-
برنامج مدارس اليمن الرقم السري= 1975 وجدته في مكتبتي مفتوح المصدر العيوب = الكائنات والحقول كتبت بحروف عربية وهذا فيه صعوبة على من يريد تعلم اللغة البرمجية المكتوبة قد لا يحقق كامل المطلوب : ولكن يفتح الذهن ويعطي تصور لكيفة العمل داخل بيئة اكسس school.rar1 point
-
اضع بين ايديكم برنامج تم تصميمة لتاجير خزن امانات به مجموعة من افكار السادة اعضاء المنتدى باختصار يستحقة المنتدى هو برنامج منكم و اليكم بالفعل يعتمد على شااشة افتتاحية واحدة لسهولة الاستخدام زر اضافة خزن : يتم اثبات رقم الخزنية و حجمها او بياناتها و القيمة الايجارية لها زر الصيانة : و هو ضغط و اصلاح قاعة البيانات و يستخدم مع الاكسيس باللغة العربية عند استخدام خزنية جديدة خالية : يتم النقر على حقل رقم الخزنية يمين علوى النموذج بالنقر على الكمبوبوكس و اختيار رقم الخزنية المراد تاجيرها و لايسمح البرنامج الخروج من حقل رقم الخزنية خاليا و العودة له مرة اخرى لا يسمح بترك حقل قيمة الضمانة و حساب الضمانة خالى بعد اثبات تاريخ التاجير يتم تلقائيا فتح حساب ( مودعى تامينات ) و هو يعادل قيمة تامين مفتاح الخزنية و قيمة زيادة حسب الظروف عند الخروج من حقل اسم العميل و رقم حسابة يتم تلقائيا فتح نموذج يمكن اضافة ارقام حسابات العميل الاخرى ان وجدت او اى ملاحظات عليها عند الاتنقال الى تاريخ سداد القيمة الايجارية باعتبارها سنويا يتم ااقفال تاريخ نهاية السنه تلقائيا و يتم تتابع الاثبات حسب النموذج لايسمح البرنامج باستدعاء نفس رقم الخزنية عن طريق حقل رقم الخزنية و يظهر رسالة بان الخزنية مؤجرة حاليا للتعديل او الاضافة اوتسليم الخزنية يتم النقر اسفل النموذج على رز البحث برقم خزنية للتعديل او سداد الايجار السنوى او استلامها و عن استلام خزنية يجب التاكد من سداد حقل تاريخ الانتهاء و تاريخ رد التامين و اثباتة فى نموذج مودعى تامينات باستخدام علامة الطرح الحسابية ( السالب ) هناك ازرار للتقارير الرقابية حصر الايجارات المستحقة ارسال مطالبات بالايجارات المستحقة حصر بالبيانات الثابتة للعملاء تقرير يقيمة مودعى التامينات ( تامين المفتاح ) نموذج يمكن استخدامة فى حصر اسعار خدمات تاجير خزن الامانات و بيان تعديلها على فترات برجاء اكون قد اوفيت و اوجزت NEW_BOX.rar1 point