محمد طاهر عرفه

هذا البرنامج تم نشره بواسطة الأخ أبو ناصر و مكتوب فيه انه من برمجة الأخ محمد المجيدل ضع الملفان فى المسار التالي C:\halakat و هو معد باكسيس 97 و لاستخدامه فى اصدارات لاحقة يحتاج الي تعديل فى الاكواد Halakat.txt

برنامج لادارة حلقات التحفيظ نسخة 2000 ونسخة اكس بي و هو بصيغة mde ALMaher.txt

المثال و هو للتعامل مع النصوص بطريقة محرر ال HTML A2KSHTML.rar

لا يخطرببالي حاليا حل مباشر لعمل تنسيق مخصص لجزء من الجملة هذا حل و ان كان لا يعجبني : و هو تقسيم كل جملة بعد البحث الي 3 مربعات نص ، الاول و الثالث بالتنسيق العادي ، و الاوسط باللون الاحمر و يتم تقسيم جملة النص علي المربعات الثلاثة لتظهر بالتنسيق المطلوب و يوجد حل أكثر احترافا جدا و لكنه سيستلزم استخدام كائن Activex اسمه Microsoft Web Browser الذي يمكنه التعامل مع النصوص بطريقة مكنك من عمل ما تريد و لكن الكود سيكون طويلا صراحة لم أتعامل معه سابقا ، و لكن أعتقد أنه يمكن تنفيذ ما تريد من خلاله و لدي مثال من موقع أجنبي ، سابحث عنه و أرفقه بإذن الله .

مرفق مثال فتح النموذج و التقرير بكل سجلاته أو مع عمل تصفية علي السجل المختار من النموذج فقط اختار موظف ثم اضغط علي زر فتح النموذج أو التقرير للموظف المحدد أيضا يوجد مثال علي عمل تجميع للتقرير للدورات التي حصل عليها كل موظف علي حدة خاصية Sorting and grouping من وضع تصميم التقرير و استخدام الدالة count لعد دورات كل موظف و ايضا عمل مسلسل للتقرير عن طريق وضع =1 فى مصدر البيانات لمربع نص و اختيار خاصية Runnig Sum - Overall مرفق المثال OpenSpecific.rar

أو ضع الكود التالي DoCmd.MoveSize 300, 300, 11250, 7000 و هو يعطي أربعة قيم لمكان اليسار العلوي كسين و صاد من أعلي اليسار ثم للعرض و أخيرا الارتفاع و غير القيم كما يناسبك و يمكنك وضعه فى حدث عند تغيير الحجم Private Sub Form_Resize() DoCmd.MoveSize , , 11500, 7500 End Sub و هنا تم تجاهل المكان و الاكتفاء بتحديد المقاس و فى هذه الحالة تجعل خاصية autocenter للنموذج = نعم

راجع خاصية Autosize من الخصائص النموذج و اجعلها = لا

ضع ال 11 و ال 4 فى الخلايا a1,a2 عل التوالي و المعادلة تكون =+ROUNDDOWN(A1/A2;0)

شكرا لك أخي الكريم

أبسط الطرق لتطبيقه هو عمل تقرير أو استعلام تجميع برصيد كل مادة ( مجموع التوريد - مجموع السحب ) فى القاعدة التي سيتم اقفالها و في القاعدة الجديدة ، يتم عمل سجل لكل مادة لها رصيد و يكون وصفه رصيد افتتاحي للمادة و به توضع قيمة الاقفال للقاعدة السابقة و يتم بعد ذلك توالي السحب و الاضافة

ما هي الدالة Mround ?? هي دالة قمت بكتابتها ، أم مضافة من Add-in ؟؟ عموما بالنسبة لاستخدام الشرط فى هذه الحالة =IF(A2>=0;mround(A2;7);mround(A2;-7))

