kanory

انظر ....... Test (11).accdb

هذا طبيعي لأنك طالب احصائيتين المهنة حسب النوع

هل لاحظت الصورة فيها اجمالي المهنة + اجمالي النوع وثانيا انت تريد تقرير أم قائمة منسدلة ..... اختلف الموضوع الان

انت تريدها في استعلام ام قائمة منسدلة ..... لأن مثالك الاخير لايوحي بذلك ؟؟؟؟؟؟؟ هل تريدها في الاستعلام هكذا ؟؟؟؟؟؟

اذن كل ما عليك فعله البحث في المنتدى حتى تجد ذلك الكود المبسط ...

تفضل <><><><><><><><><> all-by-yesno.accdb

اول ما تشغل البرنامج مباشرة اضغط شيفت

نعم ممكن ولكن باستخدام تصميم التقرير برمجيا ...

ابحث في الموقع تجد العديد من الموضوعات مثل هذا <><><><><><>

تفضل <><><<><><>< Test (10).accdb

كلام اخي عمر صحيح ..... بالاضافة الى ذلك انظر ....

بارك الله فيك ..... الحمد لله رب العالمين .... بالتوفيق استاذي الفاضل

هنا تجد الاجابة لمن يريد ؟

تأكد من انواع الحقول وتنسيق كتابتها : نص او رقم او تاريخ ....

Replace(Replace(Replace([text1];"/";"-");"(";"-");")";"-")

جرب المرفق ......... بحث احترافي.accdb

جرب للهجري هذا ..... Me.RecordSource = "hijriDate" وغير الجدول للميلادي بنفس الطريقة

اشر اطراءك اخي واستاذي الفاضل احمد ... بارك الله فيك

انظر يا حلو .... جرب الملف واعلمنا ..... all-by-yesno.accdb والطرق كثيره .... انت ماذا تريد بالضبط .... هل المقصد تصدير التقرير ام ماذا ؟؟؟؟؟؟

وهذه مشاركة مع اساتذتي الكرام ... مع التحية لهم جميعا ..... If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox "قم باكمال البيانات" & "(" & fld.Name & ")" & "ليس هناك بيانات في الحقل" DoCmd.OpenQuery "استعلام1", acViewNormal Exit Sub End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" Else MsgBox "هذا القيد غير موجود" End If Me.Requery Me.Text0 = Null Me.Text0.SetFocus Example.accdb

هناك مواضيع عديدة لمعالجة هذه المشكلة منها هذا الموضوع ... وهناك موضوع لاستاذي @ابو جودي .. ولكن لم اعثر عليه الان .. ابحث عنه تجده في المنتدى ...

جرب الكود التالي ...... اللجان والتصحيح7.4.accdb

نعم .... ولكن هناك مشاكل ... اعتقد يمكن حلها

ممتاز ... هذا هو الهدف من المنتدى ...