ابوخليل

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

الحل الوحيد هو ان تجعل احد حقول الجدول مطلوب = نعم

العلاقة رأس لأطراف تكامل مرجعي SELECT tbl1.A1, tbl1.A2, tbl1.A3, tbl2.B1, tbl2.B2, tbl2.B3 FROM tbl1 INNER JOIN tbl2 ON tbl1.A1 = tbl2.B1 العلاقة رأس لإطراف مع اظهار جميع سجلات الجدول2 SELECT tbl1.A1, tbl1.A2, tbl1.A3, tbl2.B1, tbl2.B2, tbl2.B3 FROM tbl1 LEFT JOIN tbl2 ON tbl1.A1 = tbl2.B1 العلاقة رأس لإطراف مع اظهار جميع سجلات الجدول1 SELECT tbl1.A1, tbl1.A2, tbl1.A3, tbl2.B1, tbl2.B2, tbl2.B3 FROM tbl1 RIGHT JOIN tbl2 ON tbl1.A1 = tbl2.B1 مع الاخذ بالاعتبار انك سوف تدخل في كل سجل في الجدول الفرعي في حقل الطرف قيمة مساوية لحقل الرأس ولكن عندما تقوم يدويا بربط الجداول بعلاقة .. فإن اكسس يقوم هو بادراج القيمة آليا ويصبح الاستعلام الأول بهذه الصيغة : SELECT tbl1.A1, tbl1.A2, tbl1.A3, tbl2.B1, tbl2.B2, tbl2.B3 FROM tbl1, tbl2

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

السلام عليكم مداخلة لتوضيح مفهوم العلاقات 1- اخوي خليفة استخدم الحروف العربية في تسمية الحقول .. وهذا متعب برمجيا 2- اعتقد اغلب جداولك خدمية بمعنى انها ستحتوي على بيانات ثابتة ما عدا جدول واحد هو المتغير وربما اثنين لم أتأكد .. وهذا الجدول هو محل العمليات وهذا يعني ان جميع الجداول الخدمية سترتبط به بمعنى يجب ن يحتوي هذا الجدول على حقول ترتبط بالجداول الاخرى سواء بعلاقة او يكفي ضبط النوع والتنسيق 3- مادمت ستربطه بالفيجوال بيسك انصحك بترك الجداول بلا علاقات .. واستخدمها في الاستعلامات داخل المشروع ايضا شرحك للحالة مقتضب والافضل الاسترسال في الشرح مثلا هل كل حاوية تحتوي على مادة واحدة فقط او اكثر .. وتساؤلات اخرى كثيرة عملية بناء الجداول بطرق علمية صحيحة يعتبر 80% من المشروع

if Not isnull([text1]) then docmd.close end if

هو نفسه .. لا يتغير ، ما دمت ستختار

تفضل Dim cal As Integer Dim r As Date Dim i As String cal = Calendar Calendar = 1 r = CDate(hijri.Text) Calendar = 0 i = CStr(r) ymd = Format(i, "YYYY/MM/DD") Calendar = cal التاريخ2.accdb

الحمد لله على انقضاء حاجتك وكما ذكر استاذنا انها اسهل طريقة تم استخدام جدول مؤقت واستعلامين ( الحاق وتحديد ) كل هذا من اجل جزء صغير في الفلترة يتبين لنا _ وهي دروس لمن يمر من طلاب العلم _ اهمية الاعتناء بتصميم الجداول ابتداء على الطرق العلمية الصحيحة

بارك الله فيك ولماذا اغضب ؟ غفر الله لي ولكم انا اعطيتك اجابات حسب فهمي للسؤال الآن اتضح جيدا ما تريد برمجيا يمكن تنفيذ الفكرة ولكن بطريقة تحتاج الى وقت وصبر ويتم تنفيذها على النحو التالي: 1- تصبح السجلات في التقرير ثلاثة فقط ثابتة ( يمكن نضعها في رأس الصفحة بدلا من مقطع التفصيل ) 2- تكون الحقول غير منضمة .. ( مصدر بياناتها متغيرات ) 3- المسميات ثابتة للدرجات ( الاستاذ والمعلم والمفتش) كل واحد عبارة عن ليبل 4- عمل كود خاص يأخذ جميع البيانات من الاستعلام ( الأعداد حسب النوع والفوج ) على هيئة متغيرات .. حسب الاختيار من القائمة . عند نقر زر فتح التقرير تكون المتغيرات تحمل القيم المختارة هذا تصور لطريقة التنفيذ .. ولا اعدك بالعمل عليه لانشغالي الوقت الحالي.. ولعل عند احد اخوانك طريقة ايسر منها .. يتم تنفيذها من خلال الاستعلامات فقط

