يونس محمد الخطابي قام بنشر نوفمبر 27 قام بنشر نوفمبر 27 السلام عليكم ورحمة الله وبركاته بالنظر لكثرة الاخطاء التي يرتكبها مدخلوا البيانات ومنها ترك فراغ قبل الاسم او في وسط الاسم او كتابة اسم مؤيد مثلا مره يكتب مؤيد واخرى مويد وكذلك اسم أية ومرة اخرى يكتب ايه وادخال الاسم واسم الاب فقط - وتسهيلا للبحث عن الاسم فقد عملنا بالبحث بالرمز وهو اسهل واسرع - المرجو من الاساتذه الكرام صياغة كود لاستخراج الرمز تلقائيا ويتجاوز تلك العقبات المبينه في القاعده المرفقه .. وجزاكم الله خير بحث.rar
ابوخليل قام بنشر الخميس at 16:48 قام بنشر الخميس at 16:48 عليكم السلام ورحمة الله وبركاته ماذا تصنع في الاسم الذي على هذه الهيئة : عبد الباسط عبد الصمد عبدالمقصود الاسم الاول والثاني فراغ بعد كلمة عبد ، وبين الاسم الثاني والثالث فراغين ، والاسم الثالث لا يوجد فراغ بعد كلمة عبد 1- مسألة اكثر من فراغ بين الكلمات امرها هين وبضغطة زر يمكن حذف الفراغ الزائد على مستوى قاعدة البيانات 2- ايضا الفراغ بعد كلمة عبد لو اردت حذفه يمكن ذلك بضغطة زر ايضا ، ولو اردت العكس ايضا يمكن اي تبحث عن كلمة عبد واي كلمة لا يوجد بعدها مسافة يضيف المسافة 3- اتصور انه اسهل واخف واسرع حينما اكتب الاسم واسم الاب وابحث عنهما من ان اكتب تجميعة حروف من الاسماء من الامثلة : الاسم محمد علي شمس الدين يمكنني البحث بـــــــ علي شمس .. اي بالاسم الثاني وجزء من الاسم الثالث
يونس محمد الخطابي قام بنشر الجمعة at 07:18 الكاتب قام بنشر الجمعة at 07:18 (معدل) الاستاذ الفاضل ابو خليل المحترم والله مجرد تعليقك على الموضوع اسرني كثيرا - بغض النظر عن النتيجه التي ساحصل عليها وجهة نظر جنابكم الكريم محترمه جدا واود ان اضيف (1) موضوع التخلص من الفرغات في بداية الاسم او في وسطه انا وضحت في الفقره 2 من المقترح بانه مشكله واعاني منه . وجنابكم الكريم علق بان ذلك امر هين . والحمد لله (2) اي فراغ يجده البرنامج بعد اسم عبد يحذفه البرنامج (تلقائيا) مهم جدا ويسهل علي الامر كثيرا (3) طبقت مثال الاسم عبد الباسط عبد الصمد عبد المقصود بعدة صيغ (مع العنوان الذي هو - حقل الزامي - على خلاف الاسم الذي يستطيع مدخل البيانات ادخال الاسم واسم الاب وتمشي الامور ) فكانت نتيجة البحث (بالرمز) ممتازه وتظهراسماء قليله جدا يمكن اختيار الاسم المقصود . هذا من جهه ومن جهة اخر ان تبحث باربعة احرف واذا ظهرت اسماء كثيره تضيف حرف خامس للبحث اسهل من البحث بكتابة 10 الى 14 حرف وربما لاتاتي النتائج كما نتمنى مثال / عبد الباسط عبد الصمد عبد المقصود / المثنى (عبعبمث) تبعا للاسم الاول والثاني والعنوان او (عبمث) تبعا للاسم الثاني والعنوان ولاحظ كم هو الفرق اذا كتبنا(عبد الباسط عبد الصمد ) ومدخل البيانات لم يدخل الاسم الثالث كم من الاسماء ستظهر امامي (3) كذلك البحث عن (علي شمس) انا ذكرت بان كثير من الاسماء المدخله خاليه من الاسم الثالث لذلك اهملته واضفت اعنوان بدل الاسم الثالث للبحث لانه كما ذكرت حقل الزامي (4) البحث بالرمز نعمل به منذ سنوات والعاملين على البرنامج مرتاحين له كثيرا . لكن يتم ادخاله يدويا وحبيت ان يتولد الرمز تلقائيا وياريت احصل على نموذجين الاول يولد رمز لللاسم الثلاثي والثاني للاسم الاول والثاني والعنوان اكرر شكري وتقديري لك استاذي الفاضل تم تعديل الجمعة at 08:31 بواسطه يونس محمد الخطابي النسيان
ابوخليل قام بنشر الجمعة at 10:36 قام بنشر الجمعة at 10:36 ما دمت مصر على رغبتك .. فالرأي المنضبط الذي لا غبار عليه ان تكتفي بالاسم الاول والعنوان ( 4احرف ) بكذا تتجاوز مسألة الفراغات ومسألة الاسماء المركبة .. والنقص في كامل الاسم مع اني ارى مشكلة في ال التعريف في العنوان بحيث يجب عمل تجاوز لها عند توليد الرمز اتمنى ان يروق لك هذا الاقتراح
يونس محمد الخطابي قام بنشر الجمعة at 13:13 الكاتب قام بنشر الجمعة at 13:13 سيدى الفاضل ابو خليل شكرا جزيلا على مقترحاتك لتعديل البرنامج اولا - ارفق لك نموذج من القاعده التي نعمل عليها منذ سنوات . النموذج مصمم من قبل المبرمجه القديره زهره العبدالله من كادر الفريق العربي للبرمجه يوميا اتذكرها وادعو لها وقد انقطعت عنا اخبارها . المهم ان سبب عدم تنزيل هذه القاعده سابقا لانها لحد 10 الاف اسم كان نموذج البحث يعمل بشكل جيد وعندما ازدادت الاسماء اصبح ثقيل جدا والان وصلت 50 الف اسم ثم كل فتره كانت تتوقف عن البحث ولاتعمل الى بعد الدخول الى تصميم النموذج ثم التعليمات البرمجيه ووضع سبيس قبل السطرالثاني وترجع تعمل بشكل جيد وبعد شهرين او ثلاث تتكر المشكله ونرجع نحذف السبيس وتحل المشكله وهذه عمليه مزعجه . لذلك كنت ارغب بالحصول على نموذج بحث مشابه لكن اسرع وخالي من المشاكل ثانيا - جنابكم الكريم اظفت لي نكهه اخرى جديده لمقترح البحث عند ما تطرقت لموضوع (ال التعريف في العنوان )واصبحت المقترحات كمايلي: 1- البحث بالحرفين الاول والثاني من الاسم والاول والثاني من اسم الاب والتكمله من العنوان ان احتجناه الحرف الاول منه او الاول والثاني وربما الثالث بحيث عمود البحث يظهر فيه الرمز كما موضح مثلا / جاسم محمد / عنوانه الربيع يظهر الرمز هكذا (جامحربيع) ونحن مخيرين بكتابة (جامح /او/جامحربيع /او/ محربيع)وسبب التغيير من حرف واحد الى حرفين لكثرة الاسماء المتشابهه 2- يعالج الحروف المتشابه (مويد / مؤيد) (أيه / ايه / اية ) وكذلك باقي الحروف المتشابهه 3- خالي من المسافات الزائده في بداية الاسم او في وسطه 4- عبد / يظهر بدون فراغ بعده بحيث يظهر اسم (عبدالباسط) بهذه الصيغه 5- العنوان يظهر في الرمز بدون (ال التعريف) واذا جنابك الكريم يرى ان هناك تعديلات اخرى يكون افضل اكيد فكرة البحث بهذه الصيغه جديده لكن عند التطبيق اتوقع بان الكثير سيتبعها وجزاكم الله خير نموذج بحث زهره.rar
ابوخليل قام بنشر السبت at 11:05 قام بنشر السبت at 11:05 تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي) الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك ملحوظة : حتى تعمل الدالة على الوجه الأكمل يجب تنظيف حقل الاسم من المسافات الزائدة .. ويفضل ايضا حذف المسافة بعد كلمة عبد ، والله يعينك باقي نور الدين واشباهه Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("TAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!Asm, " ")(0), 1, 2) & Mid(Split(rs!Asm, " ")(1), 1, 2) & Mid(Split(rs!Asm, " ")(2), 1, 2) rs.Update rs.MoveNext Loop نموذج بحث 2.rar 1
يونس محمد الخطابي قام بنشر الأحد at 09:46 الكاتب قام بنشر الأحد at 09:46 (معدل) السلام عليكم ورحمة الله وبركاته سلمت يمينك استاذي الفاضل ابو خليل على هذا التعبير الرائع لدي استيضاح وارجو ان يتسع صدرك لي * - المعوقات التي تواجهني عند البحث ذكرتها في المشاركه الاولى وتتلخص( عدم ادخال الاسم الثالث من قبل مدخلي البيانات سابقا وفكرنا بموضوع اضافة العنوان للبحث / المسافات بين الكلمات/ تشابه الحروف مؤيد و مويد/ نموذج البحث اصبح ثقيل بعد ازدياد الاسماء - وجنابك اضاف ال التعريف والفراغ بين عبدالله وعبد الله ) *- بعد سهر يومين وجدت تعبير يحل اثنين من تلك المعوقات (يتجاوز الحروف والمسافات عدا الفراغ في بداية الاسم) وضعته في الاستعلام ( QAAA ) يبقى مساعده من جنابكم الكريم بتعديل على التعبير الذي صممته انت اذا كان ذلك ممكنا بحيث [ البرنامج يولد حقل محسوب في الاستعلام ( QAAA )اسمه الرمز ( RMZ ) يستمد معلوماته من الحقل المسمى ( AsmGded) وهو الذي سنعتمد عليه في البحث ] وبذلك تحل معظم تلك المشاكل وتصبح لدينا مرونه اكثر عند البحث . لان التعبيرالحالي يتوقف اذا لم ندخل الاسم الثالث والاسم الثالث هو لب مشكلتنا كما ذكرنا * ولكي لا ابقى ابحث في الانترنيت ومن دون جدوى هل يوجد نموذج بحث مشابه لذلك النموذج لكنه اسرع وخالي من المشاكل وجزاكم الله خير نموذج بحث 3.rar تم تعديل الأحد at 09:47 بواسطه يونس محمد الخطابي سهوا
ابوخليل قام بنشر الأحد at 11:16 قام بنشر الأحد at 11:16 تفضل توليد من الاسم سواء كان ثلاثي او ثنائي الكود يأخذ الاسم من حقل الاستعلام ويضيفه في حقل الجدول Dim rs, rst As Recordset Dim na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF na3 = Split(AsmGded, " ")(2) rst.Edit If IsNull(na3) = False Then rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) Else rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & Mid(Split(rs!AsmGded, " ")(2), 1, 2) End If rs.Update rs.MoveNext Loop
يونس محمد الخطابي قام بنشر الأحد at 16:16 الكاتب قام بنشر الأحد at 16:16 السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابو خليل المحترم 1- البحث لايعمل 2- اضفت معيار البحث الى الاستعلام ( QAAA) حقل (Rmz ) واخذ البحث يعمل 3- بعد اضافة اسمين او ثلاث والبحث بعد كل مره . يتوقف البرنامج عن العمل 4- اذا تم معالجة ذلك الايتمكن البرنامج من ان يولد رمز بالنسبه للذين اسمائهم ثلاثيه مثلا اذا وجد البرنامج اسم (سعد محمود ) يستخرج الرمز (سعمح) واذا وجد الاسم (سعد محمود خضير ) يستخرج الرمز (سعمحخض) ام نحن مقيد ين بذلك واذا يتذكر جنابكم الكريم نحن ذكرنا سابقا باننا اتجهنا للعنوان لعدم وجود الاسم الثلاثي واردنا ان تكون لنا الحريه في البحث بان نكتب(سعمح) واذا ظهرت اسماء كثيره نبحث ب (سعمحخ) واذا ايضا كانت النتائج كثيره نذهب الى اخر حرف بقي لدينا (سعمحخض) اتعتبك معي كثيرا - ولكن اعتقد ان الهدف اصبح قاب قوسين او ادنى وجزاك الله خير
ابوخليل قام بنشر الأحد at 16:37 قام بنشر الأحد at 16:37 34 دقائق مضت, يونس محمد الخطابي said: الايتمكن البرنامج من ان يولد رمز بالنسبه للذين اسمائهم ثلاثيه مثلا اذا وجد البرنامج اسم (سعد محمود ) يستخرج الرمز (سعمح) واذا وجد الاسم (سعد محمود خضير ) يستخرج الرمز (سعمحخض) هذا هو الذي يعمله الكود ، ما المشكلة ؟ على فكرة : وحتى تكون على بينة .. قمت بازالة المعايير من الاستعلام ( الكود يجب ان يعمل على كامل السجلات).. بالنسبة للبحث اعمل استعلاما آخر مصدره الجدول مباشرة الكود واضح .. يأخذ الاسم الجديد من الاستعلام AAAَQ.. ويعالجه كرمز ويضيفه في الجدول TAAA
يونس محمد الخطابي قام بنشر الأحد at 18:45 الكاتب قام بنشر الأحد at 18:45 السلام عليكم ورحمة الله وبركاته 1- عملت استعلام البحث الذي وجهتني عليه وعمل البرنامج بشكل ممتاز 2- اكيد هناك سوء فهم من قبلي وارجو ان تجري التعديلات المناسبه على القاعده المرفقه حتى تريح بالك وبالي ا- البرنامج لايولد اكثر من 4 حروف وجنابك تقول لاتوجد مشكله ونحن من البدايه نشتكي ونريد البحث بحرف خامس واذا اظطررنا الى سادس وهو الاسم الثالث وهذا غير متوفر بالبرنامج . وان توفر لانريد ان يلزمنا بكتابة 6 احرف لكي يعمل البحث وانما نريد يباشر بالفلتره منذ كتابة اول حرف وهو ما متعارف عليه في نماذج البحث ب - بعد كتابة اول 10 اسماء لاحظ كم مره تكرر الرمز اححس فكيف الحال مع الاف الاسماء .. مع فائق الاحترام والتقدير نموذج بحث5.rar
Barna قام بنشر الأحد at 19:35 قام بنشر الأحد at 19:35 (معدل) 50 دقائق مضت, يونس محمد الخطابي said: السلام عليكم ورحمة الله وبركاته 1- عملت استعلام البحث الذي وجهتني عليه وعمل البرنامج بشكل ممتاز 2- اكيد هناك سوء فهم من قبلي وارجو ان تجري التعديلات المناسبه على القاعده المرفقه حتى تريح بالك وبالي ا- البرنامج لايولد اكثر من 4 حروف وجنابك تقول لاتوجد مشكله ونحن من البدايه نشتكي ونريد البحث بحرف خامس واذا اظطررنا الى سادس وهو الاسم الثالث وهذا غير متوفر بالبرنامج . وان توفر لانريد ان يلزمنا بكتابة 6 احرف لكي يعمل البحث وانما نريد يباشر بالفلتره منذ كتابة اول حرف وهو ما متعارف عليه في نماذج البحث ب - بعد كتابة اول 10 اسماء لاحظ كم مره تكرر الرمز اححس فكيف الحال مع الاف الاسماء .. مع فائق الاحترام والتقدير مشاركة من الحبيب @ابوخليل انظر اخي @يونس محمد الخطابي المرفق التالي يقوم بمهام : استخلاص رمز ( الحرفين الاول من الاسم الاول - الاسم الثاني - الاسم الثالث - بالاضافة للحرفين الاول للعنوان ) وذلك عن طريق الاستعلام GeneratedCodeQuery SELECT TAAA.Idd3, TAAA.Asm, TAAA.Anoan, Left(Trim(Mid([asm],1,InStr(Trim([asm]),' ')-1)),2) & IIf(InStr(Trim([asm]),' ')>0,Left(Trim(Mid([asm],InStr(Trim([asm]),' ')+1,InStr(InStr(Trim([asm]),' ')+1,Trim([asm]),' ')-InStr(Trim([asm]),' '))),2),'') & IIf(InStr(InStr(Trim([asm]),' ')+1,Trim([asm]),' ')>0,Left(Trim(Mid([asm],InStr(InStr(Trim([asm]),' ')+1,Trim([asm]),' ')+1)),2),'') & Left(Trim([Anoan]),2) AS Rmz FROM TAAA WHERE (((Left(Trim(Mid([asm],1,InStr(Trim([asm]),' ')-1)),2) & IIf(InStr(Trim([asm]),' ')>0,Left(Trim(Mid([asm],InStr(Trim([asm]),' ')+1,InStr(InStr(Trim([asm]),' ')+1,Trim([asm]),' ')-InStr(Trim([asm]),' '))),2),'') & IIf(InStr(InStr(Trim([asm]),' ')+1,Trim([asm]),' ')>0,Left(Trim(Mid([asm],InStr(InStr(Trim([asm]),' ')+1,Trim([asm]),' ')+1)),2),'') & Left(Trim([Anoan]),2)) Like "*" & [forms]![NAAA1]![DDD] & "*")); جرب عملية البحث الان بعد اضافة عناوين ..... واعلمنا بالنتيجة Barna_5.accdb تم تعديل الأحد at 19:37 بواسطه Barna 1
ابوخليل قام بنشر الأحد at 20:16 قام بنشر الأحد at 20:16 توليد رمز الاسم من الثنائي وحتى السداسي Dim rs As Recordset Dim na1, na2, na3, na4 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(2), 1, 2) & Mid(Split(rs!AsmGded, " ")(3), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(4), 1, 2) & Mid(Split(rs!AsmGded, " ")(5), 1, 2) rs.Update rs.MoveNext Loop End Sub نموذج بحث6.rar 1
يونس محمد الخطابي قام بنشر الأحد at 21:31 الكاتب قام بنشر الأحد at 21:31 السلام عليكم ورحمة الله وبركاته الاستاذان الفاضلان ابو خليل المحترم و Barna المحترم الله يبارك بكما ويوفقكما ويرحم والديكما . استاذي الفاضل ابو خليل والله اليوم اتعبتك معي كثيرا وكل كلمات الشكر والثناء خجوله امام ماقمت به من جهد وصبرت علي كثيرا / يقول الرسول محمد صلى الله عليه وسلم / من قال جزاك الله خير فقد ابلغ بالثناء /ولا املك الا القول جزاكم الله عنا خير الاجزاء واريد ان اقول للاستاذ Barna القاعده التي ارفقتها وجدت فيها الحل لكل المعوقات التي واجهتني وخاصة موضوع اضافة العنوان الى الرمز - لكن * سابقا حقل (Asm ) فيه مشاكل وهي تشابه الحروف ووجود مسافات فارغه في الاسم وعالجناه في الحقل المحسوب ( AsmGded ) وفي القاعده التي ارفقها جنابكم الكريم قمت انا بتغير الحقل الذي يستخرج الرمز منه من (Asm) الى ( AsmGded ) ظهرت حاله غريبه في البرنامج لم نالفها من قبل وهي اختلاف عدد السجلات في الاستعلام وفي نموذج البحث . يبدو اني ارتكبت خطا ما في التعديل ولم انتبه اليه . وسارفق القاعده لتصحيحها . وشكرا جزيلا لك Barna_6.rar
يونس محمد الخطابي قام بنشر الإثنين at 07:46 الكاتب قام بنشر الإثنين at 07:46 السلام عليكم ورحمة الله وبركاته اللخص معوقات نموذج البحث لكي يطلع عليها الاساتذه المبرجين ويرون مايمكن حله منها 1- مشكلة ادخال (الاسم واسم الاب فقط )في الحقل ( Asm)/ فكرنا باضافة العنوان لانه حقل الالزامي ودمجه مع الاسم واسم الاب اي نريد توليد حقل محسوب اسمه مثلا ( AsmG) يتضمن الاسم واسم الاب والعنوان ومنه نستخرج الرمز مثلا الاسم (سعد علي / قطر) يظهر (سعد علي قطر) ورمزه (سععلقط) والاسم اذا ثلاثي لايظهر منه في الحقل المحسوب الا الاسم واسم الاب والعنوان (سعد علي محمود / قطر) يظهر في الحقل المحسوب (سعد علي قطر) ورمزه (سععلقط) وبذلك اصبح لدينا حقل ثابت يتضمن الاسم واسم الاب والعنوان حتى وان كان الاسم رباعي فلا يظهر منه الا الاسم واسم الاب والعنوان - وهذه المشكله وصل الاستاذ Barna الى حل ممتاز جدا بالنسبة لها واضاف العنوان للاسم . فقط تعديل بسيط على التعبير بان يعتمد على الاسم واسم الاب والعنوان ويهمل اسم الجد ومابعده 2- ترك مسافات داخل الاسم من قبل مدخل البيانات سهوا / تم حلها في الحقل المحسوب ( Asm) 3- تشابه الحروف / أية و ايه / مؤيد و مويد ..الخ / وتم حلها ايضا في ا لحقل المحسوب ( TbdelHrof) 4- اذا قام مدخل البيانات بترك مسافه بعد عبد او عدم تركها /عبد الباسط و عبدالباسط/ وهذه اثارها الاستاذ ابو خليل (لم تحل هذه المشكله بعد ) ووعدنا الاستاذ ابو خليل بحلها 5- مشكلة ( ال التعريف ) في بداية العنوان وهذه ايضا اثارها الاستاذ ابو خليل ولم نجد لها الحل الشامل بعد . هناك حلول جزئيه لاتفي بالغرض 6- البحث عن نموذج بحث بديل لهذا النموذج مشابه له من حيث التصميم لانه كما ذكرت اصبح ثقيل بعد ان تجاوزت الاسماء عشرة الاف اسم وفي طريقها للوصول الى 50 الف 7 - ارفق طيا قاعده تتضمن المراحل التي وصلنا اليها وقد اسهم في اعدادها الاستاذين القديرين ابو خليل و Barna جزاهم الله عنا خير الجزاء بحث 10.rar
يونس محمد الخطابي قام بنشر الإثنين at 12:39 الكاتب قام بنشر الإثنين at 12:39 اسف القاعده السابقه ارفقتها بالخطا وهذه القاعده المقصوده بحث 11.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.