الافضل هو ان تجعل ما يخزن فى الجدول هو مسار ملف الوورد فقط ، مع السجل المناظر ( حقل المسار ) و من المفترض اذا اردت ادراج كائن وورد بالملف داخل البرنامج ( و ان كنت لا أحبذ ذلك ) ، فسيكون هناك حقل من نوع OLE فى الجدول ليتم تخزين الكائن به مع السجل المناظر و هو يتم حفظه ضمن بيانات الجدول و ليس كملف منفصل و كما قلت لك الافضل هو أن تحفظ المسار فقط و تجعل الملفات كلها فى مجلد محدد و لاختيار مسار الملف من نموذج استعراض مجلد واختياره http://www.officena.net/ib/index.php?showtopic=958

مثال للنسخ مع التوقيت ( أجنبي) AutoBkUp2K.rar

مثال للأخ حارث لنسخ الجداول CopyTables.rar

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

هذا الكود للأخ أبو هاجر : Dim wrkJet As Workspace Dim AbA As Database Set wrkJet = DBEngine.Workspaces(0) Set AbA = wrkJet.OpenDatabase("databasename.mdb", _ False, False, _ ";PWD=123") مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb" و بذلك تكون حققت الاتصال مع القاعدة المحمية بكلمة سر 123 و تنفذ بعد ذلك ما تريد من أكواد و من المهم كما ذكر أخونا أبو هاجر ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف بعد انتهاء ما تريد من أكواد نفذ الأمر التالي AbA.Close Set wrkJet = Nothing Set AbA = Nothing ========== و بالمناسبة الكود كاملا كان لعمل ربط للجداول فى قاعدة محمية بكلمة سر و كان كالتالي : Dim wrkJet As Workspace Dim AbA As Database Set wrkJet = DBEngine.Workspaces(0) Set AbA = wrkJet.OpenDatabase("databasename.mdb", _ False, False, _ ";PWD=123") DoCmd.TransferDatabase acLink, "Microsoft Access", "databasename.mdb", acTable, "table1","table2" مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb" ووضع اسم الجدول الموجود الذي تريد الارتباط به مكان "table1" والاسم الذي تريد تسمية الجدول به بعد الارتباط مكان "table2" من المهم ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف بعد الارتباط نفذ الأمر التالي AbA.Close Set wrkJet = Nothing Set AbA = Nothing

مثال لاظهار الأذكار بالتتابع المثال للأخ فهد الدوسري AZKAR_FHD.rar

بخصوص اظهار و اخفاء أشرطة القوائم و الادوات فيمكنك التحكم فيها من Tools Startup و أزل الخيارات المناظرة و منها أيضا تختار النموذج الافتتاحي و ليكن Form1 ثم فى حدث عند عداد الوقت On Timer تضع كود فتح النموذج التالي و اغلاق الحالي DoCmd.Close DoCmd.OpenForm "Form2" و تضع قيمة عداد الوقت TImer Interval 3000 أي 3 ثواني لان القيمة تدخل بالمللي ثانية

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

جزاك الله خيرا

السلام عليكم أعتقد أن هذه الحلول تضيف كلمات الي قاموس التعرف علي الكلمات و ليس قاموس الترجمة الذي يريده الأخ عبد الوهاب

مرفق مثال علي السريع ، أرجو أن يوفي بالغرض مع تحياتي Vications.rar

لعمل أكثر من زر للتبديل ، كل منها يظهر نموذج محدد If Me.SubForm.SourceObject <> "Subform2" Then Me.SubForm.SourceObject = "Subform2" End If مع تغيير اسم النموذج الفرعي لكل زر

هذه دالة للتعرف علي هل الحرف تشكيل أم لا و هي من إعداد الأخ أبو هادي Function IsTashkeel(ByVal InChar As Variant) As Boolean IsTashkeel = False If Len(InChar) = 0 Then Exit Function Select Case Asc(Left(InChar, 1)) Case 126, 240 To 243, 245, 246, 248, 250 IsTashkeel = True End Select End Function

أعتقد أن هذه الكتب جيدة http://www.darelfarouk.com.eg/bookdetails.asp?id=161 http://www.darelfarouk.com.eg/bookdetails.asp?id=181 http://www.darelfarouk.com.eg/bookdetails.asp?id=162 http://www.darelfarouk.com.eg/bookdetails.asp?id=178 http://www.darelfarouk.com.eg/bookdetails.asp?id=179 و ما قرأته بالفعل هو الثاني و الأخير