نجوم المشاركات

ايضا ممكن استخدامها لفلترة السجلات باستخدام اي عدد من الحقول وبالتالي بكود مختصر ومربع نص واحد ممكن الفلترة باسم الموظف اور رقمه او مسمى الوظيفة نعم ممكن عملها بطرق اخرى مثلا في الاستعلام او بالكود ولكن هذه الطريقة تختصر علينا صف المعايير رووووعة Dim strWhere As String strWhere = "[Field1]&[Field1]&[Field3] like '*" & [Text1] & "*'" Me.balancesub.Form.Filter = strWhere Me.balancesub.Form.FilterOn = True هنا الفلترة من خلال ثلاث حقول بواسطة مربع نص واحد ☝️ واعتذر من الاستاذ قدور بالخروج عن الموضوع تحياتي

الآن فقط انتبهت انك: تبحث في حقلين عن طريق حقلين ، شيء جميل جعفر

الله عليك @أبو إبراهيم الغامدي استاذ الاساتذة وهذا تطبيقي لطريقتك Dim strWhere As String strWhere = "[Field1]&[Field2]like '*" & [tx1] & [tx3] & "*'" Me.tx2 = DLookup("[Your_Field]", "tblr", strWhere) روعة وترجع نتيجة صحيح عند وضع المعيار للحقلين اما عند ترك احد المعيارين فارغ فتعود باول تكرار اتفق معك

نعم هذا صحيح! لكن هناك إشكالات يرتكبها أحيانا مدخل البيانات النصية تتطلب إدخال النجمة عند البحث لتجاوز هذه الإشكالات! إليك بعض منها.. الأسماء المركبة: سعد الدين، .. ، وأمثالها كالأسماء المعبدة؛ والإشكال فيها أن مدخل البيانات قد يترك فراغا بين مقطع الاسم وقد لا يفعل.. وهنا يكون دور النجمة هو رفع هذا الإشكال! الأسماء المنسوبة: فلان بن فلان، فلانة بنت فلان..، - هذا مشهور في السعودية -، ولرفع الإشكال نستخدم النجمة! المتوقع أن يقوم بإدخال قيم الحقلين معاً

اعتقد استاذ ابو ابراهيم ان استخدام النجمة مع دالة DLookup امر قد يؤدي الى اعادة نتيجة عير صحيحة والسبب ان هذه الدالة ترجع قيمة حقل واحد استنادا إلى المعلومات المحددة في المعايير فاذا وجدت القيمة في اكثر من حقل ترجع القيمة الاولى لذا لابد من استخدام المعيار فريد وهذا لا يتحقق عند استخدام النجمة

وعليكم السلام ورحمه الله وبركاته اتفضل اخى @Bshar ان شاء الله يكون ما تريد بالتوفيق New Microsoft Access Database_1.accdb

وعليكم السلام ورحمه الله وبركاته تسلم اخى واياكم والشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير وتاكد بان الحل من روائع من انت معجب به اخى ومعلمى العزيز جعفر جزاه الله عنا كل خير اكثر من رائع معلمى العزيز وفعليا فان البرنامج اشبه بالاكسيل لان كل اسم بحقل وعامل تجميع له فحقل اخر وهذا قد سهل المهمه على فالحل واستخدمت طريقتك الرائعه فجلب كل الحقول بـ dlookup ومن ثم ادراج السجل الجديد بدا من الاسم الثانى كما يريد جزاك الله عنا كل خير 🌹

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

وعليكم السلام 🙂 اما انا ، فاعمل كل شرط على سطر مستقل ، مثل ما قال اخوي خالد ، وخصوصا لما تكثر الشروط ، وتختلف بين النص والرقم والتاريخ 🙂 . جعفر

مشاركة مع الاساتذه ممكن تقسيم الشرطين كل شرط في سطر Dim strWhere As String strWhere = "[Field1]='" & [tx1] & "'" strWhere = strWhere & " and [Field2]='" & [tx2] & "'" Me.tx2 = DLookup("[Your_Field]", "tbl", strWhere) واعتقد ان هذه الطريقة اكثر سهولة تحياتي

