تعديل نموذج بحث

[يونس محمد الخطابي]

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

بحث.rar

[ابوخليل]

عليكم السلام ورحمة الله وبركاته

ماذا تصنع في الاسم الذي على هذه الهيئة :

عبد الباسط  عبد الصمد   عبدالمقصود 

الاسم الاول والثاني فراغ بعد كلمة عبد ، وبين الاسم الثاني والثالث فراغين ، والاسم الثالث لا يوجد فراغ بعد كلمة عبد

1- مسألة اكثر من فراغ بين الكلمات امرها هين وبضغطة زر يمكن حذف الفراغ الزائد على مستوى قاعدة البيانات

2- ايضا الفراغ بعد كلمة عبد لو اردت حذفه يمكن ذلك بضغطة زر ايضا ، ولو اردت العكس ايضا يمكن اي تبحث عن كلمة عبد واي كلمة لا يوجد بعدها مسافة يضيف المسافة

3- اتصور انه اسهل واخف واسرع حينما اكتب الاسم واسم الاب وابحث عنهما من ان اكتب تجميعة حروف من الاسماء

من الامثلة :  الاسم  محمد علي شمس الدين

يمكنني البحث بـــــــ  علي شمس  .. اي بالاسم الثاني وجزء من الاسم الثالث

[يونس محمد الخطابي]

الاستاذ الفاضل ابو خليل المحترم

والله مجرد تعليقك على الموضوع اسرني كثيرا - بغض النظر عن النتيجه التي ساحصل عليها
وجهة نظر جنابكم الكريم محترمه جدا واود ان اضيف 
(1) موضوع التخلص من الفرغات في بداية الاسم او في وسطه انا وضحت في الفقره 2  من المقترح بانه مشكله واعاني منه . وجنابكم الكريم علق بان ذلك امر هين . والحمد لله
(2) اي فراغ يجده البرنامج بعد اسم عبد  يحذفه البرنامج (تلقائيا) مهم جدا ويسهل علي الامر كثيرا
(3) طبقت مثال الاسم عبد الباسط عبد الصمد عبد المقصود  بعدة صيغ (مع العنوان الذي هو - حقل الزامي - على خلاف الاسم الذي يستطيع مدخل البيانات ادخال الاسم واسم الاب وتمشي الامور ) فكانت نتيجة البحث (بالرمز) ممتازه وتظهراسماء قليله جدا يمكن اختيار الاسم المقصود . هذا من جهه ومن جهة اخر ان تبحث باربعة احرف واذا ظهرت اسماء كثيره تضيف حرف خامس للبحث اسهل من البحث بكتابة 10 الى 14 حرف وربما لاتاتي النتائج كما نتمنى 
مثال / عبد الباسط عبد الصمد عبد المقصود / المثنى   (عبعبمث) تبعا للاسم الاول والثاني والعنوان  او (عبمث) تبعا للاسم الثاني والعنوان ولاحظ كم هو الفرق اذا كتبنا(عبد الباسط عبد الصمد ) ومدخل البيانات لم يدخل الاسم الثالث كم من الاسماء ستظهر امامي
(3) كذلك البحث عن (علي شمس) انا ذكرت بان كثير من الاسماء المدخله خاليه من الاسم الثالث لذلك اهملته واضفت اعنوان بدل الاسم الثالث للبحث لانه كما ذكرت حقل الزامي

(4) البحث بالرمز نعمل به منذ سنوات والعاملين على البرنامج مرتاحين له كثيرا . لكن  يتم ادخاله يدويا وحبيت ان يتولد الرمز تلقائيا وياريت احصل على نموذجين الاول يولد رمز لللاسم الثلاثي والثاني للاسم الاول والثاني والعنوان
اكرر شكري وتقديري لك استاذي الفاضل

تم تعديل نوفمبر 29 بواسطه يونس محمد الخطابي
النسيان

[ابوخليل]

ما دمت مصر على رغبتك .. فالرأي المنضبط الذي لا غبار عليه ان تكتفي بالاسم الاول والعنوان ( 4احرف )

بكذا تتجاوز مسألة الفراغات ومسألة الاسماء المركبة .. والنقص في كامل الاسم

مع اني ارى مشكلة في ال التعريف في العنوان بحيث يجب عمل تجاوز لها عند توليد الرمز

