نجوم المشاركات

لجميع الإخوة كود التوزيع حسب النمط السابق مجرب لكود بعد تطبيقه بنجاح على أكسيس Private Sub أمر11_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("q_New_Stu_Tawzee3") rs.MoveFirst Do Until rs.EOF On Error GoTo 1 For x = 0 To 5 For i = 1 To Me.tfasl If x = i Then GoTo skipeme Debug.Print i, x rs.Edit rs!CurrFasl = i rs.Update rs.MoveNext skipeme: Next i Next x Loop Me.Requery Me.Refresh Set rs = Nothing Set db = Nothing 1: End Sub

السلام عليكم -دومتم بخير ان شاء الله اقدم لكم ملف اكسيل به معادلة وليس ماكرو لتفقيط الأرقام بالحروف بمجرد كتابة الرقم فى الخلية A2 سوف يظهر لك التفقيط فى الخلية B2 بارك الله فيكم جميعا تفقيط الارقام بالحروف.xls

السلام عليكم ورحمة الله وبركاته اضع بين ايديكم طريقة عمل شريط متحرك على اكسس مع تغيير لو ن وحجم الخط مرفق ملف العمل شريط متحرك.accdb شريط متحرك.rar

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

السلام عليكم ورحمة الله وبركاته جمعت لكم 30 اختصار مهم جدا اثناء تعاملك مع مايكروسوفت وورد مرفق ملف العمل اختصارات وورد.xlsx

أخي الكريم @انس المنصوري بارك الله فيك نحن لم نتواجد في هذا المنتدى الا لنستفيد أولا ثم نفيد الأخرين .... انا نخدمتك

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

أخي الكريم @انس المنصوري السلام عليكم ورحمة الله وبركاته الحمد لله رب العالمين

الله يبارك فيك أستاذى kanory@ هل عدد القاعات ثابت؟ عدد القاعات و ليس عدد الطلاب بكل قاعة

توزيع القاعات بالصف بعض النظر عن التقدير وبحسب معطيات القاعات وسعتها ۔۔ ولك جزيل الشكر ۔۔

أشكرك أخي @عبد الفتاح كيرة توزيع رائع من شخص رائع ..... بارك الله فيه

جزاك الله خير اخي الفاضل هل يمكن طبيقه بحسب سعه كل قاعه او فصل يتم تحديدها مسبقا ؟

من قائمة مراسلات اضغط على بدء دمج المراسلات ثم اجعل نو ع المستند دليل

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

السلام عليكم تفضل أخى الكريم الكود السريع جدا لتوزيع التلاميذ على حسب عدد الفصول التى تريدها( تختار عدد الفصول ) ستجد ملفين لإصدار أكسيس 2003 و 2007 Desktop.rar

بعد إذن أستاذنا الفاضل اضغط كليك يمين على ورقة العمل Print_sheet يظهر صندوق حواري كما بالشكل 1 والشكل رقم 2 طريقة جعل الماكرو يعمل تلقائيًا

إن شاء الله أخى أقرب مما تتوقع

جزاك الله خير اخي الفاضل ولكن هل يمكن وضع مثال للفائدة .... اشكرك مقدما

أخي @محمد سلامة جرب هذا المثال أولا وهو مغلق ..... وبعدها أضع الملف مفتوحا أن شاء الله Kanory.rar

أخي الكريم @انس المنصوري السلام عليكم ورحمة الله وبركاته بالنسبة للنقطة الأولى جرب المثال المرفق جزاك الله خير ...... انظر للاستعلام Kanory أما النقطة الثانية عدم التكرار بالنسبةلماذا هل التاريخ أم ماذا أما النقطة الثالثة طبق هذا الكود : DoCmd.OpenQuery "kanory1" DoCmd.OpenQuery "kanory2" DoCmd.OpenQuery "kanory3" DoCmd.OpenQuery "kanory4" DoCmd.OpenQuery "kanory5" DoCmd.OpenQuery "kanory6" ' كرر هذا الكود مع تغييير اسم الاستعلام حسب الاستعلامات لديك