وهذه حسب طلبك الاخير bzy2.rar

هذه نتيجة الفلترة .. كما هو موجود في الاستعلام ,, اين التكرار هنا ... كل درجة وما يقابلها من الفوج .. والعدد تمام كما في الجدول اما الدمج الذي اتكلم عنه فهو دمج المعيار الآن انت تطلب شيئا جديدا آخر تريد دمج الدرجات المتشابهه وغض النظر عن الفوج bzy.rar

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

myWhere = myWhere & "'" & Me.lst_XX.Column(3, varItem) & "', " انا احرص على كتابة الاكواد النادرة هنا من اجل الرجوع اليها وقت الحاجة

قد وضح لك استاذنا الشايب من اين مكمن الخطأ انظر محاولته الاخيرة اعلاه لحل المشكلة

اهلا شايبنا صباح الخير كلامك في محله .. وملاحظتك دقيقة هل ترى ان اضافة الـــ ID الموجود في الجدول الى مصدر بيانات القائمة واشراكه كمعيار .. يحل المشكلة ؟ طبعا لا يمكن لأن الدرجة مجمعة وكذلك الفوج

نعم هو ما تفضلت به عملت لك كودا آخر يحدد الفوج ايضا هكذا وانظر الى المعيار في سطر فتح التقرير Dim myWhere As String Dim intNumColumns As String Private Sub funGrop() Dim varItem As Variant myWhere = "" For Each varItem In Me.lst_XX.ItemsSelected myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', " Next varItem myWhere = Left(myWhere, Len(myWhere) - 2) End Sub Private Sub fungrid() On Error Resume Next Dim varItem As Variant intNumColumns = "" If Me.lst_XX.ItemsSelected.Count > 0 Then For Each varItem In Me.lst_XX.ItemsSelected intNumColumns = intNumColumns & "'" & Me.lst_XX.Column(1, varItem) & "', " Next varItem intNumColumns = Left(intNumColumns, Len(intNumColumns) - 2) End If End Sub Private Sub cmd_Preview_Click() Call funGrop Call fungrid DoCmd.OpenReport "rap_stat_situat", acViewPreview, , "[groupe] in (" & intNumColumns & ")" & "And [grade] in (" & myWhere & ")" End Sub basey_2023.rar

تمام هل يوجد فلترة اخرى ؟ مثلا تضم الدرجات او الأفواج لأن العمل يجب ان يأخذ بالاعتبار

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

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

' دوران على السجلات If Not RS.BOF And Not RS.EOF Then 'الذهاب لآخر سجل ثم العودة لأول سجل RS.MoveLast: RS.MoveFirst ' بينما لم تنتهي السجلات While (Not RS.EOF) المتغير phone يساوي رقم الجوال في الجدول phone = RS!jawal ارسل مفتاح كنترول + الت + السلاش وهنا يقف المؤشر على مربع البحث في المتصفح Call SendKeys("^%/", True) غفوة ثانيتين Sleep 2000 ارسل قيمة المتغير التي تمثل رقم الجوال Call SendKeys(phone, True) ارقد ثانيتين Sleep 2000 ارسل انتر SendKeys "~" نوم Sleep 2000 ارسل نص الرسالة Call SendKeys(message, True) ثانيتين Sleep 2000 انتر وهنا يقوم الواتس بارسال الرسالة SendKeys "~" نوم سبع ثواني من اجل يلتقط انفاسه وينتقل الى اعلى الكود ليبدأ العملية نفسها مع رقم جوال آخر Sleep 7000

انظر هذا التعديل وافدني basey2.rar

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

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

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