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

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

السلام عليكم ورحمة الله وبركاته شاهد هذه الروابط لعلها تفيدك 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 وأكرر سأنتظر رد أستاذنا @أبو إبراهيم الغامدي للتعلم والاستفادة

السلام عليكم مرحبا أبا أنس لماذا لا تحب الزحمة هنا الزحمة مفيدة ليدلي كل من له تجربة خاضها، أو علم يريد التصدق به. فالزحام في العلم يفيد ولا يضر قمت بالتعديل علي جدول Tb_f واضفت اليه عمود نوع الحركة وهو عبارة عن كود 1 يمثل الوارد و 2 يمثل المنصرف وصنعت لك الاستعلام المطلوب لاستخراج الرصيد باسم BalancesTbl ارجو أن يكون هو ما تريد اطلع علي المرفق ووافنا بالنتائج مع خالص تمنياتي بالتوفيق officena.accdb

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

لست أدري كيف سيمنع الارتباط بالسرفر قبول صيغة الـ vbs وضح لنا فكرتك بالضبط! ولكن يمكن أن يعمل هذا الكود في بيئة الـ vb6 أو حتي vb.net وتحويله الي exe واستخدامه بأي جهاز.

وجزاك الله خيرا هذا لم أفهمه جيدا هل سيتم ادخال بيانات أكثر من شعبة في شيت واحد أم ماذا؟