أبو عبدالله الحلوانى

رجاءا ان كان تم مرادك من الموضوع فضع أفضل اجابة علي اجابة أخيك فهذا ادعي لتحفز أخيك علي الاجابة بالمرات القادمة وبيان للمشاهدين للموضوع من الخارج أنه تمت اجابته تمنياتي بالتوفيق

السلام عليكم ورحمة الله وبركاته أولا- لو تكرمت ترفق صورة من الـ Query الموجود خلف النموذج لتتضح المشكلة بالضبط ثانيا- علي حد علمي ومن واقع تجربة: هذه المشكلة ربما تحدث بسبب: 1- عدم قراءة المفتاح الأساسي للجدول المرتبط بقاعدة بيانات السرفر: حاول عرض الجدول من الأكسس في طريقة عرض التصميم وانظر هل له مفتاح أساسي أم لا؟ 2- وجود معايير فلترة كثيرة تحوي جملة Like داخل الـ query وهذه لا يتعامل معها السرفر بشكل صحيح! 3- لا يوجد للمستخدم الحالي صلاحيات علي الجدول المرتبط دخل الـ SQL server أو لا يوجد له صلاحيات علي قاعدة البيانات عموما. هذا والله أعلم بانتظار صورة الـ Query المرفق بالنموذج لاستبيان العلة 🙂

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

جرب هذا أيضا ولكنه غير مجاني وهذا الموقع الرسمي للبرنامج accessfixinstaller.rar

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

السلام عليكم ورحمة الله وبركاته شاهد هذه الروابط لعلها تفيدك 1- 2- 3- ولو أخذت قليل من الوقت في البحث لوجدت الكثير والكثير بالمنتدي مما لذ وطاب 😀 تمنياتي بالتوفيق

جزا الله خيرا من علمونا الأدب والتواضع في النقاش قبل العلم طبعا هذا الكلام لست أنا المقصود به ولا شك (جزاكم الله عنا خيرا كما تظنون بنا خيرا) تمت الفائدة من الموضوع والحمد لله والشكر موصول لاساتذتي و أصحاب الفضل علينا بعد الله وسأكتفي بذكر هذا فأنا استحي أن أضع أفضل اجابة علي أحد الأجوبة دون الآخر فأنا أريد أن أضع علي كل مشاركة من مشاركات أساتذتي أنها أفضل اجابة ولا شك. ورجاء مشاركة أساتذتي الأجر فهذا المرفق بعد التعديل عليه بما يناسبني قمت بدمج كود الاستاذ جعفر مع فكرة الاستاذ أبو جودي (في استخدام الجدول للاجزاء الخاصة بالاسم) مع الابقاء علي فكرة أستاذنا أبو خليل أنها الاسهل في الاستخدام وتخفيف العبأ في كتابة الاكود. جمعتها لمن مر من هنا واحتاج لها بعدي. ملاحظة: لم ارد خدش كود الاستاذ جعفر لذا وضعت موديل آخر لتنفيذ الفكرة (المقتبسة منه 😀). Test Four Name.rar

السلام عليكم ورحمة الله وبركاته بالاضافة الي ما تقفضل به أخي @النجاشي جرب هذا المرفق لعله يوافق مرادك المرفق يقوم بي: 1- أخذ نسخة احتياطية من نفسه. 2- ومن قاعدة البيانات المرتبطه به. جرب أن ترتبط بقاعدة بيانات مختلفة وانظر النتيجة ولا تنسانا من دعوة بظهر الغيب تمنياتي بالتوفيق. TestBackup.rar

أمين بارك الله لكم وفيكم ولكن لماذا؟؟! وعلي كل سنجرب ونوافيكم بالنتائج ان شاء الله وجزاكم الله خيرا

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

بس كده دا ممكملش ثمن عودين بخور 😁

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

آسف هنا الأسماء Test Four Name.mdb

تفضل يا أستاذي هنا جدول SomNamesTbl به بيانات وهمية متشابهة مع الحقيقية وجزاكم الله عنا خيرا والله ما أسعد بالحل قدر سعادتي بتواصلي مع اساتذتي وأحبتي بالمنتدي @ابا جودى @ابوخليل @jjafferr أشكركم جميعا وجعله الله بموازين حسناتكم

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

