.Azhar

ماذا تقصد بعزلهم هل تقصد فلترتهم في الفورم نفسه ام ماذا ؟ اذا كنت تقصد فلترة للذين لديهم كفالة عقارية وبعدها الذين لديهم كفالة شخصية راجع هذا المثال . http://www.officena.net/ib/index.php?showtopic=55712&hl=

بعد اذن الاخ الاستاذ علي هذه الخاصية تسمى Totals وهي موجودة في 2007 و 2010 و 2013 وتعمل هذه الخاصية على الجداول والنماذج والتقارير . وتتضمن الدوال مثل sum و Count و Avg و Max وهي دوال لجمع الارقام وجمع عدد النصوص والمعدل المتسوط الحسابي والمعدل الاعلى . لكن كل هذه الامكانيات تستخدم من خلال فتح قاعدة البيانات والدخول الى تفاصيلها . بمعنى ان المبتدأ في قواعد البيانات من الممكن ان يتسبب بانهيار قاعدة البيانات . فمثلا الداله Avg هي لاخراج الوسط الحسابي لعدد معين فمثلا لدينا الارقام 44 و 5 و 2 فعند اختيار الداله Avg يظهر لنا الرقم 17 وهو الوسط الحسابي لجمع 44+5+2 =51 /3 = 17 في حالة واحدة نستطيع استخدام هذه الخاصية هي من خلال تحويل العرض للنموذج او التقرير الى خاصية (Layout View)

مثال للتراجع عن التعديل او الادخال للفورم الرئيسي والفورم الفرعي في ان واحد . التراجع عن تعديلات.rar

شكرا لك استاذ علي , على هذا الاطراء . انشاء الله انزل مثال اخي محمد

مبدع استاذ ابو خليل اكثر ما عجبني بهذا البرنامج هو هذا ههههههههه خطير انت SELECT TOP 10 tbl_main.dissent_name, tbl_main.dissent_id, Count(tbl_main.dissent_id) AS cc FROM tbl_main GROUP BY tbl_main.dissent_name, tbl_main.dissent_id HAVING (((tbl_main.dissent_name) In (SELECT [dissent_name] FROM [tbl_main] As Tmp GROUP BY [dissent_name] HAVING Count(*)>1 ))) ORDER BY Count(tbl_main.dissent_id) DESC;

تضع هذه الاكواد لكل فورم الرئيسي والفرعي باستثناء الكود الاخير تضعه فقط على النموذج الرئيسي . هذا الكود تضعه في الفورم الرئيسي Private Sub Command13_Click() On Error GoTo Command13_Click_Err On Error Resume Next DoCmd.RunCommand acCmdSaveRecord If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command13_Click_Exit: Exit Sub Command13_Click_Err: MsgBox Error$ Resume Command13_Click_Exit End Sub وهذان تضعهم في الفرعي والرئيسي / الاخذ بعين الاعتبار اسماء الازرار Private Sub Form_Undo(Cancel As Integer) If bPreventClose Then Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) If bPreventClose = True Then Cancel = True End If bPreventClose = False End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) Dim UserResp As Integer UserResp = MsgBox("انقر نعم للتراجع او لا للحفظ ... سيتم التراجع عن التغيير", vbYesNoCancel) Select Case UserResp Case vbNo Cancel = True Me.Undo bPreventClose = False Exit Sub Case vbCancel bPreventClose = True Cancel = True Exit Sub Case Else bPreventClose = False End Select End Sub

بعد اذن الاستاذ علي اخي العزيز الاكسس بمجرد الانتقال من حقل الى اخر يقوم ذاتياً بحفظ السجل . يجب عليك وضع زر تراجع في الفورم الرئيسي والفرعي او اعتمد هذه الاكواد Private Sub Form_Undo(Cancel As Integer) If bPreventClose Then Cancel = True End If End Sub Private Sub Form_Unload(Cancel As Integer) If bPreventClose = True Then Cancel = True End If bPreventClose = False End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) Dim UserResp As Integer UserResp = MsgBox("انقر نعم للتراجع او لا للحفظ ... سيتم التراجع عن التغيير", vbYesNoCancel) Select Case UserResp Case vbNo Cancel = True Me.Undo bPreventClose = False Exit Sub Case vbCancel bPreventClose = True Cancel = True Exit Sub Case Else bPreventClose = False End Select End Sub Private Sub Command13_Click() On Error GoTo Command13_Click_Err On Error Resume Next DoCmd.RunCommand acCmdSaveRecord If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command13_Click_Exit: Exit Sub Command13_Click_Err: MsgBox Error$ Resume Command13_Click_Exit End Sub

