ابوخليل

اعمل مثال داخل الفلاش يحتوي على نموذج واحد فقط الصق الاكواد في محرر النموذج وجرب العمل سيتم على نموذج واحد حدث عند الفتح يقرأ رقم الفلاشة وحدث عند التحميل يقارن اذا ضبطت يمكنك استبدال العبارة exit sub بعبارة اخرى لفتح ما تريد Dim i Private Sub Form_Load() If i = "1210253353" Then Exit Sub Else MsgBox "البرنامج محمي لا يمكن فتحه" DoCmd.Quit End If End Sub Private Sub Form_Open(Cancel As Integer) strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems i = objItem.SerialNumber Next End Sub ويمكن جعل الكود في حدث الفتح في وحدة نمطية عامة يتم نداؤها داخل كل نموذج لتضمن عدم التمكن من فتح اي نموذج عند مخالفة الشرط

هذا الكود يظهر رقم الفلاشة التسلسي في الرسالة strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems s = objItem.SerialNumber Next MsgBox s يمكنك استبدال الرسالة بمتغير يتم فحصه عند فتح النموذج فان كان موافقا لهذا الرقم والا يتم غلق البرنامج ملحوظة : يجب ان تتأكد ان الفلاشات لا تتشابه ارقامها خاصة اذا كانت من مصنع واحد انا جربت فلاشة واحدة عندي قبل الفورمات وبعد الفورمات لم يتغير الرقم

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

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

هل تقصد ان : 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