ابوخليل

?

حبيبنا ابو ياسين الكود السابق : CopyFile CurrentProject.path & "\db1.mdb", "D:\Data.txt" ينسخ الملف اللذي بجنب قاعدة البيانات والذي اسمه db1.mdb الى قرص D بمسمى آخر وبامتداد آخر يمكنك تسميه بالذي تريد وحتى بدون امتداد وبهذه الصفة : CopyFile "C:\db1.mdb", "D:\Data.mdb" ينسخ من مكان الى مكان آخر وبمسمى مختلف

عذرا .. لم افهم شي

طريقة عمل المبرمج الصحيحة وتجنب المتاعب : اولا يجب تقسيم قاعدة البيانات الى : 1- واجهات 2-قاعدة خلفية تشتمل على الجداول من المتعارف عليه غالبا ان القاعدة الخلفية (الجداول) غير قابلة للتحديث ومن غير المتصور ان يجرى عليها اي تعديل لذلك يحسن بالمبرمج ان يزيد في الجداول بعض الحقول التي يتوقع الحاجة اليها مستقبلا خاصة اذا كان البرنامج طور الاستخدام لاول مرة والا فإن الاصل عدم المساس بقاعدة البيانات اما الواجهات فيمكن التحديث يوميا بالزيادة و النقص والتنسيق ونحوة كزيادة تقارير او نماذج ولا حرج ، وفي النهاية ترسل الى المستخدم ليلصقها في مجلد البرنامج ويوافق على اللصق والاستبدال .

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

هذه الدالة FileCopy تنسخ اي ملف من وجهة الى وجهة أخرى ولها معاملين : FileCopy path1,path2 مثال : CopyFile CurrentProject.path & "\db1.mdb", "D:\db1.mdb"

تفضل يمكنك بهذا الكود تصدير جدول محدد الى قاعدة بيانات اخرى وسيتم استبداله اذا كان بالمسمى نفسه DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\b.mdb", acTable, "tbl2", "tbl2", False

شوفت انت اكبر مني بـــ 4 سنوات من العود الحين

وعليكم السلام بدون زر خيار وانما باستخدام المعيار المناسب في مصدر البيانات انظر المعايير في الاستعلام Import_2.rar

السلام عليكم وجدت كود ضمن مقتنياتي يستخرج اكبر قيمة في حقول السجل وقمت بتعديله كي يعد الحقول غير الخالية Function countflds(ParamArray fldArray() As Variant) Dim I, curfld As Integer For I = 0 To UBound(fldArray) If Not IsNull(fldArray(I)) And fldArray(I) <> 0 Then curfld = curfld + 1 End If Next I countflds = curfld End Function عدد حقول سجل بشرط.rar

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

مشاركة مع احبتي اخونا كريمو لعل هذا يلبي طلبك قيد العمل.rar

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

معذرة .. لايمكنني فتح المرفق فانا اعمل على اوفيس 2003

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

وعليكم السلام : انظر هنا

هذا رابط الموضوع السابق المختصر الفكرة هي تأسيس لعملية البيع والشراء لعملاء معتمدين باقل قدر من الكائنات ، والفكرة تم تنفيذها بــ 3 جداول أساسية فقط : راس الفاتورة _ التفاصيل _ المدفوعات . كثير منكم سيقول نعلم هذا ولم تأت بجديد ، وأعلم ذلك ولكن الحال في غالب الامثلة والمواضيع المنتشرة في هذا المنتدى وغيره تختلف وفيها الإلزام بما لا يلزم . وموضوعي هنا نسخة مطابقة من الرابط السابق ولكني احببت افراده بموضوع وعنوان مستقل لعدة اسباب : 1- وجود فكرة جديدة من بنات افكاري تساعد عند عمليات الادخال ، ومن الممكن وجود احد سبقني الى هذه الفكرة في هذا المنتدى او غيره فهنا اقدم اعتذاري له ابتداءً ولتعلموا انما هو توارد خواطر . 2- جميع من مر على الموضوع السابق وفهم الفكرة لن يتوقع تغير متميز لذا لن ينشط في المتابعة وفي تصفح المثال الجديد 3- تلافي جميع المشكلات في الملاحظات السابقة خاصة التي يستعصي او يصعب حلها الفكرة هي جعل جميع النماذج غير منضمة والحاق البيانات باستخدام الكود ، وهذه ليست جديدة ولكن الجديد هو استخدام جدول وسيط مؤقت لرصد تفاصيل الفاتورة buySel.rar

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

سأعمل على اعداد نسخة اخرى افضل _ في جهة الضبط _ وبفكرة جديدة ابتكرتها وسأسميها : اختصار المختصر الموضوع الجديد هنا

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

اهلا وسهلا ومرحا بــ استاذنا القدير نارت لبزو ابي آدم عوداً حميدا أدام الله علينا وعليكم رضاه ونعمه وعافيته

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

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

وهذا كان جوابي حين تصفحت المثال الرصيد يظهر .. يعني لم اجد مشكلة