Moosak

هل تقصد أنك تريد إعطاء جميع الطلاب 10 درجات مرة واحدة ؟ لا يزال بإمكانك الاستفادة من نفس الحل السابق باختيار الدرجة من القائمة فتنطبق على الجميع .. هل هذا ما تريد ؟ ☝

وعليكم السلام 🙂 1) أضف قوائم منسدلة غير منظمة : 2) تجعل القيمة الافتراضية لكل حقل هي قيمة القائمة المنسدلة التي فوقها : 3) عند تغيير قيمة القائمة المنسدلة يتم تغيير القيمة الافتراضية بعدما وضعت ماكرو Requery لتحديث القيمة .. 4) لتثبيت القيمة الافتراضية في أي قائمة منسدلة : أولا : تظغط على خانة تحرير القائمة ... ثانيا : تعدل القيمة الإفتراضية حسب الرغبة . baseV.accdb

تصميم جميل وراقي ماشاء الله .. 🙂🌹🌷

للإثراء ،،، من مكتبتي العامرة 😊 3 أكواد لـ ( نسخ - لصق - تفريغ الذاكرة ) شرح الكود: ضع الكود كاملا في موديول ثم استخدمه في البرنامج كما هو واضح في الأسفل .. الكود: '==================================================(Copy) Public Function CopyText(ByVal Text As Variant) As Boolean CopyText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text) End Function '==================================================(Paste) Public Function PasteText() As String On Error Resume Next PasteText = CreateObject("htmlfile").ParentWindow.ClipboardData.getData("Text") End Function '==================================================(Clear The ClipBoard) Public Function ClearClipBoardText() As Boolean ClearClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.clearData("Text") End Function طريقة الاستدعاء (الاستخدام): CopyText(Text) <------ للنسخ PasteText() <------ للصق ClearClipBoardText() <------ تفريغ الذاكرة مرجع: #https://www.mrexcel.com/board/threads/vba-post-to-clipboard.1142841/# مكتبة الأكواد

وعليكم السلام ورحمة الله وبركاته 🙂 حبذا لو ترفق ملفك للتطبيق عليه مباشرة ..

رووووووووعة ما شاء الله تبارك الرحمن 😊👌🌹 الفكرة بحد ذاتها جميلة وعبقرية .. 🙂 ومشاركة مني عملت منها نسخة مصغرة عشان يسهل وضعها في النماذج .. ساعة رقمية للمهندس فادي.accdb

حياك الله أخي @moho58 🙂 الحقيقة ما درست آلية عمل الملف .. فقط نقلته لكم كما وجدته 😊🖐️

كتطبيق مباشر لسؤال الأخ @moho58 .. من مكتبتي هذا ملف أجنبي يقوم بالتراجع عن التعديلات في النموذج المستمر في حال لم يتم تأكيد الحفظ 🙂 UsingTransactionNoClass.accdb المصدر (هنا)

كيف تم الاختراق شايبنا ؟ ماذا كتبت مكان كلمة المرور ؟ طيب جرب مع هذا : 🙂👈 قالب تسجيل الدخول مع صلاحيات دخول النماذج.accdb

الله يبيض وجهك تظهر لي هذه عند الضغط على تنفيذ (لم يتم العثور على العمود B ) : وكتعديل على طريقة تحديد أسماء الأعمدة ، قمت بهذا التعديل الطفيف : والنتيجة ستكون حسب الإجابة على هذه الرسالة : وكذلك تم تعديل كود الكومبو الآخر أيضا 🙂 الأول: Private Sub Comb_Sheets_AfterUpdate() On Error GoTo ErrorHandler Dim col As Long If IsNull(Me.Comb_Sheets) Or Me.Comb_Sheets = "" Then Exit Sub Set xlWorksheet = xlWorkbook.Sheets(Me.Comb_Sheets.Value) Me.Comb_Cells.RowSource = "" Me.Comb_Cells = "" Dim HasColumnHead As Boolean HasColumnHead = True If MsgBox("هل الصف الأول هو عنوان الأعمدة؟", vbMsgBoxRight + vbYesNo, "") = vbNo Then HasColumnHead = False For col = 1 To xlWorksheet.UsedRange.Columns.Count If HasColumnHead = True Then ' To Fill Combobox with First row Names as column Name Me.Comb_Cells.AddItem xlWorksheet.Cells(1, col).Value Else ' Fill Combobox with column Names like A,B,C,....etc Me.Comb_Cells.AddItem Split(xlWorksheet.Cells(1, col).Address, "$")(1) End If Next col Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight, "" End Sub الثاني : Private Sub Comb_Sheet_AfterUpdate() On Error GoTo ErrorHandler Dim col As Long If IsNull(Me.Comb_Sheet) Then Exit Sub Set xlWorksheet = xlWorkbook.Sheets(Me.Comb_Sheet.Value) Me.Comb_Cell.RowSource = "" Me.Comb_Cell = "" Dim HasColumnHead As Boolean HasColumnHead = True If MsgBox("هل الصف الأول هو عنوان الأعمدة؟", vbMsgBoxRight + vbYesNo, "") = vbNo Then HasColumnHead = False For col = 1 To xlWorksheet.UsedRange.Columns.Count If HasColumnHead = True Then ' To Fill Combobox with First row Names as column Name Comb_Cell.AddItem xlWorksheet.Cells(1, col).Value Else ' Fill Combobox with column Names like A,B,C,....etc Me.Comb_Cell.AddItem Split(xlWorksheet.Cells(1, col).Address, "$")(1) End If Next col Exit Sub ErrorHandler: MsgBox "حدث خطأ: " & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight, "" End Sub

