kanory

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

طيب وقف صائد الاخطاء في الفانك السابق لتتعرف على اسطر الخطأ في الكود ... واعلمني بسطر الخطأ ماهو ؟؟

طيب جرب المرفق ::::::::::::::::::: افتح الفورم frm_kanory طبعا لم ارحل ولا سنه .... فلذلك عند الضغط على رز السنوات الماضية تجد النموذج فارغ ..... الان اختر مثلا عام 2008 ثم اضغط على ترحيل سوف يتم ترحيل هذا العام ولا يمكن ان ترى هذه السنه الا بعد الضغط على السنوات الماضية وهكذا لجميع الاعوام ... جرب واعلمنا بالنتيجة <<<<<<< ‏‏ورشة عمل1.rar

طيب اذا لم يسبقني لها احد الاخوة ... انت تعلم الايام الاخيرة من رمضان ...

جرب هذا الحل وعلمنا بالنتيجة تفضل من هنا

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

استخدم جرب المرفق في الموضوع اعلاه

طيب استاذي الفاضل في المديول وتحت الفانك Public Function federsacan تجد هذا السطر الخاص باعدادات الصورة المسحوبة اعمل ايقاف هذا السطر ...............

اخي @Ahmed_J ماهي الرسالة التى تصدر عند سحبك للفيدر ؟؟؟ والبرنامج المدرج من الاخ @Eng.Qassim يعمل .

نعم كلامك صحيح .... لاحظت ذلك لكن حل مؤقت ... جاري البحث عن طريقة اخرى ... اذا تمت اضيفها في الموضوع ان شاء الله

هل تم حل المشكلة لديك ؟؟

طيب الكود التالي يقوم بالاتي :::::::: - البحث عن العبارة او العبارات في الجدول سواءا كانت تلك العبارة في بداية النص او وسطها او نهايتها ومقارنتها بالجدول الاخر لجلب المرادف لها . - حذف تلك العبارة من الجدول نهائيا ...... جرب المرفق واعلمني بالنتيجة ................ علما اني استخدم الانشطة التي انت حددتها ..... Replace&add.mdb

الشكر لله اخي @ابو طارق سعيد حياك الله

اخي الكريم من خصائص الملف وليس خصائص الاكسس اضغط بالزر الايمن للماوس واختر خصائص تظهر لك النافذة

من خصائص الملف اشر على الموجود في الصورة

ليس هناك ازعاج اخي الكريم ولكن القصد حتى نصل لما تريد لاقصر الطرق .... بارك الله فيك وهذه طريقة اخرى جربها واعلمنا بالنتيجة Function FnSearch(Str As String) As String Dim Arr() As String Dim i As Long Arr = Split(Str) ' """" & txtSearch & """" For i = 0 To UBound(Arr) - 1 If Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & "'") Exit For ElseIf Nz(DLookup("LikeA", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & "'"), 0) <> 0 Then FnSearch = DLookup("LikeB", "KindX", "LikeA='" & Trim(Arr(i)) & " " & Trim(Arr(i + 1)) & "'") Exit For End If Next i End Function Replace&add.mdb

ضع في زر التحديث هذا .... Me.OrderBy = "[sifa] ASC" Me.OrderByOn = True DoCmd.Requery

ممكن تضيف لنا عينات لانشطة متعددة الكلمات

تم بناء الحل وفق معطياتك في مثالك ولم تذكر ان هناك انشطة اكثر من كلمة ...

طيب اخي الكريم انظر الصور :::::::::::::::: واحدة قبل التحديث في الجدول والثانية بعد تحديث الجدول ومع وجود اسم صالح احمد بدون وظيفة ....... Replace&add.mdb

طيب الان جاتني فكرة ثانية وهي عند طريق مديول للبحث عن العبارة .....

طيب انظر هذا ..................

مشاركة مع استاذي المهندس @Eng.Qassim هل تريدها بهذه الصورة في استعلام ........

فقط كررها مع اضافة شرط ثان وهو الجنس .... sifa: IIf([sin]>=20 And [jins]="ذكر";"قائد";IIf([sin]>=18 And [jins]="ذكر";"جوال";IIf([sin]>=15 And [jins]="ذكر";"كشاف متقدم";IIf([sin]>=11 And [jins]="ذكر";"كشاف";IIf([sin]>=6 And [jins]="ذكر";"شبل";IIf([sin]>=20 And [jins]="انثى";"قائده";IIf([sin]>=18 And [jins]="انثى";"جواله";IIf([sin]>=15 And [jins]="انثى";"مرشدة متقدمة";IIf([sin]>=11 And [jins]="انثى";"مرشدة";IIf([sin]>=6 And [jins]="انثى";"زهرة")))))))))) انظر المرفق لتفهم مقصودي ........ sma - Copie.accdb

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