اتمنى ان يروق لك هذا الاقتراح

[يونس محمد الخطابي]

سيدى الفاضل ابو خليل 
شكرا جزيلا على مقترحاتك لتعديل البرنامج 
اولا - ارفق لك نموذج من القاعده التي نعمل عليها منذ سنوات . النموذج مصمم من قبل المبرمجه القديره زهره العبدالله من كادر الفريق العربي للبرمجه يوميا اتذكرها وادعو لها وقد انقطعت عنا اخبارها . المهم ان سبب عدم تنزيل هذه القاعده سابقا لانها لحد 10 الاف اسم كان نموذج البحث يعمل بشكل جيد وعندما ازدادت الاسماء اصبح ثقيل جدا والان وصلت 50 الف اسم ثم كل فتره كانت تتوقف عن البحث ولاتعمل الى بعد الدخول الى تصميم النموذج ثم التعليمات البرمجيه ووضع سبيس قبل السطرالثاني وترجع تعمل بشكل جيد وبعد شهرين او ثلاث تتكر المشكله ونرجع نحذف السبيس وتحل المشكله وهذه عمليه مزعجه . لذلك كنت ارغب بالحصول على نموذج بحث مشابه لكن اسرع وخالي من المشاكل
ثانيا - جنابكم الكريم اظفت لي نكهه اخرى جديده لمقترح البحث عند ما تطرقت لموضوع (ال التعريف في العنوان )واصبحت المقترحات كمايلي:
1- البحث بالحرفين الاول والثاني من الاسم والاول والثاني من اسم الاب والتكمله من العنوان ان احتجناه الحرف الاول منه او الاول والثاني وربما الثالث بحيث عمود البحث يظهر فيه الرمز كما موضح مثلا / جاسم محمد / عنوانه الربيع يظهر  الرمز هكذا (جامحربيع) ونحن مخيرين بكتابة (جامح /او/جامحربيع  /او/ محربيع)وسبب التغيير من حرف واحد الى حرفين لكثرة الاسماء المتشابهه                                                                                                                                                                                                                                                    2-  يعالج الحروف المتشابه (مويد / مؤيد) (أيه / ايه / اية ) وكذلك باقي الحروف المتشابهه
3- خالي من المسافات الزائده في بداية الاسم او في وسطه
4- عبد / يظهر بدون فراغ بعده بحيث يظهر اسم (عبدالباسط) بهذه الصيغه
5- العنوان يظهر في الرمز بدون (ال التعريف)

واذا جنابك الكريم يرى ان هناك تعديلات اخرى يكون افضل

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

نموذج بحث زهره.rar

[ابوخليل]

تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي)

الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك

ملحوظة :

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

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

[يونس محمد الخطابي]

السلام عليكم ورحمة الله وبركاته
سلمت يمينك استاذي الفاضل ابو خليل على هذا التعبير الرائع
لدي استيضاح وارجو ان يتسع صدرك لي
* - المعوقات التي تواجهني عند البحث ذكرتها في المشاركه الاولى وتتلخص( عدم ادخال الاسم الثالث من قبل مدخلي البيانات سابقا وفكرنا بموضوع اضافة العنوان للبحث / المسافات بين الكلمات/ تشابه الحروف مؤيد  و مويد/ نموذج البحث اصبح ثقيل بعد ازدياد الاسماء - وجنابك اضاف ال التعريف والفراغ بين عبدالله وعبد الله )
*- بعد سهر يومين وجدت تعبير يحل اثنين من تلك المعوقات  (يتجاوز الحروف والمسافات عدا الفراغ في بداية الاسم) وضعته في الاستعلام ( QAAA  )  يبقى مساعده من جنابكم الكريم بتعديل على التعبير الذي صممته انت اذا كان ذلك ممكنا بحيث [ البرنامج يولد حقل محسوب في الاستعلام ( QAAA  )اسمه الرمز ( RMZ )  يستمد معلوماته من الحقل المسمى ( AsmGded) وهو الذي سنعتمد عليه في البحث  ] وبذلك تحل معظم تلك المشاكل وتصبح لدينا مرونه اكثر عند البحث . لان التعبيرالحالي يتوقف اذا لم ندخل الاسم الثالث والاسم الثالث هو لب مشكلتنا كما ذكرنا
 * ولكي لا ابقى ابحث في الانترنيت ومن دون جدوى هل يوجد نموذج بحث مشابه لذلك النموذج لكنه اسرع وخالي من المشاكل 
