AlwaZeeR

مشروع.accdb

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

من باب الاثراء لهذا المثال الجميل اضافة بسيطة لجلب اسماء الصور دون الحاجة لتعديل المسار يتم جلب المسارات للصور تلقائي مجرد فتح النموذج الخاص بالاستعراض img-links.zip

حبذا لو اضفت لسؤالك قاعدة تجريبية لكان افضل لك ولمن سيساعدك عموما اذا كان النموذج الفرعي داخل النموذج الرئيسي فيجب اجراء بعض التعريفات الخاصة ومن خلال الرسالة الظاهرة يخبرنا ان الكائن Alhaq والذي قد يكون استعلام لم يتعرف عليه من باب المساعدة: with mainfrm!subFrm.form !fildName end with هكذا يتم تعرفة الحقول من الفرعي للرئيسي او ارفق ملف للاضطلاع على الخطأ وعلاجه

الطريقة الاولى: اضف الكود التالي الى النموذج الفرعي: Private Sub Form_BeforeUpdate(Cancel As Integer) Dim Response As Integer Response = MsgBox("هل تريد الحفظ?", vbYesNo + vbQuestion, "تاكيد الحفظ") If Response = vbNo Then Me.Undo Cancel = True End If End Sub Private Sub Form_AfterUpdate() MsgBox "تم الحفظ بنجاح", vbInformation, "تاكيد الحفظ" End Sub الطريقة الثانية: ايضا في النموذج الفرعي: قم باضافة زر امر حفظ وزر امر الغاء الحفظ ثم ضع هذا الكود في حدث الزرين Private Sub btnSave_Click() On Error GoTo Err_Handler Me.Dirty = False MsgBox "تم الحفظ بنجاح", vbInformation, "تاكيد الحفظ" Exit Sub Err_Handler: MsgBox "خطأ في حفظ السجل", vbExclamation, "خطأ" End Sub Private Sub btnCancel_Click() If Me.Dirty Then Me.Undo MsgBox "تم تجاهل التغييرات التي حدثت", vbInformation, "التراجع عن الحفظ" End If End Sub

Function CalculateAge(BirthDate As Date) As Integer Dim Age As Integer Dim CurrentDate As Date CurrentDate = Date Age = DateDiff("yyyy", BirthDate, CurrentDate) If Format(BirthDate, "mmdd") > Format(CurrentDate, "mmdd") Then Age = Age - 1 End If CalculateAge = Age End Function الاستدعاء في الاستعلام هكذا: SELECT [YourTableName].[BirthDate], CalculateAge([BirthDate]) AS Age FROM [YourTableName];

هذا الخطأ يحدث لان الشاشة الرئيسية مغلقة افتح الشاشة الرئيسية ثم افتح الاستعلام وستختفي

اجعل الوحدة: Public Function وامسح المكررة في النموذج لا نحتاج الا واحدة فقط للعمل في جميع اماكن القاعدة :: تحياتي DDTestSumModule.accdb

احسنت العمل صديقي خليفة👍 اجعل الوحدة: Public Function وامسح المكررة في النموذج لا نحتاج الا واحدة فقط للعمل في جميع اماكن القاعدة :: تحياتي

وعليكم السلام ورحمة الله وبركاته طبعا ينفع عزيزي Function GetTotalSum(tableName As String, fieldName As String) As Double Dim db As DAO.Database Dim rs As DAO.Recordset Dim sql As String Dim totalSum As Double Set db = CurrentDb sql = "SELECT SUM([" & fieldName & "]) AS TotalSum FROM [" & tableName & "]" Set rs = db.OpenRecordset(sql) If Not rs.EOF Then totalSum = rs!TotalSum Else totalSum = 0 End If rs.Close Set rs = Nothing GetTotalSum = totalSum End Function ويمكنك استدعاءها هكذا: Sub TestGetTotalSum() Dim total As Double total = GetTotalSum("Orders", "OrderTotal") MsgBox "Total Sum of OrderTotal: " & total End Sub

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

لاحظ اننا منعنا التعديل الا بعد الضغط على تعديل للبحث عن صنف من قائمة لست بوكس لازم تضغط تعديل ليتم تفعيل تعديل النموذج حفظ وتعديل (1).accdb

وعليكم السلام ورحمة الله وبركاته حفظ وتعديل.accdb

db2.mdb

SELECT SUM(number + number2) AS Total FROM t1 WHERE year <> (SELECT MAX(year) FROM t1); ضعه في الاستعلام الخاص بك ثم استخدم الحقل: Total في التقرير :: تحياتي

الدقة: 1366*768

صراحة لم افهم ما تقصده ارفق صورة اذا تكرمت

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip

تفضل :: تحياتي التعامل مع wالصور.zip

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

نعم اجعل الامر اخفاء للنموذج بدل اغلاقه وعند اغلاق التقرير اعمل اظهار للنموذج وهكذا يبقى محتفظا بالتعديلات التي اجريتها عند المعاينة

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

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

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

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