ابوخليل

لم تجب على تساؤلي اي برنامج متقدم يحتاج الى خدمات مصاحبة يتم تثبيتها على الجهاز المستخدم

هل تقصد ان : 1- البرنامج موجود على الفلاشة 2- يمكنه تشغيل البرنامج من اي جهاز آخر من الفلاشة الحالية فقط اذا كان صحيحا فما تعليقك على الخدمات المصاحبة للبرنامج مثل التعريفات والمكتبات

ارفق مثالك لتسهل على اخوتك مساعدتك

هذا برنامج صغير لحذف وإزالة التشكيل عن النصوص مثلا يحتاج احدنا آية كريمة او حديث شريف خالية من التشكيل ، فتصور كم من الوقت والجهد يحتاج لازالة تلك الحركات انا اعتقد ان كتابتها من جديد ارحم في هذا التطبيق يتم النسخ واللصق والتطبيق ولمن اراد زيادة في التطبيق والافكار يتفضل من هنا برنامج حذف التشكيل.rar

وهذه طريقة لاستخراج النصوص بلا تشكيل عن طريق الاستعلام اختصرنا الكود السابق ووضعناه في وحدة نمطية عامة واستخدمناه داخل الاستعلام Public Function delTshkeel(tshkeel As String) Dim i As Integer Dim fld As String, wr As String, spa As String wr = "" fld = tshkeel i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop delTshkeel = wr End Function وهذا المرفق استعلام حذف التشكيل.rar

هدية لاحبتي في الله للحاجة الملحة في تسهيل وتيسير عمليات البحث داخل النصوص وخاصة النصوص الكريمة في القرآن والسنة كان لزاما عند اجراء عملية البحث اهمال حركات التشكيل الموجودة في هذه النصوص وبعد البحث وجدت التالي : 0x064B فتحتان Shift + W 0x064C ضمتان Shift + R 0x064D كسرتان Shift + S 0x064E فتحة Shift + Q 0x064F ضمة Shift + E 0x0650 كسرة Shift + A 0x0651 شدة Shift + ~ 0x0652 سكون Shift + X ووجدت ايضا : أن رموز unicode لحروف التشكيل العربية تبدأ من 240 وحتى 250 من هنا : http://withdotnet.net/2010/06/using-strings-with-combining-chars/ وأصل الكود هنا وبفضل من الله وعونه تم التوصل الى طريقة مرنة يمكن تطبيقها بكل يسر وسهولة عبر الكود التالي : Private Sub zer1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, x As Integer Set db = CurrentDb Set rs = db.OpenRecordset("tbl1") rs.MoveLast rs.MoveFirst For x = 1 To rs.RecordCount Dim fld As String, wr As String, spa As String wr = "" fld = rs!text1 i = 1 Do While i <= Len(fld) spa = Mid(fld, i, 1) If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then Else wr = wr & spa End If i = i + 1 Loop rs.Edit rs!text2 = wr rs.Update rs.MoveNext Next x Set db = Nothing Set rs = Nothing MsgBox "تمت العملية بنجاح" End Sub في المرفقات يتم من خلال هذا الكود حذف التشكيل ونقل النتيجة الى عمود جديد وطبعا هذا حسب طلب اخونا المحب علما انه يمكن اخراج النتيجة داخل الاستعلام وهو برأيي افضل .. وللهدية بقية ... ازالة التشكيل.rar

اضبط اعدادات المنطقة واللغة في وندوز على اللغة التي تستخدمها

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

اذا كان السؤال في محيط الوورد فيمكنك جعل المستند الذي تعمل عليه محمي (للقراءة فقط) وعند تسجيل شخص ما فلن تتمكن من الحفظ ولكن يمكنك الحفظ باسم لتضع اسم الشخص على المستند الجديد وستجد المستند الاصلي خاليا حين تفتحه من جديد وطريقة الحماية : انقر بالزر الايمن على المستند وهو مغلق واختر خصائص / ضع اشارة على خانة : للقراءة

السلام عليكم هذه المشكلة توضح انه تم اضافة الجدول الى القالب يوجد عدة طرق لحل هذه المشكلة : 1- لصق ملف Normal.dot جديد بدلا من الموجود 2- تنصيب وورد جديد بعد حذف الاول اذا كان القالب معد بشكل خاص ولا تريد تغيييره او يوجد فيه اضافات يصعب تحديثه انظر الصورة وفيها الموضع الذي يمكنك حذف الاضافات الغير مرغوب فيها

انت وضعت جدولا للغياب فأين جدول الحضور ؟ الحضور والانصراف من اساسيات برامج الموظفين وحتى لو لم تضمن الحضور والانصراف في البرنامج فان طريقة تصميم جدول الغياب غير صحيحة يجب ان يتم رصد الغياب يوميا يكفي في الجدول حقل التاريخ والرقم المعرف وحقل بعذر اولا

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

يبدو انها اختلطت عليك الجداول فقط الجداول الخدمية ( التي نجلب منها الاسماء ) لاحظ الخطأ الذي حصل : هنا 3 جداول : tbl_Vacations tbl_Vacations_3rda tbl_Vacations_Type فالجدول الخدمي هو الاخير بينما انت عدلت على الجميع في الجدولين الاولين الكود يجب ان يكون قابلا للتكرار والمفتاح يمكن ان تجعله ترقيما آليا وقس باقي الجداول على ذلك

في الجداول الخدمية : جميع الاكواد في الجداول الآن تبدأ من الرقم واحد وبهذا الاسلوب ستواجه مشكلات مستقبلية عند المعايير والتصفية الحل : اجعل الاكواد تبدأ من 3 ارقام على الأقل

في جدول الموظفين اجعل الحقل Emp_Code هو مفتاحا اساسيا فقط يجب ان يكون رقما فريدا لا يتكرر في بقية الجداول الخدمية : يمكنك حذف حقل الترقيم التلقائي ويكفي ان تجعل الكود مفتاحا للجدول

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

هي الصورة نفسها التي ارفقتها لك

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

يوجد بديل استخدم هذا التعبير : EX : -Int(-[Average])

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

وما دمنا نعمل ضمن النموذج هذا كود يقوم بالبحث والمقارنة Dim i i = Time() mish_time.SetFocus DoCmd.FindRecord i, acEntire, False, acSearchAll, False, acCurrent, True If i = mish_time Then DoCmd.OpenForm "alarm" End If

تفضل اخي الحبيب وجدت لك مثالين في المحاسبة من منتدانا هذا اتمنى ان تجد فيهما الفائدة محاسبة.rar

Dim Stest As Byte Stest = Mid([Text2], 1, 2) هو متغير وهو يمثل الرقمين الاولين من كل باسوورد مدخل فعند ما يدخل المستخدم كلمة المرور وضعنا شرط وهو النظر الى stest فاذا كان 22 نفتح نموذج كذا واذا كلن 33 نفتح نموذج والا نفتح النموذج الثالث

الطريقة مجربة وسليمة 100% ويمكن اخفاء النموذج المسؤول ليعمل بصمت في الخلفية تصور انه يمكن ايضا ان يرسل لك رسائل sms يذكرك بمواعيدك