وعليكم السلام ورحمة الله أهلا أ. @عبد الله قدور بالنسبة لي مع دوال التجميع أفضل دمج أعمدة البحث مع استعمال المعامل ()Like بالطريقة التالية Dim Result Result=DlookUP("[Your Field]","[Your Table],"[Field One]&[Field Two] Like '*" & [Text One]&[Text Two] & "*'") Or Result=DlookUP("[Your Field]","[Your Table],"[Field One]&[Field Two] Like '*" & [Your Text] & "*'") :: تستطيع التعويض عن جزء البيانات بعلامة النجمة أو علامة الاستفهام

وعليكم السلام ورحمة الله ........... اخي عبدالله انظر الى هذه الاداة ....................

ربما مثال.xlsm

استبدل اسم الملف اللي في الاخراج باسم حقل العميل اللي في التقرير مع مراعاة كتابة صيغة الملف كما هي .pdf بالتوفيق واذا ارفقت مثال يكون افضل

اخي biskra ، النموذج المطلوب منبثق مشروط (Popup=Yes, Modal=Yes) ، وهذه هي المشكلة 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته.. راجع هذه المشاركة قد تجد فيها ما يفيدك..

الف شكر لك استاذي الفاضل محي الدين هذا حل ممتاز و رائع و يفي في هذا الامر و يعمل بكفائة و اتمنى منك لو كان هناك ايضا حل اخر باستخدام المعادلات لتزيد المعرفة و لك مني جزيل الشكر و العرفان

حياك الله اخوي 🙂

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

وعليكم السلام ورحمة الله وبركاته 🙂 اولا خليني اوضح ، سجلات قاعدة البيانات مو مثل الاكسل ، تقدر تغير مكان الخليه بتحريكها من مكانها ، في قاعدة البيانات نستخدم الفرز كطريقة لتحديد مكان السجل (سطر السجل) بين السجلات. بالنسبة لطلبك ، 1. فالاسهل عمل حقل تسلسل ولنسميه Seq ، ونعمل تحديث لبيانات هذا الحقل ، ليتناسب مع الاسم الذي تم اختياره (طبعا هذا حسب اعتقادي بأنك لا تريد تكرار السجل) ، 2. ما فهمت قصدك بالبدء من السجل الثاني ، طيب وشو يكون في السجل الاول ؟ جعفر

الله يسلمك من النار ي اخي موسى ورأيك على راسي واستنير به بقرب لك المثال شوي يعني مثلا عندي احد الموظفين دورة او إجازة ولا اريد ينطبع اسمه مع الموظفين الذين اريد اطبع أسمائهم فما هو الحل كيف اتحاشا عدم طباعة اسمه بالتقرير

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

VBA? Sub test() Dim a: Dim i& a = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If a(i, 1) <> 0 And a(i, 1) <> "" Then If Not .exists(a(i, 1)) Then: .Add a(i, 1), "" End If Next Cells(4, 4) = Application.Small(Application.Transpose(.keys), 2) Cells(4, 5) = .Count End With End Sub Book2.xlsm

السلام عليكم ورحمه الله وبركاته اتفضل اخى @husseinharby الترقيم للنموذج والرصيد السابق فالتقرير بالتوفيق yasser_10_1.rar

تفضل التعديل control 2032_30.rar

حاجة من باب المرح لتسهيل استخدامك ضيفتلك وظائف تتحكم في اليوز فورم اضافة اسم مش موجود في القائمة ترتيب الاسماء حذف اسم من القائمة لو تتكرر ادخاله من ليست الاسماء دبل كليك لاي اسم هاتحذفه من القائمة جرب ويارب تكون فيها التسير لعملك Fawzy 10.xlsm

وعليكم السلام 🙂 1. ما هو المطلوب ؟ 2. طيب ليه يا كابتن عندك حسابين ، حساب الكابتن وحساب osn ؟ جعفر

وعليكم السلام 🙂 بعد فتح النموذج ، جرب الامر DoCmd.MoveSize Right, Down, Width, Height . الابعاد هذه بوحدة التويب twips ، اذا وحدة القياس في اعدادات الوندوز بالمتر ، ومثلا تريد العرض يكون 12سم ، فيجب ان تضرب العرض في 567 : 567*12=6804 ، وهكذا مع بقية الاطوال ، اما اذا اعدادات الوندوز بالبوصة ، فيجب ان تضرب الرقم في 1440 جعفر