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

السلام عليكم هذا جهد متواضع قابل للتطوير كتبته على عجالة لتوزيع الدارسين بأعداد مختلفة على عدد من القاعات يوجد بالنموذج 6 مربعات نص تكتب بكل منها عدد الطلاب بكل قاعة والبرنامج يوزع بناء على طلب أحد الإخوة هنا الملف بصيغة 2007 و 2003 keraaaaaaaa.rar

ممكن تجرب هذه الطريقة نفترض ان هناك خلايا بها بيانات أولاً قم بعمل حماية لورقة العمل أو كل أوراق العمل اذهب إلى محرر الأكواد بالضغط على مفتاح Alt+F11 قم بإدراج موديول والصق هذان الكودان فيه Public Sub Ali_Prodc() Dim Sh As Worksheet Dim Rng As Range Ch_P On Error Resume Next With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False For Each Sh In ThisWorkbook.Worksheets If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": Sh.Cells.Locked = False If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True With Sh.Cells .SpecialCells(2).Locked = True .SpecialCells(-4123).Locked = True End With If Sh.Cells(1, "IV") = "True" Then Sh.Protect Password:="123" Next .EnableEvents = True .Calculation = xlCalculationAutomatic .ScreenUpdating = True End With End Sub Private Sub Ch_P() Dim Sn As Worksheet For Each Sn In ThisWorkbook.Worksheets If Sn.ProtectContents = True Then Sn.Unprotect Password:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123" Next End Sub بعد كتابة ما تريده قم بتشغيل الماكرو Ali_Prodc بذلك تكون ورقة العمل أو المصنف بالكامل ( أي خلية بها بيانات ) محمية مع إمكانية الكتابة في الخلايا الأخرى وللتعديل على أي خلية بها بيانات قم بعمل إلغاء حماية

أخي @جابر ناصر تفضل ملفك ... أرجو أن يكون هو مطلبك ... Ka_جابر.accdb

تختار القاعده بشرط بصيغه mdb

حطي في اي امر كي يفعل الشفت وهذا لفتح الشفت Dim msg, style, title, result msg = "سيتم تفعيل الشيفت" style = vbYesNo title = " تحذير - إيقاف مفتاح" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_Boolean, True MsgBox "تم تفعيل الشيفت ", vbInformation, "إتمام العملية" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "تم الترجع عن تفعيل الشيفت", vbInformation, "إلغاء العملية" End If

هذا كود ايقاف الشفت Dim msg, style, title, result msg = "سيتم توقيف الشيفت" style = vbYesNo title = " تحذير - إيقاف مفتاح" result = MsgBox(msg, style, title) If result = vbYes Then ChangeProperty "AllowBypassKey", DB_Boolean, False MsgBox "تم إيقاف الشيفت", vbInformation, "إتمام العملية" ElseIf result = vbNo Then DoCmd.CancelEvent MsgBox "تم الترجع عن ايقاف الشيفت", vbInformation, "إلغاء العملية" End If

اذا حابب ارسلك الملف ما عندي اي مشكلة

هل تقصد الهاء فقط : هكذا : هـ ؟ اذا كان كذلك فاكتب حرف الهاء بطريقة عادية و اتبعه بعلامة ـ و هذه العلامة تكتب عن طريق Shift مع حرف التاء

أخي @انس المنصوري فائدة أخرى أخي للمنتدى ( إذا اردت ان ينتبه عضو محدد في المنتدى مثلا ردود على مشاركة أكتب بهذه الصورة في البداية هذه العلامة @ ثم مسافة تظهر لديك جميع اسماء الاعضاء في المنتدى اكمل اسم العضو المطلوب واختاره من القائمة .... بهذه الطريقة تصل للعضو اشارة بالرد ..... لأن الموضوعات التي يشارك فيها العضو كثير سواءا في منتدى الاكسس أو غيرها ..... بارك الله فيك

أخي @انس المنصوري تفضل وجرب ابراج المدينة .... ملاحظة في بداية انشاء برامجك نصحة لك استخدم المسميات الانجليزية أو العربية كالتالي أبراج_المدينة .... بسبب أن المسميات العربية سواء في النماذج أوالاستعلامات أو حتى الكائنات الموجودة في النماذج ( تشكل عبئ في كتابة الاكواد ) Ka_mans.mdb

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

اخي الكريم @انس المنصوري انا الان متصل بالجوال ... اذا وصلت الكمبيوتر .... انظر في ملفك ... ان شاء الله تعالى

رسالة من تصيم زهر عبد الله ممكن تستفيد رسالة اخبارية من تحت لفوق.rar

اخواني واستاذتي الكرام السلام عليكم ورحمة الله وبركاته بناء علي طلب احد الاخوة بعمل قاعدة بيانات لادارة العقود بالشركة الخاصة به تحتوي علي بيانات العامليين مع شاشة ادخال ونموذج لعقد العمل حسب قانون مكتب العمل السعودي وكذلك عرض عمل قمت بعملها واحببت ان اهديها لكل اخواني بالمنتدي عسي ان يكون فيها نفع لاحد منهم وردا للمعروف مع اني اعرف اني مشاركتي هذه نقطة في بحر عمالقة المنتدي واهدي شكري لاخي الكريم الفضيل / احمد فضيلة لاني اخذت الكثير من افكاره كلمة السر للدخول 111 employment contracts.rar

أخي الكريم @انس المنصوري بارك الله فيك نحن لم نتواجد في هذا المنتدى الا لنستفيد أولا ثم نفيد الأخرين .... انا نخدمتك

وعليكم السلام مع اختلافي معك في وضع القيمة داخل الجدول ، فبالامكان وضعها في متغير هذه هي طريقة استخراج القيمة حسب فكرتك ويمكنك ان تضعها في المكان الذي يناسبك Dim i, x As Long i = DMin("id", "tbl1") x = DMax("id", "tbl1") diffrent = Nz(DLookup("d2", "tbl1", "id=" & x), 0) - Nz(DLookup("d1", "tbl1", "id=" & i), 0) ويمكن استبدال المتغيرات بحقل id اذا كان ظاهرا معلوما dbx.mdb

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