ابوخليل

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

انا جربت وتظهر البيانات تمام حسب التصفية المشكلة عندك في السنة المالية لان السجل الاخير اللي اضفته لن يظهر حتى تختار السنة المالية 2021 ملحوظة : اعتقد يمكنك التصفية لجميع الازرار من خلال نموذج واستعلام واحد بدلا من ثلاث نماذج وثلاث استعلامات ايضا يابو حسان ارجع لنصيحتي لك اول ما استقبلتك هنا في المنتدى من سنين وكانت حول بناء مشروعك على اكسس فقط واستبعاد اكسل ، اذكر انك اجبتني بان العمر تقدم وعلى حافة الــ ... ولا يوجد وقت لتعلم اكسس .. الآن وقد كسبت خبرة لا باس بها تستطيع بناء مشروعك من جديد ، فجميع المبرمجين يعملون هكذا في مشاريعهم يطورون باستمرار وانا اؤكد لك ان في نهاية تجديدك لمشروعك تكون علقت الشارة الزرقاء على معرفك

انا عملت على الزر """" رصيد سابق """" الذي انت حذفته في هذا المرفق الآن انظر في الازرار الثلاثة .. اصغر تاريخ في الجدول هو 1/7/2021 على اعتبار ان المعتمد في التاريخ على النموذج هو : من تاريخ T3Q -3.rar

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

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

مشاركة مع اخي موسى .. تفضل هذا يقوم بالمهمة انقر نقرا مزدوجا على الصورة Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Image_DblClick(Cancel As Integer) ShellExecute Me.hwnd, "open", Import_pictures_path, "", "", 1 End Sub ان كان نظامك 64 اضف PtrSafe بعد Declare in and out2.rar

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

اهلا ابو حسان ... شوف هذا التعديل T3Q -2.rar

اعجبني صنعك لهذه الدالة .. اذ لا وجود لها في vba .. شكرا لك يابواحمد ولكن بالمقابل هي موجودة فعلا ويتعامل معها اكسس في الاستعلام ، لذا لو تم تمييزها بزيادة حرف او نقصه لكانت آمن واتقن لدى من يقتبسها .

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

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

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

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

جميل .. طريقة اخرى باستخدام استعلام الحاق

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

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

السؤال واضح وضوح الشمس في النهار اسمح لي اخوي لوكان ردي يزعلك : ردك اعلاه ما فهمت منه شي ، هل انت عربي ؟؟ اذا انت لست عربيا عذرناك

اخي الكريم الاجابة غير موفقة ، ومما تعلمنا ان فهم السؤال نصف الإجابة السائل يريد نسخ سجل كامل بجميع حقوله ولصقه في سجل جديد وقد اجاب الاخ موسى قبلك واجاد القائمن على المنتدى يهمهم ان تكون المشاركات مفيدة تعالج الفكرة نفسها ... ويطبقون المثل : ما قل ودل

شكرا استاذنا على المداخلة وهذه طريقة لبناء دالة على اكتاف Replace مع اخذ الاحتياط بحذف المسافات الفارغة الزائدة ان وجدت ' الصق هذه في وحدة نمطية عامة Public Function fnchang(vtext As String) Dim i As String i = Replace(vtext, "/", "-") i = Replace(i, "(", "-") i = Replace(i, ")", "-") Do While InStr(1, i, " ") > 0 i = Replace(i, " ", " ") Loop End Function ' تم تعديل الدالة نبهني الى الخطأ فيها اخي وحبيبي الاستاذ جعفر ' الصق هذا السطر في حقل جديد في الاستعلام text2: fnchang(text1) ، text1باعتبار هو اسم الحقل الذي سيجري عليه التغيير

عليكم السلام .. اهلا ابا انس Me.text1 = Replace([text1], "/", "-") ' في الحدث المناسب في المحرر text2 : Replace([text1]; "/"; "-") ' في الاستعلام لاحظ انك ان استخدمت الكود سوف تتغير وتتحدث البيانات في الجدول اما ان استخدمت الاستعلام فستبقى البيانات في الجدول كماهي وتستخدم الاستعلام لعرض النتيجة الجديدة لذا ننصح بالعمل على نسخة للتجربة حتى اذا اصبحت النتيجة حسب المطلوب تطبق عملك على برنامجك

ظهر الآن ان السؤال منقول .. وصاحب السؤال لا يعمل عليه وذكر ان كل مستخدم له حاسوبه الخاص الآن فهمت انهم في مبنى واحد .. وهذا يعني امكانية عمل شبكة بين الحواسيب ، وهذا يرجعنا الى تخمين الاستاذ جعفر ، وما سماه بالسؤال الساذج

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

الامر ليس بهذه السهولة ، فلن تستفيد من مثال ارفقه لك دعنا نأخذ المسألة بالتفصيل لو ان البيانات القابلة للزيادة والتحديث عند المستخدمين ضمن جدول واحد لاصبحت العملية يسيرة جدا ولكنك تتحدث عن خمس جداول .. لذا انت من سيرفق المثال على النحو التالي : ارفق ثلاث قواعد بيانات داخل مجلد بعد ضغطها .. وقم بتسميتها مثلا : dataDB1 ,, dataDB2 ,, dataDB3 وتشتمل فقط (اكرر فقط) على الجداول التي يحدث فيها التحديث والاضافة عند المستخدمين بمعنى ان بياناتها تتغير وتختلف من مستخدم لآخر . ((( يجب ان تكون نسخة مطابقة من جداولك التي تعمل عليها ))) قم بتعبئة الجداول ببيانات كاملة مشابهة للواقع ( على الأقل سجلين في كل جدول ) بعد الاطلاع على جداولك سيتبين لنا ما يمكننا عمله ، حيث اتوقع اننا سنجد تعارض منطقي او عدم صلاحية الدمج في بعض الجداول حينها سوف ارى ما يجب عمله من اضافة او تعديل على بنية الجدول . ثم تأسيس استعلامات تحل محل هذه الجداول

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

ادرج في الجدول ترقيم تلقائي واجعله مفتاح للجدول وفي التقرير افرز حسب هذا الحقل