Moosak

حياك الله أخي @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 🙂

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

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