jjafferr

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

تفضل إضغط على زر الاستعراض ، تطلع لك نافذة اختيار المجلد اللي فيه قواعد بياناتك ، ثم اضغط على استيراد ، فيقوم باستيراد بيانات الجدول 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 او لا تجعل اي مستخدم في هذا الحساب ، واعمل كود لا يسمح لهذا المستخدم بالدخول في قاعدة البيانات اصلا جعفر

كبير يا ابوآلآء ، كبير وانا تحت امرك اشرح لك سطر سطر هذا البرنامج بصيغة 2007-2010 ، ولا استطيع تغييرها ، لآن في الجداول حقول تجميع ، والتي لا توجد في النسخة 2003. جعفر

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

السلام عليكم 1. عملت استعلام يربط الجداول ، ويكون فيه الحقول المطلوبة: 2. ثم نموذج عادي يأخذ نتائجه من هذا الاستعلام ، وعملت نسخة من الحقول المطلوبة للبحث في الاعلى: 3. بعض الحقول تحتوي على ارقام ، واسماء هذه الحقول موجودة في جداول اخرى ، فكان لازم نغيرها من نص الى مربع سرد: وهذه طريقة ربط الجداول للحقل اعلاه: والنتيجة: 4. عملت حدث بعد التحديث لحقول البحث ، وهذا هو الكود: Option Compare Database Private Sub Form_Close() Me.Filter = "" Me.FilterOn = False End Sub Private Sub Check_Selected() Dim FF As String 'cmb_alaam_aldrasy If Len(Me.cmb_alaam_aldrasy & "") = 0 Then FF = "" Else FF = "[alaam-aldrasy] ='" & Me.cmb_alaam_aldrasy & "'" End If '--------- 'cmb_almadrasa If Len(Me.cmb_almadrasa & "") = 0 Then Else FF = FF & " And [almadrasa] ='" & Me.cmb_almadrasa & "'" End If '--------- 'cmb_alsaf If Len(Me.cmb_alsaf & "") = 0 Then Else FF = FF & " And [alsaf] ='" & Me.cmb_alsaf & "'" End If '--------- 'cmb_alsuaph_aldrasy If Len(Me.cmb_alsuaph_aldrasy & "") = 0 Then Else FF = FF & " And [alsuaph-aldrasy] ='" & Me.cmb_alsuaph_aldrasy & "'" End If '--------- 'cmb_IDalmada If Len(Me.cmb_IDalmada & "") = 0 Then Else FF = FF & " And [IDalmada] =" & Me.cmb_IDalmada End If '--------- 'cmb_IDalsahr If Len(Me.cmb_IDalsahr & "") = 0 Then Else FF = FF & " And [IDalsahr] =" & Me.cmb_IDalsahr End If '--------- If Left(FF, 4) = " And" Then FF = Mid(FF, 6) Me.Filter = FF Me.FilterOn = True End Sub Private Sub cmb_alaam_aldrasy_AfterUpdate() Call Check_Selected End Sub Private Sub cmb_alaam_aldrasy_DblClick(Cancel As Integer) Me.cmb_alaam_aldrasy = "" Call Check_Selected End Sub وتركت لك في الكود بونص انقر مرتين على اي حقول البحث ، وسيتنحذف الكلمات اللي فيه 5. والنتيجة: يا الله يا ابوآلآء ، خلينا نشوف اللي عملته ونستفيد ان شاء الله جعفر 6.برنامجي2.accdb.zip

اعتذر منك أخي عبدالرحمن على التأخير ، فانا اساعد احد الشباب في موضوع آخر ، ولما اخلص ، ساوجه تركيزي لموضوعك ان شاء الله جعفر