jjafferr

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

في احد برامجي ، والذي كان في الخدمة لمدة 14 سنه تقريبا ، وكان منقسم الى قسمين ، البرنامج كان على الشبكة ويُستعمل طوال اليوم من 5 مستخدمين على الاقل ، كانت خاصية الضغط عند الاغلاق مُفعّلة في جزء الجداول ، وبدون اي مشكلة جعفر

هل انت متأكد ان لديك الصلاحية في شبكة الشركة بأن تحفظ الملفات؟ يبدو الامر له علاقة بشبكة الشركة وصلاحياتك (او صلاحيات المجلد الذي تحفظ الملف فيه) ، ولا علاقة له ببرنامج الاكسس جعفر

انت لم تجب على سؤالي جعفر

أخوي أبوفايز طريقتي مرنه وتشتغل على جميع النماذج الرئيسية والفرعية ، ومن الكود كذلك ونعم هناك طرق اخرى ان تنادي المعايير من عدة نماذج لإستعلام واحد ، مثلا: انا في معظم برامجي عندي نموذج واجهة البرنامج ، وهذا النموذج دائما مفتوح اثناء استعمال البرنامج (وطبعا تقدر تستخدم نموذج مخفي اذا اردت) ، فاللي ممكن ان تعمله هو ، ان تعمل حقول غير مضمنه في هذا النموذج (طبعا ستكون مخفيه) ، ثم ترسل قيمة المعايير الى هذه الحقول في نموذج الواجهة ، تغير معيار الاستعلام ، بحيث يشير الى هذه الحقول. جعفر

ولكن البرنامج الذي ارفقته انا لم يعالج هذه المشكلة ، بل انا شرحت لك الطريقة فقط ، وانت قمت بالتعديل على برنامجك على العموم ، جرب ان تحفظ الاستعلام بعد التعديل عليه ، وجرب ، ثم اغلق البرنامج ، وجرب ، فاذا ظهرت لك رسالة الخطأ ، انظر في قيمة الاستعلام هل تغيرت ام لا تزال كما كانت. وهناك سؤال آخر ، هل تقوم بعمل الاستعلام برمجيا في الكود؟ جعفر

نعم صحيح ، في النسخة الاولى من اكسس 2007 ، الضغط والاصلاح كان يتلف قاعدة البيانات ، واصلحت مايكروسوفت الوضع بإصدار تحديثات له (ولكن وللأسف الشديد ، هناك مستخدمين يستعملون البرنامج الاصلي ، وبدون اي تحديثات له طول العمر!! فلذلك ، ولهذه النسخ بالذات ، كلامك صحيح 100%) ، بس ما دمنا نتكلم عن التحديثات ، احب ان أضيف هذه المعلومة: اول تحديث للأكسس 2000 ، كان يحتوي على اكثر من 300 تصليح/إضافة. لهذا السبب ، التحديث غاية في الاهمية ، سواء لنظام التشغيل الوندوز او الاوفيس. تم استدعائي لأحد الدول لأنظر في مشكلة برنامجهم الذي كان به بعض المشاكل ، ومن ضمن هذه المشاكل فقد جزء من البيانات ، الكهرباء كانت تنقطع ولم تكن منتظمة ، وقد كانت الشبكة عندهم عبارة عن كمبيوترات لابتوب ، والسيرفر عليه UPS ، فالمبرمج الذي عمل البرنامج والشبكة لهم اخذ في الاعتبار مشكلة عدم انتظام الكهرباء بهذه الطريقة ، ولكني اكتشفت المشكلة ، والتي كانت بسبب انقطاع الكهرباء ، وهي ان المبرمج لم يضع UPS على Switch الشبكة ، فتواصل البيانات ينقطع بين الكمبيوترات والسيرفر عند انقطاع الكهرباء ، وتم حل المشكلة بربط الـ Switch بجهاز UPS اذن في هذه الحالة ، نستطيع ان نعمل التالي: 1. بأمر من الاكسس ، نعمل نسخة إضافية من برنامج الجداول ، 2. نتأكد ان نسخة برنامج الجداول موجوده ، 3. وبأمر آخر نعمل الاصلاح والتعديل ، فاذا لأي سبب تلفت هذه النسخة ، فنستطيع استعمال النسخة الاحتياط. طبعا انا هنا اعطيت البديلبسبب انقطاع الكهرباء جعفر جعفر

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

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

ايوه ، كدا الفن إلا بلاش جعفر

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

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

مرفقك مافيه تقرير!!

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

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

وعليكم السلام ورحمة الله وبركاته تفضل وهذا الكود الذي يقوم بالمهمة: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.eat = 1 Then Me.Image13.Visible = True Me.Image14.Visible = False ElseIf Me.eat = 2 Then Me.Image13.Visible = False Me.Image14.Visible = True ElseIf Me.eat = 3 Then Me.Image13.Visible = True Me.Image14.Visible = True Else Me.Image13.Visible = False Me.Image14.Visible = False End If End Sub جعفر 284.New Microsoft Access Database.accdb.zip

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

وعليكم السلام ورحمة الله وبركاته تفضل يا سيدي وبدون استعلام توحيد وتتمة لما قد تحتاجه ، انظر الرابط التالي ، والذي استعنت به لبرنامجك ، وتابعه للنهاية: http://www.officena.net/ib/topic/65067-ما-هي-طريقة-استيراد-بيانات-من-عدة-صفحات-اكسل-الى-جدول-اكسس/?do=findComment&comment=423911 جعفر 283.Import_Names_List.accdb.zip

