essam rabea

ودى طريقة أخرى test.zip

هو انا مش فاهم حاجة بس شوف كده المرفق test.zip

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

موضوع جديد بقى

بس برضه زيادة فى التعلم هعملك الكود على Officna3 وانت حوله لـ Officna4 Private Function Rstrsql(Num As TextBox) As String If Me.Etar2 = 1 And Me.Etar1 = 1 Then Select Case Num.Value Case 1: Rstrsql = "((Marj3.TitleBook) & (Marj3Author.AuthorISOName)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" Case 2: Rstrsql = "((Marj3.TitleBook)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" Case 3: Rstrsql = "((Marj3Author.AuthorISOName)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" Case 4: Rstrsql = "((Marj3.PublishingInf)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" End Select End If If Me.Etar2 = 1 And Me.Etar1 = 2 Then Select Case Num.Value Case 1: Rstrsql = "((Marj3.TitleBook) & (Marj3Author.AuthorISOName)like '*" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" Case 2: Rstrsql = "((Marj3.TitleBook)like '*" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" Case 3: Rstrsql = "((Marj3Author.AuthorISOName)like '*" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" Case 4: Rstrsql = "((Marj3.PublishingInf)like '*" & Me("Text" & Mid(Num.Name, 4, 1)) & "*')" End Select End If If Me.Etar2 = 2 And Me.Etar1 = 1 Then Select Case Num.Value Case 1: Rstrsql = ForSearch("(ForSearch(Marj3.TitleBook)& ForSearch(Marj3Author.AuthorISOName)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") Case 2: Rstrsql = ForSearch("(ForSearch(Marj3.TitleBook)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") Case 3: Rstrsql = ForSearch("(ForSearch(Marj3Author.AuthorISOName)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") Case 4: Rstrsql = ForSearch("(ForSearch(Marj3.PublishingInf)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") End Select End If If Me.Etar2 = 2 And Me.Etar1 = 2 Then Select Case Num.Value Case 1: Rstrsql = ForSearch("(ForSearch(Marj3.TitleBook)& ForSearch(Marj3Author.AuthorISOName)like '*" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") Case 2: Rstrsql = ForSearch("(ForSearch(Marj3.TitleBook)like '*" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") Case 3: Rstrsql = ForSearch("(ForSearch(Marj3Author.AuthorISOName)like '*" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") Case 4: Rstrsql = ForSearch("(ForSearch(Marj3.PublishingInf)like '*" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "*')") End Select End If 'Else If Me.Etar2 = 1 And Me.Etar1 = 3 Then Select Case Num.Value Case 1: Rstrsql = "((Marj3.TitleBook) & (Marj3Author.AuthorISOName)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "')" Case 2: Rstrsql = "((Marj3.TitleBook)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "')" Case 3: Rstrsql = "((Marj3Author.AuthorISOName)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "')" Case 4: Rstrsql = "((Marj3.PublishingInf)like '" & Me("Text" & Mid(Num.Name, 4, 1)) & "')" End Select End If 'Else If Me.Etar2 = 2 And Me.Etar1 = 3 Then Select Case Num.Value Case 1: Rstrsql = ForSearch("(ForSearch(Marj3.TitleBook)& ForSearch(Marj3Author.AuthorISOName)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "')") Case 2: Rstrsql = ForSearch("(ForSearch(Marj3.TitleBook)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "')") Case 3: Rstrsql = ForSearch("(ForSearch(Marj3Author.AuthorISOName)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "')") Case 4: Rstrsql = ForSearch("(ForSearch(Marj3.PublishingInf)like '" & ForSearch(Me("Text" & Mid(Num.Name, 4, 1))) & "')") End Select End If End Function وبلغنى بالنتيجة

لأ دانتا تمسك الشيشا بقى..أيوه كده شغل الفهامة.. عموما أنا مجهز الكود بس كنت مستنى أشوفك هتعمل ايه ولو إنى كنت عاوزك تكتبه بالمرّه. لأ دانتا تمسك الشيشا بقى..أيوه كده شغل الفهامة.. عموما أنا مجهز الكود بس كنت مستنى أشوفك هتعمل ايه ولو إنى كنت عاوزك تكتبه بالمرّه.

بارك الله فيك وأعزك

هو تقريبا يا أ/ محمد فكرة البحث مش واصلالك شوقت الصور ونتائج البحث .. فهمت حاجة؟

الموضوع كده خد أكتر من ما يستحق ..

يا ابو صلاح .. دا بيت شعر لأبى أخزم الطائى ورد فى كتاب مجمع الأمثال للنيسابورى .. أظن كده فهمت .. نرجع للموضوع .. أكيد إنت عارف الفرق بين التشكيل والحروف الصحيحة التشكيل اللى هو ده ( َ ً ُ ٌ ِ ٍ ّ )ماشى وأنا حتى لو جيت أبحث عمرى ما هفكر أكتب بالتشكيل وبعدين إحنا عاملين الوحدة النمطية اللى بتتجاوز التشكيل عشان لو فيه كلمة فى الجدول متشكلة تظهر فى نتيجة البحث رغم انك كاتبها فى حقل البحث بدون تشكيل . اختار يبدأ بـ واكتب فى حقل البحث ( ابى) من غير همزة ولا ى منقوطة وشوف النتيجة وأكتبها بالهمزة مرة تانيه هتديك نفس النتيجة .. طب روح وحط كسرة تحت ال ب فى الجدول خليها (أبِي) وإبحث عنها تانى .. هتديك نفس النتيجة .. هو ده المقصود انك تكتب الكلمة فى البحث بطريقتك وتظهر فى النتيجة بأى طريقة مكتوبة بها .. يا رب أكون وصلتلك المعلومة . وبعدين أصلا إنت اللى غيرت فى النموذج .. أنا منت كاتب ( مطابقة الهمزة والتاء المربوطة ) و ( عدم المطابقة ) وأنت غيرتهم ب ( بالتشكيل ) و ( بدون تشكيل ) وكأن لا يوجد فرق بينهما. بص شيل طبيعة نص البحث من النموذج خالص ..

تمام أ/رمهان ولكنه يريد النتيجة تسجل فى حقل بالجدول

شوف بقى هو فيه أى بيان عندك فى الجدول مكتوب بالتشكيل؟ اذا كان لأ طب ليه بتبحث بالتشكيل؟ عاوز كوبى وبست يبقى للنموذج كله مش حاجة عليه او خلى إعدادات النوذج الجديد كده: انا هنام بقى .. سلام Officna 4.zip

تقبلته alziraeia2.zip

انا تفضلى .. ينفع كده .. يعنى مش واخد بالك من الشنب وانظارة .. طب مش لاعب

غير تاريخ الجهاز وجرب

تفضل .. ولكن لا تعدل البيان فكلما عدلته سيتغير التاريخ لتاريخ اليوم 1.zip

ولو أنى كنت أفضل أن تحاول .. لكن تفضل alziraeia.zip

تفضل إجمالى السعر لكل صفحة والإجمالى العام آخر صفحة بالتقرير. تحياتى alziraeia.zip

هل المطلوب إجمالى السعر فقط لكل صفحة أم المساحات أيضا؟

تبدأ على بركة الله إذا بحثت على كلمة (ابى), (أبى), (ابي), (أبي) ستعطيك نفس النتيجة (10 سجلات) وذلك مع الأخذ فى الإعتبار طبيعة البحث (بدون تشكيل) وكذلك خيارات البحث (يتضمن) وهى الأسهل أعتقد إن مفيش حد سيدخل كلمة فى حقل البحث بالتشكيل .. ومع ذلك شكل اى كلمة فى اسم المؤلف مثلا (أبِي) حط تحت الباء كسرة فى الجدول طبعا وابحث ببدون تشكيل و يتضمن هتتطلع معاك الكلمة سواء بتشكيل أم لا .. لو حددت طبيعة البحث ( بالتشكيل) مش هتطلع إلا لو كتبتها بالظبط والتشكيل .. يبقى أنهون أسهل؟؟ مفيش الكلام ده .. أبقى إشتغل على آخر نسخة مرفقه. شرحت سابقاً أن فرز حقل Long Text اللى كان إسمه زمان Memo لا يفرّز وإن كان هناك من يقول أنه يتم عليه الترتيب بطريقة أنا لا أعلمها ولكن يرتب أول 250 حرف فقط ويتجاهل الباقى .. فيبقى لزمته أيه خليه Short Text وأمرك لله أو شيله من الترتيب.عموما أنا يفرزه على النموذج بصفة عامة وده مبيبقاش مضبوط 100 100. هذا وبالله التوفيق تحياتى Officna 4.zip

هل كنت تعمل على نسخة اوفيس قديمة وتم تحديثها .. إن كان نعم فإستبدل عبارات DoMenuItem بالتالى : DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdPasteAppend والله أعلم

لا فض فوك يا شيخ

مش فاهم قوى منغير مثال بس حاول اذا كان هناك جملة SQL حط بعدها Me.Refresh وجرب تحياتى

أ/ishak19 إهدا علينا الله يكرمك حضرتك سألت السؤال وفى نفس اللحظة تقريبا رد عليك أستاذنا ابا جودى المنتدى ده مجموعة من الإخوة المحترفون والمبرمجون والهواه تربطهم علاقة حب المعرفة وتعليمها .. وعلى حسب وقتهم وإستطاعتهم يجيبون عن إستفساراتنا .. فكن صبوراً أخى الكريم .. ابا جودى أعطاك فكرة طبقها أنت كما تريد على برنامجك الذى لم تتفضل وترفقه كى يتم التعديل عليه. وعموما أرفق لك مثالا آخر أرجو أن أكون قد فهمت ما تريد. الرقم_الأكبر.zip

أستاذ / جعفر نعتذر منكم عن ما سبق ونعدكم ألآ يتكرر. أ / محمد صلاح .. الأستاذ جعفر عنده حق فيما قاله .. وفرد موضوع جديد لكل سؤال لن يكلف شيئاً .. فلنبدأ من هنا ونبأ بموضوع .. الفرز على نموذج البحث المتعدد .. وليساعندنا أ / جعفر بتغيير إسم الموضوع من (إستكمال ملاحظات علي نموذح البحث المتعدد) الى (سؤال عن الفرز فى نموذج البحث المتعدد). وعندما يتم إسيفاء كل ما يتعلق به فلتكتب (تمت الإجابة) وتبدأ سؤالك التالى بموضوع جديد. مفيش أى مشكلة. صافى يا لبن .. مستنى الرد منكمااااااااا.