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

السلام عليكم ورحمة الله تعالى وبركاته اولا: عملية ربط قاعدة بيانات بمسار محدد توضع حيث يتم وضع قاعدة البيانات التي تحتوي غلي الجداول في نفس مجلد قاعدة الواجهة Autolink Path.rar ---------------------------------------- ثانيا :عملية الربط التلقائي بدون تحديد المسار حيث يتم البحث عن قاعدة البيانات المطلوبة لربط الجداول اينما كانت Autolink Table.rar ---------------------------------------- ثالثا :عملية ربط قاعدة الواجهة باكثر من قاعدة link MultiDB.rar مع اطيب وارق الامنيات بالاستمتاع

أذكر أن الاستاذ @Shivan Rekany قد أجاب في مشاركة سابقة عن كيفية عمل نسخة لمكونات قاعدة البيانات.. ولا أظن أني جئت بشئ جديد هنا! والغرض الرئيس من السؤال ليس هو طريقة نسخ الجداول بل هو .. ولب القول في هذه المسألة أن كل من تكلم عن نسخ قاعدة البيانات أو نسخ مكوناتها عند الإغلاق قالوا بضرورة استخدام النموذج.. وله صورتان الأولى استخدام مكون النموذج.. بمعنى إنشاء نموذج خاص لهذا الغرض يعمل في الخلفية عند إقلاع قاعدة البيانات وفي حدث عند الإغلاق نضع الشفرة. الثانية استخدام مثيل النموذج.. بمعني استخدام الفئة البنوية للنموذج (Form Class).. وهذه الطريقة لا تستلزم انشاء نموذج خاص بل يمكن استخدام الفئة البنوية لأي نموذج وزرع الشفرة في حدث عند الإغلاق، وهذه الطريقة المفضلة لدي. حتى تتضح الصورة؛ الفئة البنوية للنموذج ليست هي النموذج نفسه بل نسخة مثيلة له.. فحدث عند الإغلاق في الأول ليس نفس الحدث في الثاني.. فلو نقرنا على زر الإغلاق في الأول فلن تنسخ البيانات ولن ينغلق الثاني تبعا والعكس صحيح.. التالي مثال على الصورة الثانية:BackupTables.zip هذا خاص بـ 2007 فأعلى وليس له علاقة 2003 ... المجموعة التالية فيها تغطي بعض المزايا المفيدة لشريط الأدوات في 2007 فأعلى شرح تكوين شريط الأدوات 2007 فأعلى

والحمدلله

اتفضل اليك هذا الكود عند تحميل التقرير Private Sub Report_Load() Me.RecordSource = Form_Print.StudentInfoSubForm.Form.RecordSource End Sub اليك المرفق School certificate 2003.rar

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

وعليكم السلام ورحمة الله وبركاته ضع الشفرة التالية في زر أمر.. 'On Error Resume Next Dim Tbl As TableDef, NewDB '-- Get current db name and combine date with it NewDB = Replace(CurrentDb.Name, ".", "_" & Format(Date, "dd-mm-yyyy") & ".") '-- create new db If Dir(NewDB) <> "" Then Kill NewDB CreateDatabase NewDB, dbLangGeneral '-- Loop throu db tables and exoprt them to new db For Each Tbl In CurrentDb.TableDefs If Tbl.Name Like "[!M,!U]*" Then DoCmd.TransferDatabase acExport, "Microsoft Access", NewDB, acTable, Tbl.Name, Tbl.Name, False End If Next

على سبيل المثال فى الملف المرفق ينبغى أن يتم التوزيع طبقاً للشروط التالية 1. لا يدخل نفس الملاحظ نفس القاعة مرتين إلا بعد أن يكون قد دخل جميع القاعات 2. لا يجتمع ملاحظان سوياً مرتين فى أى قاعة من القاعات إلا عند الضرورة القصوى 3. يدخل القاعة ملاحظ من المجموعة الأولى (الصفراء)وملاحظ من المجموعة الثانية (الخضراء) 4. يجب ألا يزيد عدد المرات التى يكون فيها الملاحظ إحتياطياً ( ح ) عن غيره بأكثر من مرة واحدة يعنى يا إما يتساوى الجميع فى عدد مرات توزيعهم إحتياطياً وهذا قد يكون صعباً وفى هذه الحالة لا يجب أن يكون الفارق بين أكثر شخص واقل شخص فى التوزيع إحتياطياً أكثر من 1 5. عند التوزيع الصحيح وتغطية كل القاعات مفروض أن يعطى البرنامج إشارة توزيع صحيح تحت كل مجموعة ويعطى إشارة توزيع خاطئ فى حالة عدم تحقيق الشروط المذكورة ليتم تعديله يدوياً أو تركه كما هو إن كان الخطأ لا يسبب ضرر الملف مرفق وأرجو أن يدلى الخبراء بدلوهم فيه وتعاونوا على البر والتقوى بارك الله فيكم جميعاً ودمتم بود الساقية.rar

