jjafferr

السلام عليكم اخي العزيز / اخي الفاضل ، لو انا كنت فاهم الموضوع بالبيانات اللي انت ارفقتها من البداية ، لو صدقني من البداية تم الحل ، ولكن ، لا يغريك المسمى اللي على اسمي ، اني خبير وووو ، فانا ان لم افهم المطلوب ، لا استطيع المساعدة!! رجاء: جعفر

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

السلام عليكم أخي عبدالله المسميات العربية نوعين: 1. اسماء الحقول والكائنات ، ومنها اسم افتراضي له امر1 ، وعند اضافة مربع نص يقوم بتسمية افتراضيا نص1 ، وليس عندي جواب لهذه الجزئية 2. واليك المثال التالي: الاسم مكتوب بالعربي ، وانا سأجعل ارتفاع هذا القسم اطول (القسم باللون الازرق) ، مستخدما الطريقة التقليدية في التسمية: . فيصبح الكود: Private Sub راس_التقرير_Format(Cancel As Integer, FormatCount As Integer) Me.راس_التقرير.Height = Me.Height + (2 * 1440) End Sub واليك التقرير التالي ، وهو نسخة طبق الاصل من التقرير السابق: . إلا اني لم اهتم بالمسميات العربية ، وانما استعملت اسماء فهرست الكائنات في التقرير ، فاصبح الكود: Private Sub Report_Open(Cancel As Integer) Me.Section(acHeader).Height = Me.Section(acHeader).Height + (2 * 1440) End Sub والنتيجة: . فقصدي هنا اننا يمكن ان نعالج جزء من المشكلة بهذه الطريقة جعفر 291.English_wordings.mdb.zip

عفوا ، نسيت ارجع الاستعلام ليقوم بأخذ القيمة من النموذج الفرعي استخدم هذا SQL للاستعلام qry_Last_Disc_End_Date : SELECT DiscountEndDate FROM Cridi WHERE DiscountEndDate Is Not Null AND EmployeeID=[Forms]![frmCridi]![frmCridi_sub]![EmployeeID] ORDER BY ID DESC جعفر

وعليكم السلام لم اتوصل لحل لأني بحاجة الى بيانات اكثر ، فالمثال الذي وضعته انت خطأ ، لأن فيه بيانات شهري 1 و 2 ، بينما اسم التقرير يقول بأن البيانات لشهر 2 !! والتاريخ ، هل نأخذه من جدول Daily؟؟ كيف والبيانات موجودة في الجدول det entry !! فرجاء تعبئة بيانات اكثر في قاعدة بياناتك ، ثم ضع مثال واضح بالارقام (يعني لا تخلي كل الارقام 5000 ، فبهذه الطريقة لن يمكنني معرفة هذا العدد ينتمي الى اي عمود). ورجاء جعل المثال واضح بالصور والاسهم (عن طريق power point مثلا) جعفر

تفضل سؤالك لم يوضح انك تريد مقارنة تاريخ بداية الخصم مع تاريخ نهاية الخصم السابق!! هذا هو الكود الجديد: Private Sub DiscountStartDate_BeforeUpdate(Cancel As Integer) 'get the last Discount End Date 'mySQL = "SELECT DiscountEndDate FROM Cridi" 'mySQL = mySQL & " WHERE DiscountEndDate Is Not Null AND EmployeeID =" & Me.EmployeeID 'mySQL = mySQL & " ORDER BY ID DESC" 'Debug.Print mySQL ' 'Dim rst As DAO.Recordset 'Set rst = CurrentDb.OpenRecordset(mySQL) 'rst.MoveLast: rst.MoveFirst 'Last_Disc_End_Date = rst!DiscountEndDate Last_Disc_End_Date = DLookup("[DiscountEndDate]", "qry_Last_Disc_End_Date") If Me.DiscountStartDate <= Last_Disc_End_Date Then MsgBox " تاريخ بداية الخصم أكبر أو يساوي تاريخ نهاية الخصم السابق" Cancel = True Me.Undo End If End Sub جعفر 289.FrmCridi.mdb.zip

وعليكم السلام خلينا نترجم كلامك الى لغة الاكسس انت قصدك بالعُهد هنا ، السجلات 1. طيب اذا كانت سجلات الشخص تتعدى الصفحة الواحدة ، مثلا صفحة ونصف ، فهل تريد ان تكتب تحت الصفحة الاولى مجموع سجلات الصفحة والنصف؟ طيب وفي نهاية سجلاته ، نهاية الصفحة ونص ، هل عندك مجموع هناك كذلك ، طبعا لا الطريقة الاسهل لحل هذه المسألة هي في التجميع والفرز في التقرير ، انظر المثال المرفق ، حيث سأعمل تجميع للحقل nam_Student (انت تستطيع ان تعمل التجميع لحقل العُهد): هذا شكل التقرير العادي ، واذا عملت مجموع العُهد ، فستأتي آخر التقرير (لآحظ لا يوجد قسم الصفحات هنا ، بدل قسم رأس وذيل التقرير) ، اضغط على 1 ، ثم 2 . الآن عملنا قسم/مجاميع خاصة للحقل nam_Student ، وظهر له رأس وذيل (وهنا تستطيع بهذه الطريقة ان تعمل مجموع العُهد في ذيل هذا القسم ، وسيكون صحيحا) . وفي الرابط التالي ، لاحظ الصورة الثانية والثالثة ، لنفس الغرض: http://www.officena.net/ib/topic/67329-حصر-اجمالي-عدد-الاجازات-لكل-موظف-في-التقرير-عنوان-معدل/?do=findComment&comment=437803 جعفر