وعليكم السلام ورحمة الله وبركاته نفس الشعور ولكن اخي واستاذي محمد قد أوضح هذا بكلامه الأول جزاكم الله خيرا أما عن هذه فأنا أحتاج عند ادخال اسم عميل جديد بمعاملة جديدة أن يبحث هل هذا العميل له بيانات سابقة أم لا؟! ان كانت البيانات السابقة مطابقة للجديدة يطلب من المستخدم: 1-هل يريد اضافة معاملة جديدة لنفس المعاملة السابقة وفي هذه الحالة سيستفيد العميل من بعض الميزات عن ما ان كانت هذه المعالملة للمرة الأولي! 2- أو تعديل المعاملة السابقة! 3- أو التراجع عن الحفظ! ثانيا - وهذه الجزئية تحت الانشاء: ان كانت المعاملة تختلف عن المعاملة السابق سيتم تخزين قيمة أن للعميل معاملة مختلفة أخري! هذه المعلومة ستفيد لاحقا عند احتساب المبلغ المستحق علي العميل مقابل المعاملة الجديدة. أرجو أن يكون اضاحي لا يحتاج الي ايضاح😁 أما عن كود البحث فهذا هو If Nz(DCount("CustName", "ContCustNameLiklyQry"), 0) <> 0 Then Me.List409.Visible = True Me.List409.Move (CustName.Left), Me.CustName.Top, 4032, Me.List409.Height Me.List409.SetFocus Else End if ContCustNameLiklyQry 'هذا الاستعلام يحمل بعض المعاير المستخدمة في عملية ايجاد الاسماء المتشابهة List409 'وهذا الليست يحوي مجموعة الخيارات المعروضة علي المستخدم في حالة ايجاد اسماء متشابهة

هذه مرفق للتجارب Test Four Name.rar هو احنا بنكتب الرد ليه مع بعض في وقت واحد كدا ( هو دا اللي اسمه تلاقي الأرواح ولا اليه ) 😀🤔

لاحظات أجهزه لك ان شاء الله

جزاك الله خيرا لم يتبادر الي ذهني تلك الأسماء المركبة ما فكرت في غير العبادلة ولكن الاشكالية أن البيانات المدخلة ستكون حساسة بالنسبة للاسم أي انه بمجرد ادخال الاسم من المفترض انه سيتم البحث عنه بالبيانات المخزنة لربط بيانات العميل القديمة بالجديدة من خلال كود آخر . كلامك له وجاهة - ولكن سيطرني لاجزاء تعديلات كثيرة تأخذ وقت ليس بقليل ولكن لو كان الحل في كتابة كود لكان أسهل واسرع. وجزاكم الله خيرا

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

السلام عليكم ورحمة الله وبركاته احبتي كتبت هذا الكود لاجبار المستخدم علي كتابة اسم العميل رباعيا حتي لا يتكاسل في كتابة الاسم ويكتفي باس واحد أو اثنين مما يؤدي الي الوقوع في مشكلة تشابه الأسماء. Public Function TestFourthName(ByVal tx As String) As Integer Dim abd As String abd = ChrW(1593) & ChrW(1576) & ChrW(1583) If InStr(1, tx, abd) > 0 Then TestFourthName = (Len(tx) - Len(Replace(tx, " ", ""))) If TestFourthName = 3 Then TestFourthName = TestFourthName + 1 End If Else TestFourthName = (Len(tx) - Len(Replace(tx, " ", ""))) + 1 End If End Function وعمل الكود بشكل جيد مع الأسماء التي لا تحوي كلمة "عبد" فعند ادخال المسافة بين عبد واسم الجلالة يعتبر الاسم اثنين أرجو التعديل علي الكود لتجاوز هذه الاشكالية أو ابداء فكرة لمعالجة هذا الأمر بأقل خسائر 😁 وجزاكم الله عنا خيرا

انظر في هذا الرابط لعلك تجد ما تريد والله الموفق وانظر هذا الرابط أيضا

هل جربت هذا

اذا أردت تغير الاسم عليك بتعديله داخل كود الربط داخل البرنامج الي الاسم الذب تريد هذا كل شىء علي ما أعتقد فأنا لم أطلع علي المرفق

حقيقة لم استطع التعامل مع CopyFromRecordset ظهرت أخطاء لم استطع معالجتها ولعل صاحب الموضوع قد ذكر شىء من تلك الأخطاء ببداية الموضوع. لذا قمت بجلب البيانات باستخدام For من اجل ذلك سأنتظر رد أستاذنا @أبو إبراهيم الغامدي للتعلم والاستفادة أما عن طريقتي في حل الطلب الأستاذ @عفرنس وفقا للتوضيح الأخير. فكنت أنوي وضع هذا في بداية الكود If ShabaNo <= 4 Then shetNo = Val(ShabaNo * 2) Else Select Case ShabaNo Case 5 shetNo = 2 Case 6 shetNo = 4 Case 7 shetNo = 6 Case 8 shetNo = 8 End Select End If وأكرر سأنتظر رد أستاذنا @أبو إبراهيم الغامدي للتعلم والاستفادة