اصوات الحيوانات والطيور والحروف فى بوربوينت 2010 الملف https://www.4shared.com/rar/tMlxk2LGca/___online.html

استأذن من استاذنا @sandanet و @ابا جودى اتفضل تم عمل فانكشن جديد باسم ( se) وتم کتابە فیه هذا الكود Function se() As Boolean On Error Resume Next SendKeys ("%(fic)"), True End Function طبعا هذا الكود للنسخة الانكليزية 2010 وفي ذلك السطر اي في كود عمل شريط القوائم استخدمت هذا .OnAction = "=se()" واتفضل اليك قاعدة بعد تعديل برنامج إنشاء قوائم منسدلة PopUp.rar

الحمد لله عرفت من وين المشكلة قمت بتحديد العناصر وثم من الارتساء الافقي جعلته ( أعلى اليمين) وحُلت المشكلة

أهلا بك أستاذ شيفان

احسنت صنعا استاذي الحبيب

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

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

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

السلام عليكم ورحمة الله وبركاته مرحبا بي خبراء المنتدى و أعضاء المنتدى كما وعدتكم البرنامج جاهز للتحميل وبدون أي مشاكل ************************************************************************************ @كل الحقوق محفوظة@ ) ************************************************************************************ تحميل برنامج حوالة الدفع 2017 http://www.mediafire.com/file/t8qebdh5x5wx1i6/حوالة+دفع2017.rar

في الملف الذي ارفقته العديد من عدو المعادلات الاول (أقصد الخلايا المدمجة ) لذلك لا يمكن التعامل معه على هذا الاساس تم معالجة الامر بازالة الخلايا المدمجة و و ضع معادلة واحدة في الخلية C29 تعمل مع (Ctrl+Shift+enter) ثم تسحب يساراً و نزولاً الملف مرفق المصنف2 SALIM.rar

مشكوووووووووور أخونا الكريم صادفتني مشكلة في وضعية Print Preview تأتني هذه الرسالة هل من حل بارك الله فيك آآآآآآسف على الازعاج قمت بتغيير الكود من الحدث Private Sub Report_Load() Me.RecordSource = Form_Print.StudentInfoSubForm.Form.RecordSource End Sub إلى Private Sub Report_Open(Cancel As Integer) Me.RecordSource = Form_Print.StudentInfoSubForm.Form.RecordSource End Sub تمت العملية بنجاح

نعم وعندما وضعت كلمة مرور على محرر الاكواد انتعت المشاكل

وجدت لك مثالا يشتمل على اكثر من طريقة لتلوين السجلات آمل ان تجد المتعة والفائدة ConditionalFormatting.rar

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

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

السلام عليكم استاذتي الكرام اريد عدم الحفظ التلقائي بفاتوره الميبعات عند الخروج و يكون الحفظ عن طريق زر الحفظ شاكر اليكم احبتي عدم الحفظ التلقائي.rar

السلام عليكم ورحمة الله وبركاته اليك اخي الكريم ما تم تعديله في جدول AfwtIar تم اضافة حقل Xsave في نموذج frmSales وبالضغط على زر حفظ تم اضافة كود Me.Xsave = -1 وفي حدث عند الاغلاق للنموذج تم اضافة الكود التالي DoCmd.SetWarnings False If Me.Xsave = -1 Then Else DoCmd.GoToControl "Rjmfatwra" DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If DoCmd.SetWarnings True عدم الحفظ التلقائي_2.rar تحياتي

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

السلام عليكم ورحمة الله وبركاته مرحبا بي خبراء المنتدى و أعضاء المنتدى اليوم جهزت لكم برنامج وبعنوان حوالة الدفع لكل من لديه حسابات مثل المؤسسات التربوية كالمقتصد و المحاسبين هذا البرنامج في بعض ولايات الوطن غير مجاني لكن انا أخذت نموذج من أحد أصدقائي في التعليم والمشكل أنو لايمكنه الدخول أي ليست لديه صلاحيات بأنه يغير في البرنامج فأقترحت عليه فكره بأن يريني هذا البرنامج خاص بي المحاسبين وصراحة اجتهدت فيه كثيرا بقي لدي 03 شيتات أي يجب علي أخذ كيف يحسبون حتى أضيفها في اكسل و أنا تركت الخيار للمستعمل أي يرغب أن يعمل يدوي أو بي الفورم وهذا كل شيء لدي يوم السبت 07/10/2017 كونو في الموعد لتحميل البرنامج فقط الدعاء لي ملاحظة : بالنسبة للبرنامج الآخر الذي ذكرته سابقا يعتبر من أهم الانجازات التي قمت بها و الى حين الذاكرة كبيرة جدا حتى مديفار لم يسمح لي بي تحميله المهم عند شراء نطاق التحميل سأعلنه لكم ************************************************************************************ @كل الحقوق محفوظة@ ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم سألكم الدعاء بظهر الغيب لي المبرمج : مناد سفيان يرحب بكم