Jump to content
أوفيسنا

أبو ليمونه

03 Special Member
  • Content Count

    150
  • Joined

  • Last visited

  • Days Won

    1

أبو ليمونه last won the day on December 11 2013

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

Community Reputation

13 Good

About أبو ليمونه

  • Rank
    Name

Profile Information

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

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. اخي سليم شكرا لك مرة اخرى على الملف بعد العمل على الملف اتضح آنني بحاجة عامود اخر لاصل الى النتيجة المرجوة ما ابحث عنه هو كالتالي لدي ثلاثة اعمدة بالشكل هذا 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
  2. الف الف شكر اخي جعفر الكود يعمل بجدارة اخي Shivan Rekany الغرض هو وضع صلاحيات للمستخدمين تحياتي لكم
  3. لم استطيع آمل منكم المساعدة هل ما اقوم به صحيح؟ او لا يمكن تنفيذه 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
  4. السلام عليكم vba حاب اتعلم اكثر في الاكسس وخصوصا بكتابة اكواد وواجهتني مشكلة اتمنى ان اجد منكم المساعدة قمت بتصميم نموذج بسيط فيه حقلين رقم العميل واسم العميل وقمت بتصميم نموذج اخر فيه اسم المستخدم والرقم السري والصلاحيات الخاصة بالمستخدم وجعلته كنموذج فرعي في النموذج الاول ولكن لا يوجد اي ارتباط بين النموذجين frmLogin وقمت بتصميم نموذج فيه حقل واحد عبارة عن شاشة دخول فيها رقم سري اسمه وهنا واجهتني المشكلة يتم الاتي userpassfinder في الحقل frmLogin كيف اجعل المستخدم اذا قام بادخال الرقم السري الخاص به في نموذج الى اسم المستخدم المطابق للرقم السري
  5. ممتاز اخي جعفر الكود يعمل بجداره الله يعطيك العافية راح اكون طماع واتعلم منك اكثر لو اردنا تطبيق الكود على نموذج فردي وفرعي ويقوم بتعطيلها 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.fsub
  6. اخي جعفر شكرا لتعقيبك الكود هو لنموذج فردي ولكن لازال الكود لا يعمل يضع لي هاي لايت اصفر على هذا السطر If ctrl.Tag = "DocHidTg" And ctrl.Value = 0 Then
  7. السلام عليكم أحاول كتابة كود في النموذج الخاص بي ولكنني لم انجح اتمنى منكم المساعدة 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
  8. السلام عليكم لو افترضنا انا لدي القيم التالي في صفحة رقم 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
  9. السلام عليكم اخواني لي اربع ايام احاول انشاء تقرير حسب الوصف ادناه ولم استطع اتمنى ان اجد منكم المساعدة شكل قاعدة البيانات: قاعدة البيانات تحتوي على ثلاث جدوال : جدول العملاء - جدول طلبات العملاء - جدول فواتير العملاء فلكل عميل أكثر من طلب ولكل طلب أكثر من فاتورة انا اريد استخراج تقرير بالشكل ادناه من جدول العملاء وجدول طلبات العملاء لبيان المستندات الناقصة بملفات العملاء على النحو التالي: رقم العميل---- اسم العـــميل ---- نوع المستند --------------------حالة المستند 1---------------مؤسسة خالد --------------------------------------بطاقة العميل----
  10. ياسلام عليك يا rudwan والله انك بطل ربي يوفقك بالدنيا والاخرة ومشكوووور على الكود ... لاني بحثت بمواقع كثيرة وما حصلت جوابها تحياتي لك
  11. هلا فيك rudwan شكرا على مشكارتك وضعت الكود ولكن لم يعطني الا نتيجتين فقط ! هل انا وضعته بالشكل الصحيح؟ UUU4.zip
  12. هلا فيك rudwan الاربع نتائج هي : الطلبين التابعة للعميل رقم 1 وهما كما ذكرت 1+2 والإجرائين التابعة للطلب رقم 2 للعميل رقم 1 النتيجة التي ابحث عنها مرفقة بملف الورود المرفق بالمشاركة الثانية ... تحياتي لك
  13. اخواني لخبراء الاكسس ... هل ما طلبته يمكن تنفيذه عبر الاستعلام او لايمكن؟
  14. اخواني تجدون ان نتائج العميل aa هي نتيجتين في الملف المرفق وسؤالي كيف اجعل نتائج الإستعلام 4 نتائج للعميل aa كما هي مبينة في ملف الورود المرفق وذلك بجلب جميع ملاحظات الطلب وملاحظات الإجراء المشكلة تكمن في حين وجود ملاحظات على طلب ليس تحته اي اجراءات فلا يخرج في الاستعلام ملاحظات هذا الطلب UUU3.zip
×
×
  • Create New...

Important Information