ابوخليل

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

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

كيف ؟ عند فتح النموذج frm1 : الا يفتح معك نموذج الترحيب ويقفل نموذج البداية ؟ نفتح نموذج frm1 فيظهر نموذج f1 فقط .. اليس كذلك ؟ ارجو من الاخوة الذين حملوا المثال الاخير في المشاركة السابقة التجربة والافادة

انظر .. جرب المثال المرفق اذا فتح نموذج الترحيب جيد حاول تغير في احد الرقمين وشوف النتيجة وخبرني التجربة هذه خارج الفلاشة TG.rar

الكود شغال 100% جرب غير تعريف المتغير الموجود في اعلى المحرر الى dim i as String ايضا السطر : strComputer = "." اكتب قبله dim strComputer اذا لم يمشي الحال عندي لك كود آخر للفحص عندي لم يتغير مع الفورمات وربما انواع اخرى تختلف ولكن هل يمكن الفلاشات تتشابه في السيريال فهذا لا اعلم ولم اجرب

ممتاز اخونا حسين يعني ان الفلاشة معك انت للحفاظ على خصوصية البرنامج ولكن ابو العقاب يريد البرنامج داخل الفلاشة ، بمعنى انه يريد توزيع البرنامج مع الفلاشة بحيث يمكنك تشغيل البرنامج بعد شرائه على اي جهاز حاسوب اي لا يمكنك نسخه الى فلاشة اوجهاز آخر

exit sub هي للخروج من الشرط وفتح النموذج اصلا اذا تحقق الشرط فتح النموذج وهي نتيجة exit sub اما اذا لم يتحقق تخرج الرسالة ويغلق التطبيق اين المشكلة في ذلك ؟ طيب اجعل بدلها امر بفتح نموذج آخر

ولكنه عندي يعمل استبدل الرقم وجرب db1.rar

اعمل مثال داخل الفلاش يحتوي على نموذج واحد فقط الصق الاكواد في محرر النموذج وجرب العمل سيتم على نموذج واحد حدث عند الفتح يقرأ رقم الفلاشة وحدث عند التحميل يقارن اذا ضبطت يمكنك استبدال العبارة 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 ارقام على الأقل