وجزاكم الله خير

نموذج بحث 3.rar

تم تعديل ديسمبر 1 بواسطه يونس محمد الخطابي
سهوا

[ابوخليل]

تفضل

توليد من الاسم سواء كان ثلاثي او ثنائي

الكود يأخذ الاسم من حقل الاستعلام ويضيفه في حقل الجدول

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

 

 

 

[يونس محمد الخطابي]

السلام عليكم ورحمة الله وبركاته

استاذي الفاضل ابو خليل المحترم
1- البحث لايعمل
2- اضفت معيار البحث الى الاستعلام ( QAAA) حقل (Rmz )  واخذ البحث يعمل
3- بعد اضافة اسمين او ثلاث  والبحث بعد كل مره  . يتوقف البرنامج عن العمل
4- اذا تم معالجة ذلك الايتمكن البرنامج  من ان يولد رمز بالنسبه للذين اسمائهم ثلاثيه مثلا اذا وجد البرنامج اسم (سعد محمود ) يستخرج الرمز (سعمح) واذا وجد الاسم (سعد محمود خضير ) يستخرج الرمز (سعمحخض) ام نحن مقيد ين بذلك واذا يتذكر جنابكم الكريم نحن ذكرنا سابقا باننا اتجهنا للعنوان لعدم وجود الاسم الثلاثي واردنا ان تكون لنا الحريه في البحث بان نكتب(سعمح) واذا ظهرت اسماء كثيره نبحث ب (سعمحخ) واذا ايضا كانت النتائج كثيره نذهب الى اخر حرف بقي لدينا (سعمحخض)
اتعتبك معي كثيرا - ولكن اعتقد ان الهدف اصبح قاب قوسين او ادنى 
وجزاك الله خير

[ابوخليل]

34 دقائق مضت, يونس محمد الخطابي said:

الايتمكن البرنامج  من ان يولد رمز بالنسبه للذين اسمائهم ثلاثيه مثلا اذا وجد البرنامج اسم (سعد محمود ) يستخرج الرمز (سعمح) واذا وجد الاسم (سعد محمود خضير ) يستخرج الرمز (سعمحخض)

هذا هو الذي يعمله الكود ، ما المشكلة ؟

على فكرة : وحتى تكون على بينة .. قمت بازالة المعايير من الاستعلام ( الكود يجب ان يعمل على كامل السجلات).. بالنسبة للبحث اعمل استعلاما آخر مصدره الجدول مباشرة 

الكود واضح .. يأخذ الاسم الجديد من الاستعلام AAAَQ.. ويعالجه كرمز ويضيفه في الجدول TAAA

[يونس محمد الخطابي]

السلام عليكم ورحمة الله وبركاته
1- عملت استعلام البحث الذي وجهتني عليه وعمل البرنامج بشكل ممتاز 
2- اكيد هناك سوء فهم من قبلي وارجو ان تجري التعديلات المناسبه على القاعده المرفقه حتى تريح بالك وبالي 
ا- البرنامج لايولد اكثر من 4 حروف وجنابك تقول لاتوجد مشكله  ونحن من البدايه نشتكي ونريد البحث بحرف خامس واذا اظطررنا الى سادس وهو الاسم الثالث وهذا غير متوفر بالبرنامج . وان توفر لانريد ان يلزمنا بكتابة 6 احرف لكي يعمل البحث وانما نريد يباشر بالفلتره منذ كتابة اول حرف وهو ما متعارف عليه في نماذج البحث
ب - بعد كتابة اول 10 اسماء لاحظ كم مره تكرر الرمز اححس فكيف الحال مع الاف الاسماء
 .. مع فائق الاحترام والتقدير

نموذج بحث5.rar

[Barna]

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

تم تعديل ديسمبر 1 بواسطه Barna

[ابوخليل]

توليد رمز الاسم من الثنائي وحتى السداسي

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

[يونس محمد الخطابي]

