أبو ليمونه

السلام عليكم لدي النص التالي: _________________________ > الباب الاول - طااااا - بااااا - تااااا ___________________________ في حال الضغط على كلمة الباب الاول تختفي القائمة التي تحته (طااا و. باااا و تااااا) واذا قمت بالضغط مرة اخرى على الباب الاول تظهر القائمة من جديد

اخي سليم شكرا لك مرة اخرى على الملف بعد العمل على الملف اتضح آنني بحاجة عامود اخر لاصل الى النتيجة المرجوة ما ابحث عنه هو كالتالي لدي ثلاثة اعمدة بالشكل هذا 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

الف الف شكر اخي جعفر الكود يعمل بجدارة اخي Shivan Rekany الغرض هو وضع صلاحيات للمستخدمين تحياتي لكم

لم استطيع آمل منكم المساعدة هل ما اقوم به صحيح؟ او لا يمكن تنفيذه 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

السلام عليكم 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 ايضا احاول ان اخفي نموذج

ممتاز اخي جعفر الكود يعمل بجداره الله يعطيك العافية راح اكون طماع واتعلم منك اكثر لو اردنا تطبيق الكود على نموذج فردي وفرعي ويقوم بتعطيلها 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

اخي جعفر شكرا لتعقيبك الكود هو لنموذج فردي ولكن لازال الكود لا يعمل يضع لي هاي لايت اصفر على هذا السطر If ctrl.Tag = "DocHidTg" And ctrl.Value = 0 Then

السلام عليكم أحاول كتابة كود في النموذج الخاص بي ولكنني لم انجح اتمنى منكم المساعدة 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

شكرا لك اخي سليم فعلا هذا ما ابحث عنه

السلام عليكم لو افترضنا انا لدي القيم التالي في صفحة رقم 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 تحياتي لكم

السلام عليكم اخواني لي اربع ايام احاول انشاء تقرير حسب الوصف ادناه ولم استطع اتمنى ان اجد منكم المساعدة شكل قاعدة البيانات: قاعدة البيانات تحتوي على ثلاث جدوال : جدول العملاء - جدول طلبات العملاء - جدول فواتير العملاء فلكل عميل أكثر من طلب ولكل طلب أكثر من فاتورة انا اريد استخراج تقرير بالشكل ادناه من جدول العملاء وجدول طلبات العملاء لبيان المستندات الناقصة بملفات العملاء على النحو التالي: رقم العميل---- اسم العـــميل ---- نوع المستند --------------------حالة المستند 1---------------مؤسسة خالد --------------------------------------بطاقة العميل----------------تم استلامها من العميل --------------------------------------صورة المصنع----------------تم تسلميها للإرشيف --------------------------------------عقود الطلب رقم (122)-----في طور الإستلام --------------------------------------عقود الطلب رقم (125)-----تم استلامها من العميل 2---------------مؤسسة محمد --------------------------------------بطاقة العميل----------------تم تسلميها للإرشيف --------------------------------------رخصة المصنع----------------تم استلامها من العميل --------------------------------------عقود الطلب رقم (245)-----تم تسليمها للإدارة --------------------------------------عقود الطلب رقم (299)-----في طور الإستلام 3---------------مؤسسة عمر --------------------------------------بطاقة العميل----------------تم تسلميها للإرشيف --------------------------------------صورة المصنع----------------تم تسلميها للإرشيف --------------------------------------رخصة المصنع----------------تم استلامها من العميل --------------------------------------عقود الطلب رقم (555)-----لم تطلب بعد ختاما، لا مانع من انشاء جداول مربوطة او استعلامات للحصول على التقرير المطلوب بالشكل الصحيح بانتظار مساعدتكم احبتي Database.zip

ياسلام عليك يا rudwan والله انك بطل ربي يوفقك بالدنيا والاخرة ومشكوووور على الكود ... لاني بحثت بمواقع كثيرة وما حصلت جوابها تحياتي لك

هلا فيك rudwan شكرا على مشكارتك وضعت الكود ولكن لم يعطني الا نتيجتين فقط ! هل انا وضعته بالشكل الصحيح؟ UUU4.zip

هلا فيك rudwan الاربع نتائج هي : الطلبين التابعة للعميل رقم 1 وهما كما ذكرت 1+2 والإجرائين التابعة للطلب رقم 2 للعميل رقم 1 النتيجة التي ابحث عنها مرفقة بملف الورود المرفق بالمشاركة الثانية ... تحياتي لك

اخواني لخبراء الاكسس ... هل ما طلبته يمكن تنفيذه عبر الاستعلام او لايمكن؟