AlwaZeeR

=Count(IIf([QUANTITY]<>0,0))

الخطأ في الاسم المحجوز Name If Me.name استبدله باي اسم اخر وليكن Name1 مثلا

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

حسب المعادلة الظاهرة في الصورة في الشق الاول تريد القيمة الاصغر بينما في الشق الثاني هناك خطأ لان كلها C2 اين المقارنة؟؟ عموماً تفضل هذه هي المعادلة بحسب النتائج في الصورة Expr1: IIf([d2]>=[c2],[c2],[d2])

وعليكم السلام ورحمة الله وبركاته تفضل استبدل جملة الشرطية بهذه: strSQL = "UPDATE Table2 SET Table2.[check] = true where Name_Saf ='" & Me.SafCB & "'"

تفضل: If DLookup("Chair_no=1", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") And _ DLookup("PcDigt", "Tabl_bus", "Chair_no=1 " & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Then Me.S1 = DLookup("PcDigt", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Me.S1 = DLookup("[PcDigt] & ' - ' & [FName]& ' ' & [Family]", "Tabil_Emp", "PcDigt = S1") ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") < 1 Then Me.S1 = "غير مخصص" ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID And[PcDigt]=Null") = 0 Then Me.S1 = "شاغر" End If

يزيدك عافية اخي الكريم بما انه اصبح لدينا استعلام يقوم باستخراج النتيجة بشكل صحيح فيمكننا استخدامه في اي تقرير سواء كان تقرير كروكي او غيره استخدم: =DLookUp("[Result]","[Qry]","chair_No=1") مع تغيير رقم الكرسي بحسب مكانه في التقرير :: تحياتي

تفضل: تقرير.rar

تفضل عزيزي جرب ووافني بالنتيجة Waz-dlook00.rar

العفو عزيزي فهم السؤال ثلثي الاجابة والشرح الآن وافي ومفهوم ضع الكود مع تغيير رقم الكرسي حسب ما هو موجود في التقرير: =IIf(DLookUp("Chair_no","Tabl_bus","Chair_no=1 And Num_rihla=[Forms]![Frm]![Num_rihla] And [Forms]![Frm]![Num_intr]"),DLookUp("[Fname] & ' ' & [Family]","Tabl_Emp","PcDigt = " & DLookUp("PcDigt","Tabl_bus","Num_rihla=[Forms]![Frm]![Num_rihla] And [Forms]![Frm]![Num_intr] And [Chair_no]=1")),"شاغر") نأتي الآن الى الطريقة السهلة والكود الاصغر: ننشئ استعلام ونسميه مثلاً: Qry ثم نجعله مصدر التقرير ونستخدم هذا الكود: =IIf(DLookUp("[Chair_No]","[Qry]","[Chair_no]=1"),DLookUp("[Fname] & ' ' & [Family]","[Qry]","[Chair_no] = 1"),"شاغر") تفضل جرب ووافني بالنتيجة Waz-dlook.rar

وعليكم السلام ورحمة الله وبركاته خلينا نمشي خطوة خطوة لانك انت اللي فاهم الموضوع: بعيداً عن النموذج المراد ادخال القيمة فيه، دعنا نضع ارقاماً صحيحة كي نصل الى النتيجة =DLookUp("[PcDigt]","[Tabl_bus]","Chair_No = 10") هنا احضرنا رقم (PcDigt) والنتيجة = 20 حسب الجدول لديك في جدول (Tabl_Emp) لا يوجد رقم (PcDigt) بقيمة 20 كي يتم عمل شرط بينهما لاحضار الاسم الاول والاخير. عند الوصول الى القيمة الصحيحة سنستخدم امر IIF لاظهار عبارة لم يتم التخصيص أرجو التوضيح وان شاء الله سوف نصل الى نتيجة

العفو عزيزي واذا اردت استخدام استعلام واحد مباشرة من الجدول فاستبدل جملة ال ـSQl للاستعلام TResult بهذه الجملة: SELECT tt1.MidNum, tt1.empid, tt1.emprep FROM tt1 GROUP BY tt1.MidNum, tt1.empid, tt1.emprep HAVING ((tt1.MidNum) In (Select TOP 3 MidNum FROM [tt1] as TagRs WHERE TagRs.[empid] = [tt1].[EmpID] ORDER BY MidNum Desc )) ORDER BY tt1.empid;

وعليكم السلام ورحمة الله وبركاته تفضل عزيزي test00w.rar

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

استبدل هذا: Expr1: DSum("[Rest_leave]","vacations","[EmpID]=" & [EmpID] & "") بهذا: Expr1: Nz(DSum("[Rest_leave]","Vacations","Nz([EmpID],0)=" & Nz([EmpID],0) & "AND Nz([ID],0)<=" & Nz([ID],0)),0) اجازات الموظفين.rar

وعليكم السلام ورحمة الله وبركاته تفضل طريقة ادخال الايام وارقامها في حقول غير منضمة برمجيا Databasewaz.rar

عادة يتم اغلاق الاكسل بعد العمل باكثر من طريقة بعد التصدير: مع تغيير objWbk و objWbk كما هو مسمى عندك في امر الاستيراد جرب: If Not objWbk Is Nothing Then Set objWbk = Nothing f Not objXL Is Nothing Then objXL.Quit Set objXL = Nothing End If

تفضل صديقي تقريرين لكن بدون تنسيق لضيق الوقت BridSalen005.rar

تفضل db1w.rar

حياك الله يا طيب تفضل هذه القاعدة waz9999.rar تسلم يا غالي

وعليكم السلام ورحمة الله وبركاته استبدل بهذا: Expr2: IIf([Alkmiah]=0,[safi],IIf([safi]/[Alkmiah]=صواب,[safi]/[Alkmiah])) تحياتي

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

الخطأ الاول أن الاكسس لديك لا يعتمد الصور بما انك تستخدم اكسس 2003 لذلك حذفت صورة الصح والخطأ تفضل جرب ووافني بالنتيجة BridSalen004.rar

ماذا تقصد بوسط التقرير؟

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