دروب مبرمج

تفضل هذا التعديل 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

تفضل bdd2.accdb

بالإمكان الاستغناء عن كل هذا الكم الهائل من الارتباطات قم بإنشاء دوال VBA لتسهيل العمل و الحصول على المعلومات من الجداول الاخرى فمثلا تستطيع استخدام مثل هذه Public Function GetSetData(Column_Name As Variant, TableName As Variant, WhereValue As Variant) GetSetData = DLookup(Column_Name, TableName, WhereValue) End Function فهي فهلا تقبل تكرار الاستخدام مع معايير مختلفة فمثلا للاستخدام استدعاء رقم المعرف للموظف GetSetData("[ID]";"[EMPTB]";"[ID]=" & [EMPTB]![ID]) استدعاء اسم الموظف GetSetData("[EMP_Name]";"[EMPTB]";"[ID]=" & [EMPTB]![ID]) استدعاء البريد الإلكتروني للموظف GetSetData("[EMP_Email]";"[EMPTB]";"[ID]=" & [EMPTB]![ID]) المختصر بأنه بإستخدام الدوال سوف يصبح عملك اسهل بإمكانك في المثال اعلاه تثبيت المعطيات الاساسية مثل اسم الجدول و المعيار مثال على ذلك Public Function GetSetData(Column_Name As Variant) Dim Column_Name As Variant, TableName As Variant TableName = "EMPTB" WhereValue "[ID]=" & [EMPTB]![ID] GetSetData = DLookup(Column_Name, TableName, WhereValue) End Function ليصبح استدعاء المعلومة بالطريقة التالية استدعاء رقم المعرف للموظف GetSetData("[ID]") استدعاء اسم الموظف GetSetData("[EMP_Name]") استدعاء البريد الإلكتروني للموظف GetSetData("[EMP_Email]") فعلا تستطيع تكرار استخدام نفس الدالة بمعايير مختلفة داخل الاستعلام

اجعلها مخفية

تفضل هذا التعديل project no 3.zip

تفضل Dim SetRep As Variant, SetRepNew As Variant SetRep = "ضع اسم التقرير هنا" SetRepNew = CurrentProject.Path & "\" & [ID] & ".pdf" DoCmd.OpenReport SetRep, acViewPreview DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True

تفضل استخدم الكود التالي Dim SetRep As Variant, SetRepNew As Variant SetRep = "Report1" ' اسم التقرير SetRepNew = CurrentProject.Path & "\" & "Reoprt1" & ".pdf" ' اسم و مكان حفظ ملف DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True

تفضل Nouveauie.4.zip

تفضل قمت بتصميم برنامج صغير لإنشاء و استعادة النسخة الاحتياطية من خلال انشاء اتصال بالنسخة الاحتياطية StrBackup.zip

اجعل الإرتباط فقط برقم الطلب الارتباط الحالي برقم الطلب و التاريخ رقم الطلب حقل مميز اي لا يقبل التكرار بالتالي فانت ليست بحاجة لربط التاريخ يكون كالتالي

تفضل SELECT * FROM tblVacation where [emp_code]= " & [TempVars]![EmpIdTemp] & " AND [VacationLife]='سارية' ORDER BY vacationstartdate Asc;

فنااااااااااااان كنت ابحث عن الطريق من وقت طويل و عجزت اوصل لها شكرا شكرا شكرا من القلب على هذه الهدية الرائعة

تفضل هذا التعديل Nouveauie.3.zip

تفضل هذا التعديل Nouveauie.2.zip

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