دروب مبرمج

من خلال التنسيق الشرطي تستطيع تنفيذ ما تردي قمت بتنفيذ طلبك على عمود Arab حل للتقارير متعددة الأعمدة_01.zip

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

تفضل sssssssss.zip

تفضل ترجمة.accdb

تفضل هذه البداية و اكمل ما تريده و ان استصعب عليك امر تجدني و الإخوة في خدمتك Graff.zip

تفضل هذا المثال ترجمة.accdb

تفضل هذا المثال عبارة عن اختيار مجموعة من الصور لكن بالإمكان استخدام الماسح الضوئي السريع و جميع الصور سوف تتحول على ملف PDF مثال تحويل الصور PDF.zip

اضف المكتبة التالية

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

تفضل هذا التعديل ستكون القيمة الافتراضية في النموذج الفرعي هي نفسها المدخلة في النموذج الرئيسي test rate (2).zip

جملة SELECT INTO تستخدم عادة في انشاء نسخة احتياطية من الجداول و تأتي على عدة اوجه و استخدامات قد تختلف من SQL الى قاعدة بيانات اكسس او اوريكال مثال على ذلك في الأكسس لعمل نسخة احتياطية من نفس الجدول في نفس قاعدة البيانات SELECT * INTO Persons_backup FROM Persons لنسخة الجدول لقاعدة بيانات اخرى SELECT Persons.* INTO Persons IN '........\Backup.mdb' FROM Persons و لنسخ الجدول مع العلاقات SELECT Employees.Name,Orders.Product INTO Empl_Ord_backup FROM Employees INNER JOIN Orders ON Employees.Employee_ID=Orders.Employee_ID المسميات داخل جمل الاستعلام ما هي إلا للمثال فقط

ماهو هدفك من هذا الطلب ؟ ما الذي تريد الوصول اليه ؟ يرجى توضيح الفكرة بإختصار

للحصول على حجم ملف محدد استخدم الكود التالي في اي مكان داخل محرر الاكواد الصق الكود التالي Public Function GetFileSize(foldPath As String) As Double GetFileSize = FileLen(foldPath) / 1024 End Function و للإستخدام GetFileSize(" مسار الملف ")

تفضل اضف هذا الكود ملاحظة : قد تجد بعض الصعوبات بالتعامل في الأكود بسبب المسميات العربية انشئ Module جديد و الصق فيه الكود الخفيف السهل هذا عبارة عن وظيفة أو دالة او سمها ماشئت Public Function SubSuoer(ID As Integer) As Integer Dim TbName, ColName TbName = "[ادخال الاخلاءات]" ColName = "[اسم مشرف القطاع]" ColName = "[اسم مشرف القطاع] = " & ID SubSuoer = DCount("*", TbName, ColName) End Function ولاستخدام الدالة بهذه الطريقة [TEXTBOX1] = SubSuoer(1) أو في الاستعلام SubSuoer(1) رقم 1 يعني رقم المشرف بناء على رقم المشرف سوف يقوم الكود بجمع عدد الاخلاءات مرفق برنامج بعد التعديل التعديل في الاستعلام التعديل في الاستعلام التعديل في الاستعلام Graff.zip

المعيار مبني على التاريخ فمهما اختلف الفصل الدراسي لامشكلة فيه لأنه لن يكون هناك اكثر من فصل دارسي في نفس التاريخ

في أي جدول المشرفين يرجى تحديد اسم الجدول الذي يحتوي على المشرفين

تفضل التعديل - تعارض : تعراض في ( الاسم + التاريخ + الوقت من + الوقت الى ) - #Error : تعني احد عناصر الإستعلام الأساسية مفقود مثل ( الاسم / التاريخ / الوقت من / الوقت الى ) - ( - ) : تعني بأنه لا يوجد تعارض و الحصة سليمة ** التعديل في استعلام ( Query1 ) و الكود مبنى على الاستعلام الاساسي ( SecondTimeTableQ ) TT.zip

تفضل هذا المثال - الاتصال بقاعدة البيانات البعيدة - انشاء استعلام مبني على قاعدة البيانات البعيدة - عدم وجود جداول ارتباط - قاعدة البيانات منفصة عن الواجهات و لأي استفسار انا جاهز مثال.zip

تفضل تقسيم الى مجموعات.accdb (1).mdb

تفضل طلبك التقسيم الى مجموعات و ترقيم خاص لكل مجموعة يبدء الترقيم من السنة الحالية + مضاعفات 100 لكل مجموعة + تسلسل لكل مجموعة تقسيم الى مجموعات.accdb (1).mdb فعلا بسبب ان الأقواس من اليسار معكوسة 😅 DoCmd.RunSQL "ALTER TABLE [" & Tabel_Name & "] DROP COLUMN Str_Group" DoCmd.RunSQL "ALTER TABLE [" & Tabel_Name & "] ADD Str_Group Number" بهذه الطريقة سوف تعمل

في ما بعد قد يمكنني فعل ذلك فأنا ما زلت اتعلم اخي الكريم و هذه هي حدودي في الوقت الحالي

نعم صحيح SQL injection ثغرة أمنية خطيرة جدا علاجها البراميترات و هذا تطبيق لتجاوز هذه الثغرة على نفس المثال هذه بعض كلمات المرور القوية التي تعطي المستخدم صلاحيات كاملة و لكن لا تستطيع الولوج من خلال البراميتر a' or 't'='t ' or '1'='1 ' or 1='1 MRN_DataBase_555.rar بالإمكان الغاء مفتاح الشفت ابحث في المنتدى عن الغاء و تمكين مفتاح الشفت و ستجد اجابات كثيرة شافية و كافية الثغرة تكون في استعلام SQL injection و هي ثغرى امنية خطيرة انظر للمرفق و ستجد الحل

تفضل تقسيم الى مجموعات.accdb.mdb

تفضل Database1.accdb

جرب كده Private Sub Form_Current() DoCmd.RunCommand acCmdSaveRecord If Me.adadno.Value <> DLookup("[A]", "[Database]", "[crn] ='" & [Forms]![Database1]![crn] & "'") Then Beep If MsgBox("إنــتــبــه ...... يوجد خطأ ....... هل تريد إضافة القيمة؟", _ vbQuestion + vbYesNo, _ "تننبيه") = vbYes Then Exit Sub Else Undo Exit Sub End If End Sub