AlwaZeeR

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

Public Function AddAmount(originalAmount As Double) As Double Select Case originalAmount Case Is <= 50 AddAmount = 75 Case 51 To 100 AddAmount = 100 Case 101 To 150 AddAmount = 125 Case Else AddAmount = 0 End Select End Function في الاستعلام يمكن الاستدعاء هكذا: NewAmount: AddAmount([OriginalAmount]) لان الاضافات غير متطابقة يمكن تعديل الوحدة بما يناسبك :: تحياتي

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

ما في مثال مرفق والرسالة بتظهر لانو حقل القيمة الافتراضية فارغ بتقدر تضيف رسالة في الكود في حال كان الحقل فارغ

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

وعليكم السلام ورحمة الله وبركاته Sub UpdateDefaultValueAndRecords() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim strTableName As String Dim strFieldName As String Dim strNewDefaultValue As String strTableName = "YourTbl" strFieldName = "FieldName" strNewDefaultValue = "60" Set dbs = OpenDatabase("C:\Path\To\Your\Backend\Database.accdb") Set tdf = dbs.TableDefs(strTableName) Set fld = tdf.Fields(strFieldName) fld.DefaultValue = strNewDefaultValue dbs.Execute "UPDATE [" & strTableName & "] SET [" & strFieldName & "] = " & strNewDefaultValue & " WHERE [" & strFieldName & "] = 70", dbFailOnError dbs.Close Set fld = Nothing Set tdf = Nothing Set dbs = Nothing MsgBox "تم تحديث القيمة الافتراضية وتحديث السجلات الحالية بنجاح!" End Sub

وعليكم السلام ورحمة الله وبركاته عادة عند تنصيب نسخة اوفيس حديثة يتم تعيين اعدادات الامان افتراضيا الى اعلى مستوى وهذا يعطل اكواد vba جرب اعدادات Trust Center بخصوص اعدادات اللغة تاكد انه لا يوجد صح كما في الصورة :: تحياتي

import xls.mdb

وعليكم السلام ورحمة الله وبركاته استبدل هذا: strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls") بهذا: strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xlsm") واذا لم تحل المشكلة ارفق ملف الاكسل

وعليكم السلام ورحمة الله وبركاته =Nz([Forms]![SubForm1]![TextBox1], 0) + Nz([Forms]![SubForm2]![TextBox2], 0) + Nz([Forms]![SubForm3]![TextBox3], 0) + Nz([Forms]![SubForm4]![TextBox4], 0)

Private Sub Manul_AfterUpdate() If IsNull(Me.Manul.Value) Or Me.Manul.Value = "" Then Me.Manul.BackColor = RGB(255, 255, 255) Else Me.Manul.BackColor = RGB(255, 255, 0) End If End Sub

فعلا عمل جميل يسلم ايدك ابا جودي

قم بتطبيق العلاقات كما هو موضح هنا وعند الانتهاء ننتقل الى انشاء نماذج الادخال

نعم راق لي عمل جميل ولكن ملاحظتي على التنسيق والالوان غير مريحة لعين الشخص الذي سيعمل على هذا المشروع :: تحياتي

وعليكم السلام ورحمة الله وبركاته طبق التعليمات التالية وسوف يكون عندك بداية لقاعدة بيانات جيدة وعلى الطريق السليم: ========== لإنشاء قاعدة بيانات تلبي احتياجاتك، يجب تصميم الجداول والعلاقات بينها بشكل يساعدك على تخزين المعلومات المطلوبة بطريقة منظمة وفعّالة. بناءً على وصفك، تحتاج إلى ثلاثة جداول رئيسية: جدول الموظفين (Employees): يحتوي هذا الجدول على المعلومات الأساسية عن الموظفين مثل اسم الموظف، معلوماته الشخصية، وأحدث درجة وظيفية له. جدول الدرجات الوظيفية للموظفين (EmployeeGrades): يحتوي هذا الجدول على تاريخ منح كل درجة وظيفية للموظف، مما يسمح بتتبع تاريخ التدرج الوظيفي لكل موظف. جدول الدرجات الوظيفية (Grades): يحتوي هذا الجدول على جميع الدرجات الوظيفية المتاحة في النظام، مما يتيح لك اختيار درجات وظيفية جديدة عند الحاجة. تفاصيل الجداول والعلاقات بينها: 1. جدول الموظفين (Employees) رقم الموظف (EmployeeID): مفتاح أساسي (Primary Key). اسم الموظف (EmployeeName): نص. معلومات شخصية (PersonalInfo): نص. رقم آخر درجة وظيفية (LastGradeID): مفتاح خارجي (Foreign Key) من جدول الدرجات. 2. جدول الدرجات الوظيفية للموظفين (EmployeeGrades) رقم تدرج الدرجة (EmployeeGradeID): مفتاح أساسي (Primary Key). رقم الموظف (EmployeeID): مفتاح خارجي (Foreign Key) من جدول الموظفين. رقم الدرجة الوظيفية (GradeID): مفتاح خارجي (Foreign Key) من جدول الدرجات. تاريخ المنح (GrantDate): تاريخ. 3. جدول الدرجات الوظيفية (Grades) رقم الدرجة الوظيفية (GradeID): مفتاح أساسي (Primary Key). اسم الدرجة الوظيفية (GradeName): نص. العلاقات بين الجداول: جدول الموظفين (Employees) وجداول الدرجات الوظيفية (Grades): علاقة واحد إلى متعدد (One-to-Many) بين LastGradeID في جدول الموظفين و GradeID في جدول الدرجات، مما يتيح ربط كل موظف بأحدث درجة وظيفية له. جدول الموظفين (Employees) وجدول الدرجات الوظيفية للموظفين (EmployeeGrades): علاقة واحد إلى متعدد (One-to-Many) بين EmployeeID في جدول الموظفين و EmployeeID في جدول الدرجات الوظيفية للموظفين، مما يسمح بتتبع تاريخ التدرج الوظيفي لكل موظف. جدول الدرجات الوظيفية (Grades) وجدول الدرجات الوظيفية للموظفين (EmployeeGrades): علاقة واحد إلى متعدد (One-to-Many) بين GradeID في جدول الدرجات و GradeID في جدول الدرجات الوظيفية للموظفين، مما يسمح بتحديد كل درجة وظيفية منحها الموظف في أي وقت. مثالك مع الشرح: لتطبيق هذا التصميم: لكل موظف، سيكون هناك سجل في جدول الموظفين. كل مرة يحصل فيها الموظف على درجة وظيفية جديدة، يُضاف سجل جديد في جدول الدرجات الوظيفية للموظفين، مع الإشارة إلى الموظف والدرجة وتاريخ منح الدرجة. جدول الدرجات الوظيفية يحتوي على قائمة بجميع الدرجات الممكنة والتي يمكنك اختيارها عند تحديث الدرجات الوظيفية للموظفين. بهذه الطريقة، يمكنك بسهولة تتبع معلومات الموظفين وأحدث درجاتهم، بالإضافة إلى تاريخ تدرجهم الوظيفي.