السلام عليكم ورحمة الله وبركاته
الاستاذان الفاضلان ابو خليل المحترم و Barna المحترم
الله يبارك بكما ويوفقكما ويرحم والديكما .  استاذي الفاضل ابو خليل والله اليوم اتعبتك معي كثيرا وكل كلمات الشكر والثناء خجوله امام ماقمت به من جهد وصبرت علي كثيرا  / يقول الرسول محمد صلى الله عليه وسلم / من قال جزاك الله خير فقد ابلغ بالثناء /ولا املك الا القول  جزاكم الله عنا خير الاجزاء
واريد ان اقول للاستاذ Barna
 القاعده التي ارفقتها وجدت فيها الحل لكل المعوقات التي واجهتني وخاصة موضوع اضافة العنوان الى الرمز  - لكن 
* سابقا حقل (Asm ) فيه مشاكل وهي تشابه الحروف ووجود مسافات فارغه في الاسم وعالجناه في الحقل المحسوب ( AsmGded ) وفي القاعده التي ارفقها جنابكم الكريم قمت انا بتغير الحقل الذي يستخرج الرمز منه من (Asm) الى ( AsmGded ) ظهرت حاله غريبه في البرنامج لم نالفها من قبل وهي اختلاف عدد السجلات في الاستعلام  وفي نموذج البحث . يبدو اني ارتكبت خطا ما  في التعديل ولم انتبه اليه . وسارفق القاعده لتصحيحها . وشكرا جزيلا لك

‏‏Barna_6.rar

[يونس محمد الخطابي]

السلام عليكم ورحمة الله وبركاته
اللخص معوقات نموذج البحث لكي يطلع عليها الاساتذه المبرجين ويرون مايمكن حله منها
1- مشكلة ادخال (الاسم واسم الاب فقط )في الحقل ( Asm)/ فكرنا باضافة العنوان لانه حقل الالزامي ودمجه مع الاسم واسم الاب اي نريد توليد حقل محسوب اسمه مثلا ( AsmG) يتضمن الاسم واسم الاب والعنوان ومنه نستخرج الرمز مثلا الاسم (سعد علي / قطر) يظهر (سعد علي قطر) ورمزه (سععلقط) والاسم اذا ثلاثي لايظهر منه في الحقل المحسوب الا الاسم واسم الاب والعنوان (سعد علي محمود / قطر) يظهر في الحقل المحسوب (سعد علي قطر) ورمزه (سععلقط) وبذلك اصبح لدينا حقل ثابت يتضمن الاسم واسم الاب والعنوان حتى وان كان الاسم رباعي فلا يظهر منه الا الاسم واسم الاب والعنوان - وهذه المشكله وصل الاستاذ  Barna الى حل ممتاز جدا بالنسبة لها واضاف العنوان للاسم . فقط تعديل بسيط على التعبير بان يعتمد على الاسم واسم الاب والعنوان ويهمل اسم الجد ومابعده  
2- ترك مسافات داخل الاسم من قبل مدخل البيانات سهوا / تم حلها في الحقل المحسوب ( Asm)
3- تشابه الحروف / أية  و ايه / مؤيد  و مويد ..الخ / وتم حلها ايضا في ا لحقل المحسوب ( TbdelHrof)
4- اذا قام مدخل البيانات بترك مسافه بعد عبد  او عدم تركها /عبد الباسط  و عبدالباسط/ وهذه اثارها الاستاذ ابو خليل (لم تحل هذه المشكله بعد ) ووعدنا الاستاذ ابو خليل بحلها
5- مشكلة ( ال التعريف ) في بداية العنوان وهذه ايضا اثارها الاستاذ ابو خليل ولم نجد لها الحل الشامل بعد  .  هناك حلول جزئيه لاتفي بالغرض
6- البحث عن نموذج بحث بديل لهذا النموذج مشابه له من حيث التصميم لانه كما ذكرت اصبح ثقيل بعد ان تجاوزت الاسماء عشرة الاف اسم وفي طريقها للوصول الى 50 الف
7 - ارفق طيا قاعده تتضمن المراحل التي وصلنا اليها وقد اسهم في اعدادها الاستاذين القديرين ابو خليل و Barna  جزاهم الله عنا خير الجزاء

بحث 10.rar

[يونس محمد الخطابي]

