رمهان

هذا سريعا وبعدين نسولف استاذ عبدالفتاح SELECT t1.exmid, t1.exmtotal FROM t1 WHERE (((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true") & 200))=True)); بالتوفيق

السؤال الان ماذا عن المربعات الحمراء بمشاركة الاستاذ جعفر اعلاه مثلا لو 0fx0100axxxx الاكسات الاخيره ستحذف ولكن ماذا عن الاكس الاولى هل تحذف ؟

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

حبيت اشارك بمعلومه ولا اعلم مدى اهميتها في اوفيس 2013 هناك اداة تقوم بعمل المقارنة ( انا بعرف الموضوع مش مقارنة فقط ) ولمعلومات اكثر https://support.office.com/en-us/article/Overview-of-Database-Compare-58479a8d-e4c8-4325-a670-d9a2e5f1ef5c?assetID=HA103516111&CorrelationId=48accce0-49b5-4539-aa5e-a881ce65025d&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA103516111 بالتوفيق

تمام اضف السطر التالي قبل السطر الملون if rst.recordcount=0 then exit sub ثم جرب

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

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

ان احسنت الفهم Private Sub Command12_Click() Me.sbfrmTr.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Me.sbfrmTr.Form.RecordsetClone.recordcount If IsNull(Me.sbfrmTr![Section]) Then Me.sbfrmTr![Section] = Me.Text2 If IsNull(Me.sbfrmTr![Doc]) Then Me.sbfrmTr![Doc] = Me.Text0 If IsNull(Me.sbfrmTr![zdate]) Then Me.sbfrmTr![zdate] = Me.Text6 DoCmd.GoToRecord , , acNext Next End Sub وحبذا تعديل التنسيق للعنصر Text6 الى تاريخ بالتوفيق

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

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

مشاركة مع الاستاذ اباجودي اعتقد مشكلتك كانت في كيفية الوصول للنموذج الفرعي هنا للسماح Me.NavigationSubform.Form![Table2 subform].Form.AllowAdditions = True وطبعا لعدم السماح تعديل قيمة الخاصية الى false بالتوفيق

مشاركة مع اخينا الغالي ابا جودي اولا تصحيح الجمله Case 1 Me.RecordSource = "SELECT Tbl_Result.*, Tbl_Result.Sub FROM Tbl_Result WHERE (((Tbl_Result.Sub) Like '*عربية*'));" وهكذا للمواد الاخرى ثانيا ليس من المنطقي ان تتغير الجمل البرمجيه خصوصا لو هناك عميل سيستلم البرنامج وهنا يمكنك 1. ضع حقل اضافي في الجدول المواد باسم كلمة البحث او البحث وسيكون به الكلمات التي تريد الفلترة بها 2. تشير لمربع النص الذي بالتقرير والذي سيحتوي اسم الماده والتي هي بمربع السرد بالنموذج هكذ =[Forms]![Frm_PrintComm]![Cmb_SelectSubject].[column](1) هنا لم يعد حاجة للكود سواء للبحث او للاشاره لاسم الماده فقط استعلام بالتوفيق

سؤال جميل واجابة اجمل تحياتي

بدون التسلسل SELECT tt1.Mid, tt1.mname, IIf(DCount("*","tt1","mid<=" & [mid])<=DCount("*","tt1")/2,0,1) AS Expr1 FROM tt1; تحياتي

اسف لم اركز والان فهمت ان العمليه عباره عن مجموعتين فقط مقسومه بالتساوي تقريبا الان اخي عبدالفتاح هذا فكره في الاستعلام وحسب المثال المرفق SELECT tt1.Mid, tt1.mname, IIf([mid]<=DCount("*","tt1")/2,0,1) AS Expr1 FROM tt1; ولي طلب بسيط لو تكرمت هل ممكن تطبيقها على مثالك المرفق وفي الاستعلام حيث نجحت . تحياتي

ولو اصبح عدد اسجلات: 24 او 21 7 ؟

جرب بالتوفيق

لا خلاص العمليه تمام وبرافو عليك في تطبيقها تحياتي

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

الطريقة تختص ب 2007 وما فوق

جرب وبفكره اعتقد سهله ... استخدمت استعلام ليغني عن الكود .. وطبعا يمكن ان تكون الفكره بكود وبداله تستدعى في النموذج بالتوفيق تلوين السجلات1.rar

العفو اخي حلبي لايوجد كود وانما جملة ال sql الخاصة بالاستعلام ولو تم الذهاب للتصميم يظهر الاستعلام بالشكل المعروف او بعرض التصميم لوحدتي الاستعلام عبار عن استعلام مجاميع group by ويتم التحويل لاستعلام مجاميع بالضع على علامة سيجما او المجموع من الشريط اعلى كل شهر على حده لكل موظف SELECT Enterans_Absent.ID, Format([date],"mmyyyy") AS Expr2, Sum([hdor]="غياب") AS Expr1 FROM Enterans_Absent GROUP BY Enterans_Absent.ID, Format([date],"mmyyyy") HAVING (((Sum([hdor]="غياب"))=0)); لكل سنة SELECT Enterans_Absent.ID, Format([date],"yyyy") AS Expr2, Sum([hdor]="غياب") AS Expr1 FROM Enterans_Absent GROUP BY Enterans_Absent.ID, Format([date],"yyyy") HAVING (((Sum([hdor]="غياب"))=0)); لكل يوم SELECT Enterans_Absent.ID, Format([date],"ddmmyyyy") AS Expr2, Sum([hdor]="غياب") AS Expr1 FROM Enterans_Absent GROUP BY Enterans_Absent.ID, Format([date],"ddmmyyyy") HAVING (((Sum([hdor]="غياب"))=0)); او اخرى لكل يوم SELECT Enterans_Absent.ID, Enterans_Absent.date, Sum([hdor]="غياب") AS Expr1 FROM Enterans_Absent GROUP BY Enterans_Absent.ID, Enterans_Absent.date HAVING (((Sum([hdor]="غياب"))=0)); خلال فتره فقط اكتب المعيار between ثم التاريخين وذلك في معيار حقل التاريخ اذهب لعرض التصميم في كل جمله لترى ان الامر بسيط ومجرد استخدام المجاميع مع استخدام الدالة format بالتوفيق

هل سيكون لك استفسار لاحقا اختنا بان المطلوب سيكون لكذا شهر ؟ ام فقط البيانات ستكون شهريه ؟ جرب التالي وبافتراض ان البيانات لشهر واحد او حسب قترة التواريخ الموجوده الصق هذا في محرر الاستعلام ثم تصميم لترى الطريقة SELECT Enterans_Absent.ID, Sum([hdor]="غياب") AS Expr1 FROM Enterans_Absent GROUP BY Enterans_Absent.ID HAVING (((Sum([hdor]="غياب"))=0)); بالتوفيق

السلام عليكم وعذرا على التاخير للانشغال قليلا الاستاذ شيفان مبدع باكواده الاخ ستيف كود الاستاذه زهره خاص بالتقرير وليس بالنموذج وسؤالك في الاصل يخص نموذج مستمر ذهبت للرابط وحملت المرفق ووجدتك تقول بانك حذفت الاوفيس واعدت تحميله وكنت متمنيا ان تسال في المشكله قبل اقدام على حل مثل هذا الفكره رائعة كروعة صاحبتها وهي تشابهت مع فكرتي في ان الشرط قيم بولين وتتغير في اماكن محدده ولحل المشكله في التقرير لديك وفي كود الاستاذه زهره اتوقع : عليك حذف خاصية اللون البديل لتفصيل التقرير = بدون لون no color . وان شاء الله يمشي معاك الان : اذا كان المطلوب بتقرير فهناك حل الاستاذه زهره يكفي ويمكن اختصاره اما اذا كان بنموذج مستمر : فلم تردني فكره ناضجه مختصره الى الان ولكن ان شاء الله قريب اتفرغ واركز واعود لك بحل مرضي مختصر وبعد اذن ااستاذ الخبير شيفان تحياتي