اذهب الي المحتوي
أوفيسنا

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

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

كل منشورات العضو عبدالله المجرب

  1. وين المشكلة في وضعه في مديول المهم النتيجة انه حسب المطلوب
  2. السلام عليكم احببت ان اقدم لكم شرح لي لكيفية عمل شاشة دخول مع صلاحيات مستخدمين شاشة دخول بصلاحيات - للشرح.mdb
  3. شاهد المرفق في هذه المشاركة تم ارفاق الملف للفائدة inputbox with password mask.xls
  4. الاخ الفاضل ابو الحسن الاخ الفاضل احمد بدره شكرا لمروركم الكريم
  5. ان لله وانا اليه راجعون البقاء لله ... اللهم اغفر لها وارحمها وأدخلها جنات الفردوس الأعلى , وألهم اهلها الصبر والسلوان
  6. حياك الله اخي الفاضل اعذروني على الغياب الطويل وجدت اليوم فرصة لرفع الشرح فاحببت مشاركتكم به ان شاء ساحاول التواجد وان لم يتسنى لي ذلك فانتم في القلب
  7. اليك العديد من المشاركات المماثلة وبها الحل وهناك الكثير لو تبحث
  8. فيديو شرح للفرز المتخصص حسب تسلسل المنصب وليس الابجدية https://www.youtube.com/watch?v=2yeQw4COGeI ان شاء الله تستفيدون منه
  9. كحل اخر سيظهر لك مربع ادخال ضع فيه رقم الهاتف بدون 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
  10. هل تقصد هكذا بمجرد اضافة سجل وتنتقل لرقم الهاتف سينكتب 09 في مربع النص Aziz.accdb
  11. بعد اذن الاستاذ يوسف استبدل هذين السطرين Forms!NamesRecord![أمر56].Enabled = flase Forms!NamesRecord![أمر82].Enabled = flase بهذين Forms!NamesRecord![أمر56].Visible = flase Forms!NamesRecord![أمر82].Visible = flase وبذلك يختفوا في حال الضباط ويظهروا في حال الأفراد
  12. السلام عليكم لاثراء الموضوع اذهب الى هذه المشاركة بها ملف به نفس ما تطلب
  13. السلام عليكم استاذ جعفر لدي هذه المشكلة نفسها للنجربة ارفقت لك ملف نزلته من المنتدى اذا تفتحه على 32 بت يعمل دون مشاكل اذا تفتحه على 64 بت لا يعمل وعند استخدامي ل #if VBA7 then #Else #End If تبقى اسطر الكود حمراء ولا يعمل قمت بتعديل الدوال بإضافة PtrSafe الا ان رسال الاخطاء تظهر مرفق لك ملف جرب عليه استخراج_الملفات_الفرعية.accdb
  14. ما شاء الله موضوع متكامل وشرح وافي جزاك الله خيرا
  15. كنت استعملها سابقا وعدلتها الى هذه بناء على مقترح باستعمال .update اعتقد ان المشكلة تخص عدم تحرير الجدول او القاعدة من الذاكرة فما الحل لهذه المشكلة الاتصال بين الكمبيوترات ممتاز وساقوم ان شاء الله في الغد بالتأكد
  16. نعم تأكدت من كل الكمبيوترات في اعداد الاكسس نموذج تسجيل الدخول ليس له مصدر بيانات فقط مربع التحرير والسرد الذي به اسماء المستخدمين مصدره استعلام من جدول المستخدمين 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 الرجاء المساعدة بالحل لهذه المشكلة مع جزيل الشكر للمتابعة استاذ رمهان
  17. المشكلة للاسف ظهرت اليوم بشكل متكرر ولاحظت التالي اذا اغلقت البرنامج عند احد المستخدمين وفتحت عند احد اخر (قبل دقيقة لا استطيع الدخول من كمبيوتره بسبب الرسالة) فان البرنامج يعمل جربت عند اكثر من واحد و كانت هذه المحلاحظة مكررة كما ذكرت سابقا لا يعمل وعند اغلاقه عند واحد اخر يعمل عند زميله === قمت بجعل جدول المستخدمين كجدول محلي وعممت النسخة عمل البرنامج لدى الجميع بعد مرور ساعة تقريبا ظهرت هذه الرسالة قمت باغلاق جميع النسخ وعمل ضغط واصلاح للقاعدة وهي حاليا حتى كتابة هذه الكلمات تعمل --- الرجاء افادتي هل هناك حل شافي لهذه المشكلة
  18. لليوم الثاني والرسالة لم تظهر رغم اني لم اعمل اي تعديل على الملف
×
×
  • اضف...

Important Information