jjafferr

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

السلام عليكم أخوي رمهان انا قلت في اول الموضوع: يعني كنت اتوصل للمطلوب ، ولكن وللأسف بعد مجموعة محاولات !! وانا فاهم قصدك ، وطريقتك بتعطي الاجابة الصحيحة ، ولكن ، مو دائما انت محتاج تستعمل Format ، فمرة تحتاج ومرة لا ، ومرة M/D/YY ومرة dd/mm/yyyy ، وهكذا ، وصدقني لما عندك برنامج مستعجل وتشتغل عليه ليل نهار والزبون على راسك ، فما دائما تنتبه لـ Format ، إسألني وانا اخبرك كم مرة صارت معي ، الى ان انتبه لها بعد ما احك راسي واطيّح الشعرتين الباقيات على راسي الدالة هذه ، ومن اول مرة وتعطينا النتيجة الصحيحة ، ولأني استفدت منها ، حبيت الكل يستفيد منها جعفر

حياك الله اما السؤال الآخر ، فالرجاء عمل موضوع منفصل له ، ولكن رجاء اشرح بالضبط وبالتفصيل ما تريد ، فجملة "طريقة اظهار قيمة (الباقي) فى النموذج" لا توضح ابدا المطلوب جعفر

لا ، ماكان هذا السؤال !! السؤال كان: وانا قلت لك: فانت ما عندك تاريخ ميلاد (تاريخ الميلاد فيه اليوم والشهر والسنة) ، وانما عندك سنة الميلاد فقط. والآن ، تستطيع ان تنقص السنوات بطريقة الحساب العادية ، وتطرح السنوات من بعض. هل هذا الذي تريده ، او في شئ آخر ما شرحته لي؟ جعفر

انا كنت بأتفق معاك أخوي أبوخليل ، لو انه كان يستعمل الاكسس 2003 من مدة ، بس لأنه الآن بدأ وقال "حالياً أنا أتعلم برمجة الأكسس" ، لهذا السبب اقترحت عليه ان يبدأ بـ 2010 مباشرة ، فهي بتسهل عليه مجموعة اشياء وجزء من دفاعي عن 2010 هو http://www.officena.net/ib/index.php?showtopic=59697&p=382621 جعفر

