اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبو ليمونه

03 عضو مميز
  • Posts

    151
  • تاريخ الانضمام

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

  • Days Won

    1

أبو ليمونه last won the day on ديسمبر 11 2013

أبو ليمونه had the most liked content!

السمعه بالموقع

13 Good

عن العضو أبو ليمونه

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم لدي النص التالي: _________________________ > الباب الاول - طااااا - بااااا - تااااا ___________________________ في حال الضغط على كلمة الباب الاول تختفي القائمة التي تحته (طااا و. باااا و تااااا) واذا قمت بالضغط مرة اخرى على الباب الاول تظهر القائمة من جديد
  2. اخي سليم شكرا لك مرة اخرى على الملف بعد العمل على الملف اتضح آنني بحاجة عامود اخر لاصل الى النتيجة المرجوة ما ابحث عنه هو كالتالي لدي ثلاثة اعمدة بالشكل هذا C | B | A 3 | 4 | 333 0 | 1 | 444 2 | 3 | 949 1 | 2 | 232 وقمت عن طريق الملف الذي زودتني به بتكرار الرقم في العامود أي وفقا لما هو موجود في العامود بي اعلاه B | A 1 | 333 1 | 333 1 | 333 1 | 333 1 | 444 1 | 949 1 | 949 1 | 949 1 | 232 1 | 232 والان اريد استخراج النتيجة التالي بناء على المعلومات الموجودة في العامود سي اعلاه B | A OK | 333 OK | 333 OK | 333 NotOK | 333 NotOK | 444 OK | 949 OK | 949 NotOK | 949 OK | 232 NotOK | 232 ولكنني لم استطع اتمنى ان اجد منكم المساعدة ودمتم takrar by_choise.zip
  3. الف الف شكر اخي جعفر الكود يعمل بجدارة اخي Shivan Rekany الغرض هو وضع صلاحيات للمستخدمين تحياتي لكم
  4. لم استطيع آمل منكم المساعدة هل ما اقوم به صحيح؟ او لا يمكن تنفيذه Private Sub userpassfinder_AfterUpdate() Dim SRV As Integer Dim rs As DAO.Recordset If (txtGoTo & vbNullString) = vbNullString Then Exit Sub SRV = Nz(DLookup("[UserPass]", "tblUsers", "[UserPass] = " & [userpassfinder])) Set rs = Me!fsubUser.Form.RecordsetClone rs.FindFirst "[UserPass] = " & SRV If rs.NoMatch Then MsgBox "wrong Pass", _ vbOKOnly + vbInformation Else Me.Bookmark = rs.Bookmark End If rs.Close userpassfinder = Null End Sub
  5. السلام عليكم vba حاب اتعلم اكثر في الاكسس وخصوصا بكتابة اكواد وواجهتني مشكلة اتمنى ان اجد منكم المساعدة قمت بتصميم نموذج بسيط فيه حقلين رقم العميل واسم العميل وقمت بتصميم نموذج اخر فيه اسم المستخدم والرقم السري والصلاحيات الخاصة بالمستخدم وجعلته كنموذج فرعي في النموذج الاول ولكن لا يوجد اي ارتباط بين النموذجين frmLogin وقمت بتصميم نموذج فيه حقل واحد عبارة عن شاشة دخول فيها رقم سري اسمه وهنا واجهتني المشكلة يتم الاتي userpassfinder في الحقل frmLogin كيف اجعل المستخدم اذا قام بادخال الرقم السري الخاص به في نموذج الى اسم المستخدم المطابق للرقم السري fsubUser يقوم الكود بالبحث عن الرقم السري في جدول المستخدمين ثم يقوم بتغيير السجل في النموذج الفرعي حاولت كتابة الكود لكن لم استطع Private Sub userpassfinder_AfterUpdate() If userpassfinder = "SELECT * FROM tblUsers WHERE UserPass = " & userpassfinder Then Forms!frm!fsubUser.RecordSource = "SELECT * FROM tblUsers WHERE UserPass = " & userpassfinder Else MsgBox "ÇáÑÞã ÇáÓÑí ÛíÑ ÕÍíÍ" userpassfinder.SetFocus End If End Sub Database3.zip طبعا تبويب الصلاحيات سوف يكون مخفي عن المستخدم اذا تم الدخول بنجاح frmLogin ايضا احاول ان اخفي نموذج
  6. ممتاز اخي جعفر الكود يعمل بجداره الله يعطيك العافية راح اكون طماع واتعلم منك اكثر لو اردنا تطبيق الكود على نموذج فردي وفرعي ويقوم بتعطيلها Admin2Tg بحيث يبحث عن جميع التاقات في الفرعي والأساسي التي تحمل اسم مثال: انا كتبت الكود الحالي وهو يعمل لكن احاول ان اقوم بتطويره بحيث ينظر الى جميع النماذج الفرعية التي تحمل نفس اسم التاق Private Sub AdminContral() Dim ctrl As Control If (Forms!frm.fsubUser!Admin2.Value) = 1 Then Forms!frm.fsub1!KNo.Enabled = True Forms!frm.fsub5!KNo.Enabled = True Forms!frm.fsub5!KELNm.Enabled = True Forms!frm.fsub5!KTyE.Enabled = True Forms!frm.fsub5!KEANo.Enabled = True Forms!frm.fsub5!KEADt.Enabled = True For Each ctrl In Me.Controls If ctrl.Tag = "Admin2Tg" Then ctrl.Enabled = True End If Next End Sub
  7. اخي جعفر شكرا لتعقيبك الكود هو لنموذج فردي ولكن لازال الكود لا يعمل يضع لي هاي لايت اصفر على هذا السطر If ctrl.Tag = "DocHidTg" And ctrl.Value = 0 Then
  8. السلام عليكم أحاول كتابة كود في النموذج الخاص بي ولكنني لم انجح اتمنى منكم المساعدة Tagفي ال DocHidTg ما اريد كتابته هو أن ينظر الكود الى جميع الحقول في النموذج والتي تحمل اسم ويتاكد اذا قيمتها صفر فيقوم بإخفائها علماً أن جميع الحقول من نوع رقم Private Sub DocHid() Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.Tag = "DocHidTg" And ctrl.Value = "0" Then ctrl.Visible = False End If Next End Sub
  9. السلام عليكم لو افترضنا انا لدي القيم التالي في صفحة رقم 1 في الأكسل B | A 4 | 333 1 | 444 3 | 949 2 | 232 2 | 333 B بناء على القيمة الموجودة في العامود A هل هناك دالة استطيع ان اضعها بالصفحة رقم 2 تكرر القيمة الموجودة في العامود :لتصبح النتيجة في الصفحة رقم 2 كالتالي B | A 1 | 333 1 | 333 1 | 333 1 | 333 1 | 444 1 | 949 1 | 949 1 | 949 1 | 232 1 | 232 1 | 333 1 | 333 تحياتي لكم
  10. السلام عليكم اخواني لي اربع ايام احاول انشاء تقرير حسب الوصف ادناه ولم استطع اتمنى ان اجد منكم المساعدة شكل قاعدة البيانات: قاعدة البيانات تحتوي على ثلاث جدوال : جدول العملاء - جدول طلبات العملاء - جدول فواتير العملاء فلكل عميل أكثر من طلب ولكل طلب أكثر من فاتورة انا اريد استخراج تقرير بالشكل ادناه من جدول العملاء وجدول طلبات العملاء لبيان المستندات الناقصة بملفات العملاء على النحو التالي: رقم العميل---- اسم العـــميل ---- نوع المستند --------------------حالة المستند 1---------------مؤسسة خالد --------------------------------------بطاقة العميل----------------تم استلامها من العميل --------------------------------------صورة المصنع----------------تم تسلميها للإرشيف --------------------------------------عقود الطلب رقم (122)-----في طور الإستلام --------------------------------------عقود الطلب رقم (125)-----تم استلامها من العميل 2---------------مؤسسة محمد --------------------------------------بطاقة العميل----------------تم تسلميها للإرشيف --------------------------------------رخصة المصنع----------------تم استلامها من العميل --------------------------------------عقود الطلب رقم (245)-----تم تسليمها للإدارة --------------------------------------عقود الطلب رقم (299)-----في طور الإستلام 3---------------مؤسسة عمر --------------------------------------بطاقة العميل----------------تم تسلميها للإرشيف --------------------------------------صورة المصنع----------------تم تسلميها للإرشيف --------------------------------------رخصة المصنع----------------تم استلامها من العميل --------------------------------------عقود الطلب رقم (555)-----لم تطلب بعد ختاما، لا مانع من انشاء جداول مربوطة او استعلامات للحصول على التقرير المطلوب بالشكل الصحيح بانتظار مساعدتكم احبتي Database.zip
  11. ياسلام عليك يا rudwan والله انك بطل ربي يوفقك بالدنيا والاخرة ومشكوووور على الكود ... لاني بحثت بمواقع كثيرة وما حصلت جوابها تحياتي لك
  12. هلا فيك rudwan شكرا على مشكارتك وضعت الكود ولكن لم يعطني الا نتيجتين فقط ! هل انا وضعته بالشكل الصحيح؟ UUU4.zip
  13. هلا فيك rudwan الاربع نتائج هي : الطلبين التابعة للعميل رقم 1 وهما كما ذكرت 1+2 والإجرائين التابعة للطلب رقم 2 للعميل رقم 1 النتيجة التي ابحث عنها مرفقة بملف الورود المرفق بالمشاركة الثانية ... تحياتي لك
  14. اخواني لخبراء الاكسس ... هل ما طلبته يمكن تنفيذه عبر الاستعلام او لايمكن؟
×
×
  • اضف...

Important Information