وعليكم السلام ورحمة الله وبركاته تفضل وهذا كود حدث الحالي للنموذج form1 ، والذي عليه قمت بعملية قراءة النموذج الفرعي: Private Sub Form_Current() On Error GoTo err_Form_Current Me.aa1 = Nz(Int(Me![Text31] / 60), 0) Me.gg = Nz(Int(Me![aa1] / 7), 0) Dim rst As DAO.Recordset Set rst = Me.frm2.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If Len(rst!datee & "") <> 0 Then If Month(rst!datee) = 1 Then t1 = t1 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 2 Then t2 = t2 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 3 Then t3 = t3 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 4 Then t4 = t4 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 5 Then t5 = t5 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 6 Then t6 = t6 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 7 Then t7 = t7 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 8 Then t8 = t8 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 9 Then t9 = t9 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 10 Then t10 = t10 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 11 Then t11 = t11 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 12 Then t12 = t12 + DateDiff("n", rst![hg1], rst![hg2]) End If rst.MoveNext Next i ' ' we get a write conflict when using this method!! ' rst.MoveLast: rst.MoveFirst ' For i = 1 To RC ' If Len(rst!datee & "") <> 0 Then ' rst.Edit ' If Month(rst!datee) = 1 Then rst!DateSum = t1 ' If Month(rst!datee) = 2 Then rst!DateSum = t2 ' If Month(rst!datee) = 3 Then rst!DateSum = t3 ' If Month(rst!datee) = 4 Then rst!DateSum = t4 ' If Month(rst!datee) = 5 Then rst!DateSum = t5 ' If Month(rst!datee) = 6 Then rst!DateSum = t6 ' If Month(rst!datee) = 7 Then rst!DateSum = t7 ' If Month(rst!datee) = 8 Then rst!DateSum = t8 ' If Month(rst!datee) = 9 Then rst!DateSum = t9 ' If Month(rst!datee) = 10 Then rst!DateSum = t10 ' If Month(rst!datee) = 11 Then rst!DateSum = t11 ' If Month(rst!datee) = 12 Then rst!DateSum = t12 ' rst.Update ' End If ' rst.MoveNext ' Next i ' Forms!form1!frm2.SetFocus Forms!form1!frm2.Form.GoToFirstRecord For i = 1 To RC If Len(Forms!form1!frm2!datee & "") <> 0 Then If Month(Forms!form1!frm2!datee) = 1 Then Forms!form1!frm2!DateSum = t1 If Month(Forms!form1!frm2!datee) = 2 Then Forms!form1!frm2!DateSum = t2 If Month(Forms!form1!frm2!datee) = 3 Then Forms!form1!frm2!DateSum = t3 If Month(Forms!form1!frm2!datee) = 4 Then Forms!form1!frm2!DateSum = t4 If Month(Forms!form1!frm2!datee) = 5 Then Forms!form1!frm2!DateSum = t5 If Month(Forms!form1!frm2!datee) = 6 Then Forms!form1!frm2!DateSum = t6 If Month(Forms!form1!frm2!datee) = 7 Then Forms!form1!frm2!DateSum = t7 If Month(Forms!form1!frm2!datee) = 8 Then Forms!form1!frm2!DateSum = t8 If Month(Forms!form1!frm2!datee) = 9 Then Forms!form1!frm2!DateSum = t9 If Month(Forms!form1!frm2!datee) = 10 Then Forms!form1!frm2!DateSum = t10 If Month(Forms!form1!frm2!datee) = 11 Then Forms!form1!frm2!DateSum = t11 If Month(Forms!form1!frm2!datee) = 12 Then Forms!form1!frm2!DateSum = t12 End If Forms!form1!frm2.Form.GoToNextRecord Next i Forms!form1!frm2.Form.GoToFirstRecord Exit Sub err_Form_Current: If Err.Number = 94 Then 'null Resume Next ElseIf Err.Number = 3021 Then 'No Records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وفي النموذج الفرعي ، نتحكم في التنقل بين السجلات: Public Sub GoToFirstRecord() Me.datee.SetFocus 'Go to the first record in the subform. DoCmd.GoToRecord , , acFirst End Sub Public Sub GoToNextRecord() Me.datee.SetFocus 'Go to the next record in the subform. DoCmd.GoToRecord , , acNext End Sub Public Sub GoToLastRecord() Me.datee.SetFocus 'Go to the last record in the subform. DoCmd.GoToRecord , , acLast End Sub جعفر 282.za-Time6.12-UP1.mdb.zip

تفضل 275.2.ImportDegrees.accdb.zip

وعليكم السلام تستطيع ان تستعمل طريقتي: http://www.officena.net/ib/topic/65095-كيفية-ادخال-اسم-المستخدم-في-عامود-بجدول-تلقائيا/#comment-423739 جعفر

جرب هذا المرفق ، وفيه حساب ساعات العمل ، لكل الايام بس اذا تريد ان لا تتكرر الاسماء ، فيجب ان: 1. تحول الاستعلام الى استعلام مجاميع ، 2. جعل التاريخ معيار بين تاريخين ، ويمكنك استخدام نموذج لإختيار التاريخين جعفر 280.2.New.accdb.zip

وعليكم السلام هذه طريقتي : http://www.officena.net/ib/topic/65095-كيفية-ادخال-اسم-المستخدم-في-عامود-بجدول-تلقائيا/?do=findComment&comment=423739 جعفر