تسلم الأيادي مستر @Foksh 😊🌼🌹🌷 لااااااااااا ... ذي محتاجة شرح لحالها 😎🖐

سلمت يمناك باش مهندس @Foksh 🙂🌷 كفيت ووفيت .. لله درك 😊👌 كمقترح لهذه النقطة : هل يمكن إظهار الأعمدة بأسمائها البرمجية ( A B C D E F ...) بدل الكلمة المكتوبة في الصف الأول .. 🙈

🙂

ما شاء الله عليك يا باش مهندس .. 🙂🌷 شعلة من النشاط والحماس .. 👍🏻😊 موضوع مهم والكثير محتاجينه 👌

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

هذه مشاركتي مع الشباب بحكم معرفتي بالقالب الذي صممته سابقا 🙂 أضفت لجدول المستخدمين حقل لقائمة النماذج التي في البرنامج لتحديد النماذج المسموح بها : بعد ذلك صممت دالة تقوم بفحص ما إذا كان النموذج المحدد هو من ضمن النماذج المسموح بها بناءا على المستخدم الحالي (الذي قام بتسجيل الدخول) هذه الدالة تعطيها اسم النموذج > وستفحص إن كان هذا النموذج من ضمن الصلاحيات > وستعطيك True أو False حسب ما إذا كان النموذج من ضمن الصلاحيات أو لا .. وكذلك تغلق النموذج الغير مسموح بدخوله .. ولتطبيق الكود على النماذج فقط ضع هذه الجملة في حدث عند الفتح للنماذج التي تريد تطبيق الصلاحيات عليها : للتحميل : قالب تسجيل الدخول مع صلاحيات دخول النماذج.accdb

إقرأ هذا المقال 🙂 : https://isladogs.co.uk/security-alert-message-bar/index.html

أهلا بك أخي محمد ، 🙂🌼 وشكرا لك على الإطراء .. بالنسبة لتلوين الإجازات كل نوع بلون هذه لم أفكر فيها بعد .. وتحتاج لمجهود أو فكرة أفضل من الطريقة الحالية المعتمدة على التنسيق الشرطي ..

تم إضافة تحديث جديد للملف .. النسخة 1.7 🙂

الله يبارك فيك يا سعادة الباشا 😊 دا قليل مما عندكم 😇 وأجاب الله دعواتك .. لنا ولكم 😊🤲

بل يوجد .. 🙂 في بالي مقترحين ... ولكن جرب المقترح الأول : في مصدر بيانات النموذج جرب هذا الخيار : وأخبرنا بالنتيجة ..

أحسن الله إليك على هذه الكلمات التي لو وزنتُها بكنوز الأرض لرجحت بها 😊🌹🌼🌷 جعلها الله أداة نافعة لكل طالب .. وخالصة لوجه الله الكريم .. وأجاب الله دعواتك الخالصة ورزقك أضعافها .. 🤲 ونحن لا نزال نغترف من يم علمكم الوافر 🙂

وعليكم السلام .. 🙂 إضغط على ملف الأكسس نفسه بالزر الأيمن للماوس > إختر خصائص > علم على إلغاء الحظر بعلامة صح > موافق

وعليكم السلام .. 🙂 قم بتمكين الإضافة لهذه النماذج ..

تمام يا هندسة .. أنا متفق معاك تماما .. وكنت بقول لك إنت غيرها بنفسك… 😁👊🏻 أنا جربت النسخة الأولى وكانت شغالة معاية 🙂👌 وهنا عدلت النموذج فقط على أساس أنه سابقا كل حاجة كانت تمام .. 👍🏼 ما هو أحنا عاملين كل هذا للمستخدم النهائي أصلا .. 😅🖐️ والمبرمج مستفيد منها أيضا بالطبع 😁 بتفرق جدا يا باش مهندس .. لما تختار العربية لبلد ثاني تلاقي الجهاز بيضبط معاها لغة الكيبورد والعملة وأسماء الشهور ووووووو… لذلك بسبب هذي النقطة مهم أنك توفر الخيارات للمستخدم 🙂👌