وعليكم السلام كود الاخ رمهان هو عبارة عن مجموعة اسطر مدمجة في سطر واحد: Set img = CreateObject("wia.commondialog") Image_Path = (Application.CodeProject.Path & "\photo\" & "\\" & [id] & ".jpg") img.ShowAcquireImage.SaveFile Image_Path والان المسألة اصبحت اسهل للتعامل معها ، فالسطر الاول والاخير لا يوجد تغيير عليهم , ولكن التغيير يكون في السطر الثاني ، وهو مسار الصورة، والذي يجب ان نشتغل عليه ونتوسع فيه طلبك هو: (4) ليحفظ الصورة في (3) المجلد الفرعي داخل (2) مجلد صور الموظفين الموجود في (1) مجلد البرنامج الرئيس Set img = CreateObject("wia.commondialog") '1 Image_Path = Application.CurrentProject.Path '2 Image_Path = Image_Path & "\photo\" '3 Image_Path = Image_Path & "\" & [id] & "\" '4 Image_Path = Image_Path & [id] & ".jpg" img.ShowAcquireImage.SaveFile Image_Path وللعلم ، فالصورة التي يحفظها الكود ليست jpg وانما bmp (كما اوضحتها انا هنا http://www.officena.net/ib/index.php?showtopic=61540&p=399567 ) جعفر

وعليكم السلام انا اصوت لـ 2010 ، مع ان 2013 موجود. جعفر

انت الجميل أخونا العود أبوخليل ، ولك الشكر المتواصل على مساعداتك المتواصلة ورحم الله والديك دنيا وآخرة إن شاء الله جعفر

وعليكم السلام 1. لازم تعمل جدول يكون فيه حقل نوع الجهاز (Device) ، وحقل موديل الجهاز (Model) ، كما هو في الجدول tbl_Devices ، ويجب عليك تعبئة اسماء جميع الاجهزة وموديلاتها: 2. في النموذج ، تأخذ معلومات الحقل/كمبوبوكس نوع الجهاز ، من الحقل Devices ، في الجدول tbl_Devices ، وعلى حدث "بعد التحديث" تكتب هذا الكود ، حتى يكون محتوى الحقل موديل الجهاز حسب نوع الجهاز: Me.[موديل الجهاز].Requery Me.[موديل الجهاز] = "" 3. في النموذج ، تأخذ معلومات الحقل/كمبوبوكس موديل الجهاز ، من الحقل Model ، في الجدول tbl_Devices ، واستعلامه يكون: جعفر 85.computer.mdb.zip

وعليكم السلام أخوي أبوخليل انا قرأت الشروط ، وما فيها شئ يقول ان الملف مؤقت تسلم ايدك جعفر

وعليكم السلام أخي كريمو رجاء التوضيح أكثر بمثال ، لأني ما فهمت المطلوب جعفر

اذا كان المطلوب اجراء عمليات حسابية على حقل النص ، فالكود دائما يكون: a=val([myYear]) بينما اذا لم يكن عندك سبب في جعله حقل نص ، فاصحك بتحويلة الى حقل رقم من الان ، او لاحقا ، مادمت ما ادخلت اي شئ في الحقل غير ارقام فقط. جعفر

السلام عليكم ملاحظة: انا انزلت برنامج الاخ رمهان والاخ ابوياسر ، واتضح لي بان الصورة التي يحفظها البرنامج هو بصيغة bmp وليس jpg ، للعلم جعفر

وعليكم السلام انت لست بحاجة الى اي معيار سواء في الاستعلام او في التقرير ، "فالاستعلام مصمم ان لا يعطيك سجلات فارغة ، وانما السجلات التي بها مبالغ فقط ،" في محاولاتي السابقة ، كل عملي كان في الاستعلام ولم اتطرق الى التقارير ، لذا ، فانا لم ارها اصلا الآن وقد تم الانتهاء من السؤال الاصلي لهذا الموضوع ، اقترح ان تقفل هذا الموضوع وان تعمل سؤال جديد ، لأن الموضوع مختلف جعفر

وعليكم السلام دائما أخي أبوالعلا من السباقين وهذا الرابط به معلومات اضافية: http://www.officena.net/ib/index.php?showtopic=61511 جعفر

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

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

السلام عليكم أخي الطاهر الحمدلله ان الأمور مضت على خير رجاء لا تضع اي شروط او معايير في الاستعلام ، فالاستعلام مصمم ان لا يعطيك سجلات فارغة ، وانما السجلات التي بها مبالغ فقط ، لهذا ، فانت غير محتاج لإضافة شرط او معيار لتحقق ان لايكون TheSum = 0 ، لأنها لن تكون صفر للأشهر التي بها مبالغ مسددة ، ولكنها ستكون صفر اذا اخترت تاريخ التقرير يكون أكبر من الشهر الحالي (اي الشهر الذي لم نسدد فيه القرض بعد). جعفر

السلام عليكم أخي كريمو الظاهر من ردك انك غير راض عن لهجتي في مشاركتي السابقة !! ولكن اسمح لي ان اوضح لك شئ ، الظاهر انك لم تلاحظه ، وهو عملية السداد/الاستقطاع التلقائي لجميع الموظفين ، سواء Cridi او Elect او Others للشهر الذي تكون فيه (شهر الكمبيوتر) ، وذلك عند فتحك النموذج FrmDiscountReport ، وبدون اي تدخل منك (جرب ، غيّر شهر الكمبيوتر الى الشهر التالي ، ثم افتح النموذج FrmDiscountReport وسترى قصدي). اذا لم تكن منتبها لهذا الموضوع ، فما عساي ان افعل !! تفضل ، هذا ما دار بيننا حول هذه النتقطة: الموضوع يرجع الى مشاركتي رقم 73 في طريقة ادخال مبالع الدفع/الاستقطاع لكل موظف على حدة: في المشاركة رقم 74 ، انت قلت: وانا رددت عليك في المشاركة رقم 75: وفي مشاركتي رقم 78 عملت الزر يقوم بعملية الدفع لجميع الموظفين دفعة واحدة: في مشاركتك رقم 79 ، وبعد تجربتك لزر الدفع/الاستقطاع ، قلت: وفي مشاركتي رقم 80 ، وافقتك الرأي وقلت: وفي مشاركتي رقم 83 قلت: الحمدلله جعفر

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

السلام عليكم ورحمة الله وبركاته وبعد سنين من العمل في كود الأكسس ، لازلت الى الأمس القريب كنت اعاني من عدم حصولي على النتائج المطلوبة من الجدول (بدون مجموعة محاولات) ، اذا كان المعيار هو حقل تاريخ الى ان حصلت على الكود التالي ، والذي اصبح التعامل فيه مع التاريخ سهلا انا احفظ هذه الوحدة النمطية بإسم fDateFormat: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function وطريقة استعمال الكود كالأمثلة التالية: a = dlookup("[some field]","some table","[id]=" & me.id & " And [Date_Field]=" & DateFormat(The_Date_Field)) او ("Select DISTINCT cen, [Date] From TTTT Where [Date]=" & DateFormat(Me.Idate)) او عدة طرق اخرى اليكم مثالين في البرنامج المرفق ، كيف ان الدالة DateFormat تعطيني نتائج صحيحة مباشرة ، بينما استخدام الطريقة التقليدية للتاريخ لا تعطيني النتيجة مباشرة: الجدول يحتوي على تاريخين ، 1-5-2015 و 2-5-2015 ، وهنا سنقوم بالتجربة على التاريخ 1-5-2015 (ويمكنكم استخدام التاريخ التاثي 2-5-2015) ، وللتأكد من نتائجنا ، عملنا استعلامين : و استخدام الكود في Recordset 1. مع استعمال الدالة DateFormate Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=" & DateFormat(Me.idate)) rst.MoveLast: rst.MoveFirst RC1 = rst.RecordCount والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 2. مع عدم استعمال الدالة DateFromat ، وانما استخدام الطريقة التقليدية للتاريخ: Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=#" & Me.idate & "#") rst.MoveLast: rst.MoveFirst RC2 = rst.RecordCount والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: استخدام الدالة Dcount 3. مع استعمال الدالة DateFormat RC3 = DCount("*", "tbl_T", "[Date]=" & DateFormat(Me.idate)) والنتيجة صحيحة ، كما تدل عليه نتيجة الاستعلام في الاسفل: 4. مع عدم استعمال الدالة DateFormat ، ، وانما استخدام الطريقة التقليدية للتاريخ: RC4 = DCount("*", "tbl_T", "[Date]=#" & Me.idate & "#") والنتيجة خطأ ، كما تدل عليه نتيجة الاستعلام في الاسفل: جعفر 84.DateFormat_Examples.mdb.zip

