عبدالله المجرب

وين المشكلة في وضعه في مديول المهم النتيجة انه حسب المطلوب

السلام عليكم احببت ان اقدم لكم شرح لي لكيفية عمل شاشة دخول مع صلاحيات مستخدمين شاشة دخول بصلاحيات - للشرح.mdb

شاهد المرفق في هذه المشاركة تم ارفاق الملف للفائدة inputbox with password mask.xls

تم التثبيت لفترة لعموم الفائدة

الاخ الفاضل ابو الحسن الاخ الفاضل احمد بدره شكرا لمروركم الكريم

ان لله وانا اليه راجعون البقاء لله ... اللهم اغفر لها وارحمها وأدخلها جنات الفردوس الأعلى , وألهم اهلها الصبر والسلوان

راجع هذا الموضوع وان شاء الله تجد ما تريد

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

جرب المرفق بعد التعديل ت-غياب_-.accdb

اليك العديد من المشاركات المماثلة وبها الحل وهناك الكثير لو تبحث

فيديو شرح للفرز المتخصص حسب تسلسل المنصب وليس الابجدية https://www.youtube.com/watch?v=2yeQw4COGeI ان شاء الله تستفيدون منه

كحل اخر سيظهر لك مربع ادخال ضع فيه رقم الهاتف بدون 09 استبدل الاكواد السابقة بهذه Private Sub Number_Tel1_GotFocus() If IsNull(Me.Number_Tel1) Then RR = InputBox("ضع رقم الهاتف هنا", "تنبية") Me.Number_Tel1 = "09" & RR End If End Sub Private Sub Number_Tel2_GotFocus() If IsNull(Me.Number_Tel2) Then RR = InputBox("ضع رقم الهاتف هنا", "تنبية") Me.Number_Tel2 = "09" & RR End If End Sub

هل تقصد هكذا بمجرد اضافة سجل وتنتقل لرقم الهاتف سينكتب 09 في مربع النص Aziz.accdb

بعد اذن الاستاذ يوسف استبدل هذين السطرين Forms!NamesRecord![أمر56].Enabled = flase Forms!NamesRecord![أمر82].Enabled = flase بهذين Forms!NamesRecord![أمر56].Visible = flase Forms!NamesRecord![أمر82].Visible = flase وبذلك يختفوا في حال الضباط ويظهروا في حال الأفراد

شغل جميل سلمت يديك استاذ محمد

للرفع

السلام عليكم لاثراء الموضوع اذهب الى هذه المشاركة بها ملف به نفس ما تطلب

للرفع

السلام عليكم استاذ جعفر لدي هذه المشكلة نفسها للنجربة ارفقت لك ملف نزلته من المنتدى اذا تفتحه على 32 بت يعمل دون مشاكل اذا تفتحه على 64 بت لا يعمل وعند استخدامي ل #if VBA7 then #Else #End If تبقى اسطر الكود حمراء ولا يعمل قمت بتعديل الدوال بإضافة PtrSafe الا ان رسال الاخطاء تظهر مرفق لك ملف جرب عليه استخراج_الملفات_الفرعية.accdb

ما شاء الله موضوع متكامل وشرح وافي جزاك الله خيرا

كنت استعملها سابقا وعدلتها الى هذه بناء على مقترح باستعمال .update اعتقد ان المشكلة تخص عدم تحرير الجدول او القاعدة من الذاكرة فما الحل لهذه المشكلة الاتصال بين الكمبيوترات ممتاز وساقوم ان شاء الله في الغد بالتأكد

نعم تأكدت من كل الكمبيوترات في اعداد الاكسس نموذج تسجيل الدخول ليس له مصدر بيانات فقط مربع التحرير والسرد الذي به اسماء المستخدمين مصدره استعلام من جدول المستخدمين If Me.ppass = DLookup("[PassWord]", "tblUsers", "[UserName] = '" & Me.pname & " ' ") Then MsgBox "دخول صحيح - علماً بأن جميع إجراءاتك مسجلة بإسمك فلتزم بالاستخدام الصحيح" MyUserName = Me.pname Set db = CurrentDb() sql = "select * from tblUserClose where UserName=" & "'" & MyUserName & "'" Set rs = db.OpenRecordset(sql, dbOpenDynaset) rs.Edit rs("UserOn") = "ON" rs.Update rs.Close طبعا استخدمت جدول حالة جديد اسمه tblUserClose الرجاء المساعدة بالحل لهذه المشكلة مع جزيل الشكر للمتابعة استاذ رمهان

المشكلة للاسف ظهرت اليوم بشكل متكرر ولاحظت التالي اذا اغلقت البرنامج عند احد المستخدمين وفتحت عند احد اخر (قبل دقيقة لا استطيع الدخول من كمبيوتره بسبب الرسالة) فان البرنامج يعمل جربت عند اكثر من واحد و كانت هذه المحلاحظة مكررة كما ذكرت سابقا لا يعمل وعند اغلاقه عند واحد اخر يعمل عند زميله === قمت بجعل جدول المستخدمين كجدول محلي وعممت النسخة عمل البرنامج لدى الجميع بعد مرور ساعة تقريبا ظهرت هذه الرسالة قمت باغلاق جميع النسخ وعمل ضغط واصلاح للقاعدة وهي حاليا حتى كتابة هذه الكلمات تعمل --- الرجاء افادتي هل هناك حل شافي لهذه المشكلة

لليوم الثاني والرسالة لم تظهر رغم اني لم اعمل اي تعديل على الملف

هل تتفضل اخي وتدلني عما ابحث هناك