دروب مبرمج

افضل طيقة بأن تقوم بتصميم التقارير على ملف وورد مرفق مثال لإرسال البيانات من الاكسس الى الوورد سيتم حفظ ملف الوورد بصيغتين Word و PDF RepToWord.zip

تفضل التعديل base1.accdb

تفضل هذا التعديل base1.accdb

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

تفضل هذا التعديل 01.accdb

تفضل هذا الكود بإختصار لإنشاء استعلام حسب رغبتك Dim qdf As QueryDef, Query As Variant, SetTop As Integer ' المعطيات الاساسية لبناء جملة الاستعلام SetTop = 2 Query = "SELECT TOP " & SetTop & " sales, dname, * FROM sales ORDER BY sales DESC" ' حذف الاستعلام السابق لإنشاء استعلام جديد DoCmd.DeleteObject acQuery, "NewQuery" ' لإنشاء استعلام جديد حسب المعطيات اعلاه Set qdf = CurrentDb.CreateQueryDef("NewQuery", Query) qdf.Close Set qdf = Nothing

اخي الكريم ملاحظة بسيطة جداً انا و اعوذ بالله من كلمة انا فما أنا لا طالب في مدرستكم و متابع جيد لجميع اطروحاتكم فأنا فعليا نتاج لجميع اطروحاتك استاذي @ابو جودي فليا بكل ما تعنيه حروفي تعلمت منك طيلة السنوات الماضية و لم اكن عضوا في المنتدى بفضلكم تحولت من زائر الى عضو رغم متابعتي الدقيقة لجميع الاكواد في المنتدى الى أن تحويل النص الى رقم بهذه الطريقة CLng([sales]) لأول مرة اراها رغم دراستي المستفيضة في جملة SQL

تفضل هذا التعديل select top.accdb

تفضل التعديل Bank.zip

تفضل و اكمل الباقي حسب حاجتك test.accdb

شكرا على التنبيه مرفق الملف بعد التعديل Form1.accdb

مجرد اسئلة للوصول الى جواب سؤالك س1 / ما لو رغب عميلك في زيادة فترة التجربة ؟ س2 / لو كان اسلوبك في بيع برنامج بإشتراك شهري كيف ستتحكم في ايقاف و تمديد العمل على برنامج ؟ اذا يجب ان يكون البرنامج تفعالي اكثر و تكون انت المتحكم مجرد اقتراح لبعض الحلول - انشاء جدول على سيرفر خارج SQL - يتم من خلال الاتصال بجدول اضافة تاريخ تفعيل الفترة التجريبية تاريخ نهاية الفترة التجريبية تاريخ تمديد و مدة الفترة التجربية السبب في ما سبق قد يستطيع بعض المستخدمون الدخول للكود و التعديل عليه او الغائه و هذا خطر جداً ❌🛠️ لكن اذا قمت بربط الحماية بلغة اخرى مثل ASP او API فستكون الحماية خارج نطاقة البرنامج و ستمنع عمليات القرصنة 👺 اذا الجواب بالمختصر ان الحماية ستكون خارج البرنامج و دخال السيرفر الخارجي الخاص بك كذلك تمرير البيانات من القاعدة الى السيرفر و العكس و كذلك داخل القاعدة يجب ان تكون مشفرة في ما لو تعرضت للعبث لن يستفيد منها المقرصن 🤦‍♂️

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

تفضل التعديل inputbox-pas0.2.accdb

تفضل هذا التعديل inputbox-pas0.2.accdb

اصبح الذكاء الإصطناعي ايقونة هذا العصر الآن اصبح بالإمكان الاستفادة من الذكاء الاصطناعي في انشاء اكود VBA الخاصة بمحرر اكواد الاكسس فقط اطلب من الربوت ما تريد و سيقوم بدوره بإنشاء كود سهل الاستخدام اضغط هنا لتجربة الذكاء الاصطناعي ChatGPT

تفضل هذه هي الفكرة سيتم بيع الاقدم فالأقدم Database4.accdb

تفضل هذا مثال قمت بإعداده للإتصال بقاعدة البيانات يجب تقسم قاعدة البينات لديك في مشروعك ثم الاتصال بقاعدة البيانات في السيرفر او الجهاز المحلي الذي ستحتفظ بقاعدة البيانات به ( الجداول ) في المثال لدينا ثلاث قواعد بيانات + الواجهة من خلال الواجهة سنقوم بالتالي - انشاء مجلد للنسخة الاحتياطية - سيتم حفظ نسخة جديدة عند تسجيل كل قاعدة بيانات - يجب بعد تسجيل النسخة ان تقوم بالإتصال بقاعدة البيانات تم ترقم الخطوات ليسهل التجربة و لكن يجب فك الضغط اولا قبل الاستخدام بعد تسجيل النسخة و الاتصال بها ستكون بهذا الشكل StrData.zip

ضع في معيار الاستعلام Year(Now())

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

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

تفضل هذه المشاركة medecin.accdb

مشاركة مع الاخوة في حال عدم وجود مجلد بإسم ID سيتم انشاء مجلد بإسم ID Dim fso As Object Dim fldrname As String Dim fldrpath As String Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\Backup\" & [ID] If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If

تفضل bdd2 (5).accdb

تفضل bdd2 (5).accdb