jjafferr

وعليكم السلام اخي ابدا لا تضع الصور في قاعدة البيانات ، وإلا فقاعدة بياناتك ستتضخم بسرعة ، ويمكن ان تصل الى مرحلة انك لا تستطيع إضافة اي سجل فيها الطريقة الصحيحة ان تعمل مجلد خارجي (والافضل ان تضعه في نفس مجلد قاعدة البيانات ، وهذا اللي عملته انا ، حتى يشتغل الكود بسهولة) ، وتعطي كل صورة رقم الطالب في المثال ، خلي مجلد الصور وقاعدة البيانات في نفس المجلد (ما يهم وين يكون هالمجلد) ، وشغل البرنامج هذا هو الكود اللي يجلب الصور ، المرتبطة بكائن الصور في النموذج: Private Sub Form_Current() On Error GoTo err_Form_Current Me.Student_Img.Picture = Application.CurrentProject.Path & "\Studnet_Images\" & Me.na & ".jpg" Exit Sub err_Form_Current: If Err.Number = 2220 Then 'image not found Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 15.School.zip

هلا والله بالمحسن

تفضل الله يطول عمرك 1. النموذج: عملت خانتين: Copy_From و Copy_To ، وزر للنسخ: والكود خلف الزر: Private Sub cmd_Copy_Click() Set rs = Me.Recordset.Clone This_ID = Me.ID rs.FindFirst "[ID] = " & Me.Copy_From If Not rs.EOF Then Me.Bookmark = rs.Bookmark DoCmd.OpenQuery "qry_Update_a_Record" 'return to the previous ID rs.FindFirst "[ID] = " & This_ID If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub 2. عملت استعلام تحديث. ونشوف النموذج والاستعلام: جعفر تعديل: أنا اعتذر ، كان في مشكلة ، وتم إصلاحه الآن 12.db1.mdb.zip

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

حيا الله أخي محسن :-) شو صار في التجربة؟ جعفر

تفضل إضغط على زر الاستعراض ، تطلع لك نافذة اختيار المجلد اللي فيه قواعد بياناتك ، ثم اضغط على استيراد ، فيقوم باستيراد بيانات الجدول data_kids من جميع هذه الملفات التي بصيغة mdb و accdb وقاعدة البيانات اللي ما يلاقي فيها الجدول ، ما يعبرها وهذا الكود اللي يقوم بعملية الاستيراد: Private Sub cmd_import_Click() On Error GoTo err_cmd_import_Click 'loop through the listbox items For i = 0 To Me.lst_Files.ListCount - 1 'import the data to the table sqAdd = "INSERT INTO data_kids" 'sqAdd = sqAdd & " IN '" & Application.CurrentProject.Path & "'" sqAdd = sqAdd & " select * From data_kids" sqAdd = sqAdd & " IN '" & Me.lst_Files.ItemData(i) & "'" 'Debug.Print sqAdd 'execute the append SQL DoCmd.RunSQL sqAdd Next i MsgBox "Done" Exit Sub err_cmd_import_Click: If Err.Number = 3078 Then 'table not found in the mdb Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 10.1.Import_Table_Data.mdb.zip

أخي محسن انزلت برنامجك ، فلم اجد فيه جدول data_kids !! كيف اعرف اسماء الحقول؟ انا طلبته منك ليساعدني لحل الموضوع!! جعفر

السلام عليكم تفضل أخي هذا البرنامج حل المشكلة: http://www.datanumen.com/access-repair/ جعفر 9.khaled2015_fixed.accdb.zip

نعم هذا صحيح ، لأننا يجب ان نفحص كل مادة اذا كانت الضريبة تنطبق عليها ، واسهل مكان لعمل هذا هو في الكود ، لذلك المجموع يتم عمله في كود النموذج الرئيسي ، في الحدث بعد التحديث لقيمة الضريبة جعفر

تفضل في خصائص الاكسس ، اختر اللي عليها الدائرة الحمراء جعفر

قيم الضريبة والخصم موجودان في نفس سجل الفاتورة ، ولابد انك ستستدعي سجل الفاتورة ، وستجد الحقلين في نفس السجل جعفر

وعليكم السلام أخي عبدالرحمن وحياك الله هذه المعادلة موجودة في النموذج الفرعي ، بينما حقل [txt_Discount] موجود في النموذج الرئيسي (او في النموذج الأُم) ، [Parent] معناه النموذج الأُم فلمناداة القيمة من الحقل الأُم ، يجب ان نخبر المعادلة بأن الحقل هناك ، هكذا: [Parent].[txt_Discount] بدلا عن Forms!Frm_EznADD!txt_Discount جعفر

تفضل 1. اضفنا حقل جديد في الجدول Items ، اسمه Taxable ، بصيغة نعم/لا (يعني المادة اللي يكون عليها ضريبة ، تختار الصح ، وإلا ، لا تختار شئ) ، لاحظ عملت جميع المواد عليهم ضريبة إلا Toshiba icore5: 2. في النموذج الفرعي ، للحقل Item_No ، اضفنا حقل Taxable ، وذلك حتى يميز الكود الفرق في ضريبة المواد: 3. وهذه النتيجة: 4. بالنسبة الى الخصم او الضريبة ، فيمكن ادخالهم باليد (يعني انك تخلي خانات ثابته للارقام المتداوله دائما ، وعندك الخيار في ادخالها يدويا كذلك). جعفر 5.1.test.mdb.zip