انتبه انه لا يوجد في العامود الاول او الثاني اخطاء (على شكل N/A ,NAME .....) او ما شابه

بارك الله فيك

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

هو يعني ( اذا ) اي هناك شرط يعني تعداد اي عدد اللي بين قوسين اي شيء اي يعني اي سجلات وتقدر تكتب اسم احد الحقول بدل هذه العلامة في جدول البيانات بشرط ان يكون حقل الرقم المدني الزوجي في الجدول البيانات بيكون يساوي مع المربع النصي باسم الرقم المدني للزوج في النموذج بيكون اكبر من الصفر او عدد كل شي في الجدول البيانات بشرط ان يكون رقم المدني للزوجة بيكون يساوي مربع الرقم المدني في النموذج واذا كان اكبر من صفر اذا حقق الشرط قم بعمل اللي بين الشرط اي بين ايف و اند ايف وهو اظهار الرسالة بيكون مكتوب هذه الغاء يساوي سالب 1 اي الغاء يساوي ترو نعم

جرب هذه المعادلة في الخلية C2 =SUMPRODUCT(($B$2:$B$100=B2)*($A$2:$A$100=A2)) و هذه في الخلية D2 =SUMPRODUCT((مصنف1!$B$2:$B$100=B2)*(مصنف1!$A$2:$A$100=A2))

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

السلام عليكم ورحمة الله وبركاته إخوتي الافاضل : عادة لكل مبرمج طريقته الخاصة في حماية برامجه التي يصممها .... فلذلك هو يعتبرها من خصوصياته التي لا يبيح بسرها جميعا وألا أصبحت برامجه في حالة اختراق سهل . وفي الاكسس عموما ليست هناك حماية مطلقة ... ولكن نضع عقبات عديدة لمنع النسخ أو الاطلاع على البيانات الموجودة بها فمثلا :للتعداد وليس الحصر : 1- تحويل القاعدة لأمتداد MDE 2- تشفير البيانات في الجدول 3- منع استخدام الشيفت بكلمة مرور 4- حماية نسخ البرنامج بعدة طرق منها ( زرع ملف - حماية عن طريق الهاردسك - الريجستري - ........... 5- وضع باس وورد للوحدة النمطية ( حروف وكلمات مشفرة لا يعرفها الويندوز Uincode مثلا 6- اخفاء كائنات القاعدة ( جداول - استعلامات - نماذج - وحدات نمطية - .... 7- وهناك العديد من الطرق الاخرى فيمكن للمبرمج استخدام أكثر من طريقة في المثال الواحد لزيادة فرص عدم النسخ

حياك الله أخي @أيمن عبادي جزاك الله خيرا

اتفضل استخدمت هذا الكود Private Sub الرقم_المدني_للزوج_BeforeUpdate(Cancel As Integer) If DCount("*", "البيانات", "[الرقم المدني للزوج]=" & Me.الرقم_المدني_للزوج) > 0 Or DCount("*", "البيانات", "[الرقم المدني للزوجة]=" & Me.الرقم_المدني_للزوجة) > 0 Then MsgBox "هذا الرقم مكرر ... رجاءا قم بتغيره" Cancel = -1 End If End Sub الفطر.rar

وعليكم السلام ورحمة الله أخي @أيمن عبادي أرجو أن يكوم هذا مطلوبك Car Body.accdb

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

السلام عليكم أخي استخدم هذا الكود: DoCmd.OutputTo acOutputReport, name report, acFormatPDF, , True, , , acExportQualityPrint و يمكنك الإستعانة بهذا الرابط شريط طباعة في الأكسس:

DoCmd.OpenForm "courses" يعني انك تريد فتح نموذج معين DoCmd.GoToRecord , , acNewRec يعني انك تريد النموذج المعين في وضع سجل جديد Forms!courses!name = Me.names تعني نقل هذا الحقل من النموذج الحالي الى الحقل في النموذج المعين لم تثقل علي بخدمتك دائما