تحياتي لك استاذ على عمل جميل لكن من حيث علم الرياضيات وقواعد البيانات انه خطأ حيث ان المعادلة الخاصة بالنسب المئوية هي :- مثلا . قيمة الحيود هي 0.21 حيث ان النسبة المئوية العليا هي 100% فنقول 0.21 * 100 = 21% هي نسبة انجاز الحيود . وهذا ما يظهر لنا في مؤشر الرسم الملون الخاص بالحيود . وهكذا الى نهاية الحقول الاخرى . حيث ان 1* 100 = 100 ولذالك تكون قيم النسب المئوية في البرمجه هي 1 وليست 100 وهذا يأتي من تقسيم 100/100 =1 تحياتي لك استاذ علي .

تفضل هذا هو التعديل may.rar

انت تأكد من تواريخ حقول التاريخ في الجدول لان المخطط البياني يستند على المدخلات في الجدول وسجلاته . بمعنى لو مسحنا كل السجلات سوف نلاحظ عدم وجود نسب في المخطط البياني .

وهذا تعديل اخر التعديل الاول لا يقبل 100% يقبل لحد 99% تم تعديل المرفق وايضا تم وضع اسم المشروع في المخطط البياني في الصفوف الاولى . may.rar

جدولك الاساسي الذي يستند له المخطط البياني هو خطأ , لان خصائص الحقول هي رقم وليست نسبة مئوية . وهذا الجدول اذا بقيه بهذه الخصائص سوف يتم قرأة هذه الحقول في كل من الاستعلامات والنماذج والتقارير على انها ارقام صحيحة وليست نسب مئوية . وكذلك المخطط البياني فانه يعتبرها ارقام وليست نسبة مئوية هذا تعديل مع البقاء على ان لا تزيد النسبة المئوية عن 100% جدول انجاز العمل.rar

ارفق لكم مثال 2003 و 2007 لثلاثة امثلة لحركات النص جميلة جدا تستطيعو الاستفادة من الكود في برامجكم . حركات النص.rar

لا يمكن ان يكون حقل الاجماليات في الجدول , يمكن ان تكون الاجماليات في الاستعلامات او التقارير او النماذج . لاحظ هذا المثال . db1 (1).rar

قم بفتح قاعدة بيانات فارغه وقم باستيراد كافة محتويات قاعدة بياناتك القديمة واحفظها باسم مختلف . اي اصدار اكسس تستخدم ؟ واذا لم تنفع العملية ارفقها هنا .

DoCmd.SearchForRecord , "", acFirst, "[ID] = " & Str(Nz(Screen.ActiveControl, 0)) يجب ان يستند مربع التحرير والسرد الى استعلام . وضع هذا الكود في حدث بعد التحديث اذا كان للبحث في معلومات , واذا كان لا فلا تحتاج سوى للاستعلام .

المشكلة الاولى والتي هي تقييد المستخدم بعدم عبور النسبة 100% هذا حلها في المرفق يوجد حقل تم تضليله باللون الاصفر . عند ادخال قيمة اكثر من 100% سوف تظهر رسالة تحذير . If Me.[Text44] > 1 Then MsgBox "يجب ان لا تزيد النسبة عن 100%", vbCritical + vbOKOnly, "تحذير" End If جدول انجاز العمل.rar

طيب هذا هو تعديل للمرفق الخاص بك جدول انجازات.rar

انظر الى هذا المرفق وانظري الى الفورم frmPerc وايضا الفورم frmcharts Database3.rar

ارسل لي مرفق استاذ علي انا متأكد هنالك كود زائد http://answers.microsoft.com/en-us/office/forum/office_2010-access/convert-from-an-accdb-file-to-the-accde-format/3eff5366-1702-457a-9ef5-5abb94026c8f

اوك Table1 هو اسم الجدول غيره حسب اسم الجدول لديك . اما na هو اسم الحقل في جدولك الذي يستند له التصفيه

اسف للتأخر عن الرد هذا شرح مفصل بالفيديو لعمل الاداة Layout view وهذه الاداة تستخدم على حد سواء في التقرير والنماذج ايضا .

تفضل اخي ابو عبد الله هذا شرح Pdfمفصل لكيفية عمل صلاحيات وتغيير الباسوورد . Password.rar

تفضل هذا 2003 Database12003.rar

استاذ علي يوجد لديك كود زائد في VBA احذفه حتى يتم التحويل