وعليكم السلام أستاذ عبدالعزيز لوسمحت تعمل موضوع منفصل لكل سؤال ، وان شاء الله تحصل على الاجابه جعفر

وعليكم السلام بالنسبة الى اسماء اقسام النماذج او التقارير ، فيمكنك اللجوء الى اسماء البرنامج بدل الاسماء بالعربي (او حتى بدل الاسماء بالانجليزي): انظر المثال التالي: استعمل Me.InsideHeight = Me.Section(acDetail).Height * 10 بدل Me.InsideHeight = Me.Detail.Height * 10 . فمسمى Me.Section(acDetail)K هو مسمى البرنامج لجميع الاصدارات جعفر

دي حركة جامدة اوي يا سيد جمال جعفر

السلام عليكم أستاذ عبدالعزيز في مثل امريكي يقول: اذا الشئ ما مكسور ، لا تصلحه ليش غيرت اسم الحقل الى esm-altalep ؟ هذه كانت مشكلتك ، فارجعتها الى a3 ، والسلام ، طبعا شكرا انك اعطيتني رابط البرنامج الاصل ، اللي به عملت المقارنة واكتشفت الخطأ . والنتيجة: جعفر 288.المعلم اليمني1.mdb.zip

وعليكم السلام أخي كريمو في الحدث "قبل التحديث" للحقل تاريخ نهاية الخصم ضع هذه المعادلة: if StartDate >= EndDate then msgbox "Start Bigger then End" endif جعفر

هلا والله ، يا حياهم

السلام عليكم استاذ عبدالعزيز اذا سمحت لي ، فإن شاء الله انظر في موضوعك بعد كم ساعة جعفر

السلام عليكم شباب تعليقي هنا فقط للرسالة التي في الصورة: تعارض الكتابة ، والرابط التالي يشرح السبب ، وطريقة تفاديه: http://www.officena.net/ib/topic/66025-لايمكنني-خزن-قيد-بالكامل-في-برنامج-فاتورة-مبيعات/?do=findComment&comment=429754 جعفر

وعليكم السلام انا غيرت شوي على المثال السابق: . ولكن ، اذا عملت التغيير التالي على التقرير وفي المجموعات والفرز: . فالنتيجة: جعفر 286.برنامج حساب الاجازات 3.accdb.zip

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

السلام عليكم مصدر النموذج عندك عبارة عن استعلام ، وفيه انت رابط الجداول الثلاثة مع بعض ، يعني كل جدول مرتبط بقيمة حقل جدول آخر ، وعندك الجدول raetb_tamb فاضي ، لهذا السبب النموذج عندك فاضي: . عبئ الجداول بمجموعة بيانات ، ثم انظر للنتائج انا ما شفت العلاقات ونوعها. جعفر

وعليكم السلام سيدي الفاضل ، انا عملت شئ غير طلبك ، فعسى ان تقبله الاستعلام ، عملت استعلام اجمالي ، وطلبت منه ان يعطيني اول تاريخ للإجازة F ، وآخر تاريخ L : . ونتيجته: . فعملت كود لقسم تفصيل التقرير لجمع التاريخين ، حسب الشهر: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 'make the date format FF = Format(Me.F, "dd-mm-yy") LL = Format(Me.L, "dd-mm-yy") 'if both days are the same, write one of them If Me.F = Me.L Then Me.iDates = FF Else 'if the dates are different, then 'if months are the same If Month(Me.F) = Month(Me.L) Then Me.iDates = Day(Me.F) & " - " & LL 'write the day of F, and full date of L Else Me.iDates = FF & " - " & LL 'otherwise write both dates End If End If End Sub . والنتيجة ، ان تاريخ الاجازة من 1 الى 2/2 ، والسبب اني وسعت حقل التاريخ ، حيث يمكن الاجازة تصير في شهرين مختلفين ، فيسعها حجم الحقل : . جعفر 286.برنامج حساب الاجازات 3.accdb.zip

السلام عليكم الحقول: 1. الكمية2 ، وتأخذ قيمتها من المتبقي السابق ، وعند ادخال قيمة للمنصرف او الرجيع ، سترى ان قيمة الكمية2 تظهر تلقائيا ، 2. المستهلك2: وستحتسب تلقائيا من ، المنصرف السابق - الرجيع ، والا ، فانها ستكون صفر: جعفر 285.حساب الرجيع.mdb.zip

وعليكم السلام أخي عبدالله البرنامج الذي ارفقته انا في مشاركتي السابقة يقوم بنفس الفكرة ، وكذلك فكرة أخوي ابوخليل وابو عبدالله هذه الخطوة سهلة ، ولكن الصعوبة كانت في رسائل msgbox ، لأنها من الكود ، والكود يقوم على اساس ANSI وليس UTF8 مثل بقية كائنات الاكسس ، وهناك طريقتين لحل هذه المشكلة: 1. إما عمل نموذج بمسمى frm_MsgBox مثلا ، ونجعله يقوم بعمل Msgbox ، 2. وإما بإستعمال كود بديل والموجود في المرفق(وبصراحة تعبت الى ان حصلت عليه) جرب المرفق واخبرنا النتيجة جعفر

بالصورة ، ربطت الاسمين