وعليكم السلام أخي ناصر انا عملت برنامج خاص لمثل هذه الحالات ، تستطيع استيراده الى برنامجك ، وعمل ما تريد الرابط والشرح: http://www.officena.net/ib/index.php?showtopic=58001 جعفر

وعليكم السلام أخي محسن اذا كان قصدك استيراد السجلات الى برنامجك ، فالرجاء ارفاق: 1. برنامجك الذي تريد ان تستورد اليه السجلات (اعتقد انه هو الذي ارفقته سابقا) ، وتذكر اسم الجدول اللي تريد الاستيراد له ، 2. المجلد وفيه مجموعة من الملفات والتي نريد استيراد سجلاتها الى البرنامج في الرقم #1. جعفر

في هذه الحالة ، الافضل انه نعمل حقل جديد في جدول Items ، ونسميه Taxable ، بصيغة نعم/لا ، فعند ادخال المادة لأول مرة في البرنامج: فان كانت ينطبق عليها الضريبة ، يدخل قيمة الحقل بـ نعم ، وإلا ، فـ لا . وعند حساب الضريبة ، الكود يراعي هذا الحقل ، وعلى اساسه تدخل قيمة الضريبة (او حتى لو لم تدخل ، فيكون الحساب العام يحسب حساب هذا الحقل). اذا كان هذا اللي تريده ، ومافي تغييرات لاحقه ، فنتوكل على الله ونعدل في الكود وسؤال آخر ، هل تريد اظهار قيمة الضريبة في السجل او لا. جعفر

آسف ما فهمت اللي تريده اعطني مثال لوسمحت جعفر

السلام عليكم ورحمة الله وبركاته أخي الوئام أسير الشروق ارفق لك برنامج شؤون الموظفين في المشاركة رقم 2 ، لماذا لا تستخدم هذا البرنامج كأساس ، وتزيد فيه المطلوب (ونحن نساعدك) ، وتغير فيه ما شئت (ونحن نساعدك) ، لأنه في نهاية الأمر ، برنامجك سيتوسع ويصبح نوعا ما مثل هذا البرنامج جعفر

وعليكم السلام ورحمة الله وبركاته أخي عبدالرحمن 1. هي تعمل هكذا الان ، 2. مسألة إخفاء الحقول سهلة ، ولكني لا اراها واقعية ، 3. تستطيع إخفاء الحقول في النموذج الرئيسي ، ولكن لا تصفرها ، لأن حقلي الضرائب مرتبطة بنفس المصدر ، فاذا صفرت من مكان ، اصبحت النتيجة صفر للحقل بالكامل ، 4. انا في اعتقادي انه: اذا الضريبة ستكون واحدة لجميع اصناف الفاتورة الواحدة ، فلماذا وضعها في سجل النموذج الفرعي اصلا!! لاحظ بأننا الان نحفظ الضريبة والخصم في الجدول Ezn_ADD في سجل الفاتورة ، وكما تتم عملية الخصم على الفاتورة الكلية ، يجب ان تتم عملية الضريبة على الفاتورة الكلية كذلك ، بدون حفظها في النموذج الفرعي لكل سجل على حدة جعفر

السلام عليكم أخي عبدالرحمن اعتذر عن التأخر في الرد عليك الحقول في المربعات الحمراء هي التي قمت بالعمل عليها ، واما بعض الحقول القديمة والتي في الدائرتين ، فلم استعملهم في البرمجة ، فيمكنك حذفها ان شئت عن تغيير قيمة خانات الضريبة والخصم في النموذج الرئيسي ، فانها تعكس نتائجها مباشرة في النموذج الفرعي ، الضريبة لا تزال موجودة في سجلات النموذج الفرعي ، ونتائجها تعمل على المجموع ، ولكن الخصم يعمل على المجموع فقط تم إضافة حقلين في الجدول Ezn_ADD وهما Tax و Discount ، وهذا الكود الذي يعمل على الحدث بعد التحديث للضريبة والخصم: Private Sub Opt_Discount_AfterUpdate() 'get the Discount for the option Call txt_Discount_AfterUpdate End Sub Private Sub txt_Discount_AfterUpdate() 'just need to Requery, so that the Discount can be taken from the Main/Parent Form Me.Sub_EznADD.Form.Requery End Sub Private Sub opt_Tax_AfterUpdate() 'get the Tax for the option Call txt_Tax_AfterUpdate End Sub Private Sub txt_Tax_AfterUpdate() 'Apply ONE Tax on the whole invoice in the SubForm Sub_EznADD 'if Tax selected in txt_Tax = 10 , this means 10% Set rst = Me.Sub_EznADD.Form.Recordset rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC Me.Sub_EznADD!Out_Tax = Me.txt_Tax / 100 rst.MoveNext Next i End Sub جعفر 5.test.mdb.zip

وعليكم السلام الظاهر انك لعبت وجربت مجموعة اشياء في الخيارات اختار التالي: جعفر

حياك الله أخي عبدالفتاح في ملاحظاتي التي شرحت فيها البرنامج ، انا قلت بالنسبة للترقيم: رجاء إخباري اذا كان في شئ غير هاتان الملاحظات جعفر

نصيحة: احذف حساب الـ Admin ، لان جميع قواعد البيانات اسم المستخدم لها هو Admin او لا تجعل اي مستخدم في هذا الحساب ، واعمل كود لا يسمح لهذا المستخدم بالدخول في قاعدة البيانات اصلا جعفر