يعني قصدك تريدن نفحص : 24 جدول 21 استعلام 28 نموذج ، وفيها 11 حدث 13 تقرير 15 ماكرو ونتوصل الى انه اي فيهم عنده مشكلة عطل فيه علاقة او كود يجعل القاعدة لاتظهر البيانات القديمة ؟؟ ولم احسب عدد الكائنات في النماذج ، حتى مالذي فيها لا يعمل !! أخي الفاضل: أهلا وسهلا بك في المنتدى ، ولكن يجب عليك ان تساعدنا علشان نقدر نساعدك جعفر

حياك الله التعديل فقط في الوحدة النمطية Count_Remaining والتي هي جزء من الوحدة النمطية الام fAdd_Observations: Function Count_Remaining(P, ID_Emp As Integer, ID_Loan As Integer, T As String) As Currency 'On Error Resume Next 'P = Payment month 'ID_Loan = Loan ID 'a = amount of Loan 'S = Sum of payments 'T = Cridi or Elec 'we need to know how much is the Loan, from tables Cridi and ElectroMeng 'and SUM the paid, from tbl_Loans, to the date specified in FrmDiscountReport If T = "Cridi" Then a = DSum("[Loan_Cridi]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan) S = DSum("[Payment_Made_Cridi]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan & " And [Payment_Month]<=#" & P & "#") 'Debug.Print "C " & vbTab & "Emp=" & ID_Emp & vbTab & " Loan=" & ID_Loan & vbTab & " S=" & S & vbTab & " a=" & a ElseIf T = "Elec" Then a = DSum("[Loan_Elec]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan) S = DSum("[Payment_Made_Elec]", "tbl_Loans", "[EmployeeID]=" & ID_Emp & " And [Loan_ID]=" & ID_Loan & " And [Payment_Month]<=#" & P & "#") 'Debug.Print "E " & vbTab & "Emp=" & ID_Emp & vbTab & " Loan=" & ID_Loan & vbTab & " S=" & S & vbTab & " a=" & a End If 'the same Record in the Query contains both Cridi and Elect, 'whereas tbl_Loans Records, contain either one of them, 'thus, when ID_Loan value does not exist in tbl_Loans, just return a Zero to the query If IsNull(a) Then Count_Remaining = 0 Else Count_Remaining = a - Nz(S, 0) End If End Function ويمكنك حذف qry_Loans_OLD و qry_Loans_Step21 اللي حصل هو: انا كلما عدلت على الوحدة النمطية ، لم تتغير القيمة في الاستعلام الى ان اضطررت النظر في تفاصيل مجاميع الوحدة النمطية ، بإضافة الامر Debug.print (سترى الامر بالكامل في الوحدة النمطية) ، وهنا اكتشفت بأنك قد ادخلت مبالغ سداد القروض لجميع الاشهر ، يعني نحن في شهرMay 2015 وعليه سداد القرض يجب ان يكون الى هذا التاريخ ، وسجل الشهر التالي June 2015 يجب ان يكون فاضي ، حيث انك لم تستقطع هذا المبلغ من الموظف بعد . وانا في المرفقات السابقة ، كنت أحذف استقطاعات جميع التواريخ التالية لشهرنا May 2015 ، ولكنك الظاهر لم تلاحظ ذلك ، وفي كل مرة ترسل لي الجدول بالمعلومات الخطأ المرفق يوضح هذا: جعفر

وعليكم السلام أخي كريمو هناك شرط لعمل البرنامج بالطريقة الصحيحة ، وهي ان تدفع قيمة قسط كل شهر في شهره ، وهذا ما يعمله لك الكود في النموذج FrmDiscountReport ، وان لا تدفع قيمة الاقساط مقدما لكل الاقساط !! وإلا فما فائدة البرنامج !! ميزة البرنامج انك تستطيع عن طريق FrmDiscountReport ان تختار اي شهر شئت (طبعا من الاشهر السابقة) ، وسيعطيك البرنامج كم كانت السلفة وكم تم الدفع و... ، واخبرتك ، ان الدفع الشهري هو توثيق بان قيمة القسط قد تم سدادها في ذلك الشهر (او قد تم سداد مبلغ اكبر مقدما). جعفر 11.8.FrmDiscountReport.mdb.zip