اسف القاعده السابقه ارفقتها بالخطا وهذه القاعده المقصوده

بحث 11.rar

[يونس محمد الخطابي]

السلام عليكم
لازلنا بانتظار حل لاحدى الاجابتين
1- اجابة الاستاذ ابوخليل - بعد ادخال ثلاثة او اربع اسماء - تتوقف عن توليد الرمز
2- اجابة الاستاذ Barna  / لاحظ عدد الاسماء في الاستعلام ( GeneratedCodeQuery ) بينما في القائمه الصفراء في النموذج ( NAAA1) لاتظهر كل الاسماء وانما يظهر جزء قليل منها
وسارفق نموذج فيه تقريبا 7 الاف اسم للتطبيق عليه
الرجاء التصحيح على القاعده وان كنت انا قد اخطات في التعامل مع البرنامج  نبهوني على خطأي لكي اتجاوزه مستقبلا 
وجزاكم الله خير
 

نموذج بحث6.rar ‏‏Barna_6.rar

[ابوخليل]

عليكم السلام

المشكلة منك ..  تخاطب جهتين ..

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

فالاستاذ محمد  وكاتب هذه السطور اتكل بعضنا على بعض ..

فاصبح يونس مثل معيّد القريتين 

بعد هذه الديباجة تفضل .. 

تم ضبط المثال ويعمل 100% لو لديك مليون سجل

يعمل من الاسم المفرد وحتى الاسم الرباعي

Dim rs As Recordset
Dim na0, na1, na2, na3 As String
On Error Resume Next
Set rs = CurrentDb.OpenRecordset("QAAA")
rs.MoveLast
rs.MoveFirst
Do While Not rs.EOF
na0 = "": na1 = "": na2 = "": na3 = ""
na0 = Split(rs!AsmGded, " ")(0)
na1 = Split(rs!AsmGded, " ")(1)
na2 = Split(rs!AsmGded, " ")(2)
na3 = Split(rs!AsmGded, " ")(3)
rs.Edit
rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2)
rs.Update
rs.MoveNext
Loop
Beep
MsgBox "تم توليد الرموز بنجاح", , ""

اذا السجلات عندك كثيرة جدا فالافضل ان تضيف  هذين السطرين .. الأول في اعلى اللوب والثاني بعد نهاية اللوب من اجل تعلم ان الكود ما زال يعمل ولم ينتهي بعد

DoCmd.Hourglass True
DoCmd.Hourglass False

نموذج بحث7.rar

[Barna]

5 دقائق مضت, ابوخليل said:

فاصبح يونس مثل معيّد القريتين 

هههه .... كلام سليم واصبحنا لا نعرف اي التعديلات المناسبة لك أخي @يونس محمد الخطابي

[ابوخليل]

وحتى لا تتوه ادرجت لك

Dim rs As Recordset
Dim na0, na1, na2, na3 As String
On Error Resume Next
Set rs = CurrentDb.OpenRecordset("QAAA")
rs.MoveLast
rs.MoveFirst
DoCmd.Hourglass True
Do While Not rs.EOF
na0 = "": na1 = "": na2 = "": na3 = ""
na0 = Split(rs!AsmGded, " ")(0)
na1 = Split(rs!AsmGded, " ")(1)
na2 = Split(rs!AsmGded, " ")(2)
na3 = Split(rs!AsmGded, " ")(3)
rs.Edit
rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2)
rs.Update
rs.MoveNext
Loop
DoCmd.Hourglass False
Beep
MsgBox "تم توليد الرموز بنجاح", , ""
End Sub

السطرين .. فقط استبدل الكود بهذا

 

[يونس محمد الخطابي]

من البدايه يا استاذي الفاضل ابو خليل . الله يرحم والديك . وسادعو لك فاقول : 

((  اللهم  يسر له امره . وحقق له مايتمنى . ووسع له صدره ليتحملني انا وامثالي  . واحفظه بعينك التي لاتنام   اللهمّ احفظه ووفّقهُ بكل أمرٍ يرجوه، واستجب له كل دعاء، وحقّق له كل أمانيه. اللهمّ سهّل أمره، واشرح له صدره، وأبعِد عنه الهمّ، والضيق، والحزن، وألهِمهُ الصبر والقوة))  . اللهم امين