jjafferr

السلام عليكم اذا كان هذا الذي تريد: . فالكود اصبح: Option Compare Database Dim rst As DAO.Recordset Function Get_Dates(ID) mySQL = "Select * From tbl_Loans" mySQL = mySQL & " Where [EmployeeID]=" & ID mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear] mySQL = mySQL & " Order by Payment_Month" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For I = 1 To RC Get_Dates = Get_Dates & vbCrLf & rst!Remarks rst.MoveNext Next I Get_Dates = Mid(Get_Dates, 3) ' If RC = 1 Then ' ' Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy") ' Else ' ' For I = 1 To RC ' ' If I <> RC Then ' ' Get_Dates = Get_Dates & " and " & Month(rst!Payment_Month) ' Else ' ' Get_Dates = Get_Dates & " AND " & Format(rst!Payment_Month, "m/yyyy") ' End If ' ' rst.MoveNext ' ' Next I ' ' Get_Dates = "Discount for the months " & Mid(Get_Dates, Len(" and ")) ' ' End If End Function جعفر

سيدي الفاضل لما تنقص رقم صغير من رقم كبير ، فلابد وان تكون النتيجة بالسالب ، وهذا ما يظهر لك بإشارة - وجربت المرفق ، ولم يحذف السجل ، ولكني لاحظت ان ترتيب الانتقال من حقل الى آخر غير صحيح ، لاحظ الصورة ، فالارقام الحمراء هي التسلسل ، والحقل m_id مثلا ، بدل ان تكون قيمته 1 ، فانها 3 !! . اذا لم افهم طلبك ، رجاء التوضيح اكثر جعفر

البركة في سعيد :) جعفر

لا ، وانما المشكلة في اي لغة / حروف غير اللغة الانجليزية ، فاذا استخدمت حروف اللغة الفرنسية مثلا ، ولأن بها حروف غير Unicode ، فستظهر لك المشكلة :( جعفر

اذا فهمت قصدك صح: 1. بالنسبة الى خصم من الراتب لشهر x و yyyy/mm ، فيظل مثل ما عملته ، 2. اذا تم الدفع بطريقة اخرى ، تريدها ان تٌكتب ؟ جعفر

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

انا لا اعرف رقم الخطأ ، ولكن الطريقة صحيحة ، حيث انك تقرأ اي معلومة من اي جدول ، واذا لم تصل المعلومة الى الكود ، فتعرف ان الاتصال انقطع :) طيب واذا في انقطاع ، ماذا يجب على البرنامج عمله ؟؟ انا كان اقتراحي وجود جداول محلية ، وعند وجود الشبكة ، يتم تصدير البيانات :) جعفر

اذا كان قصدك الكتابة بالعربي ، فللأسف لا استطيع ، لأني على سفر واللابتوب مستعار ، والاكسس لا يكتب عربي في الكود ، ولا استطيع تغيير اعدادات الكمبيوتر :( ولكنك تستطيع عمل هذا بكل بساطة ، بتغيير الكلمات من انجليزي الى عربي :) فهل قصدك انك تريد ان يكون الجواب ، لكل شهر سطر؟ يعني اذا كانت الدفوعات لشهرين ، تريد ان يكون الجواب سطرين ، واذا كانت الدفوعات لثلاثة اشهر ، تريد الجواب ان يكون 3 اسطر؟ جعفر

السلام عليكم أخي محمد :) رجاء ارفاق البرنامج مرة اخرى ، فالبرنامج لا يعمل :( جعفر

هذا الكلام صحيح ، والطريقة الاصح هي استخدام Recordset لقراءة المعلومة ، وهناك كود لربط الواجهة FE بالجداول BE ، اعتقد يمكن استعماله بتغيير بسيط للتأكد من وجود الشبكة :) انا على سفر ولا املك برامجي لوضع مثال :) جعفر وهناك طريقة سهلة وهي عمل ping للكمبيوتر الذي به الجداول ، ومعرفة اذا كان متصل :-)

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

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

السلام عليكم :) لا يُنصح بإستخدام الاكسس في شبكة وايرلس ، لأن الشبكة حتى لما تعمل بالطريقة الصحيحة ، فإنها تكون متقطعة ، فعليه تكون مشكلة في تواصل البيانات :( احد الطرق اللي ممكن تستعملها هي ، ان تكون نماذجك غير مضمنه / غير مربوطه بجدول او استعلام ، ويكون عندك زر لحفظ البيانات ، وقبل حفظ البيانات في الجدول ، يجب ان تقرأ من الجدول (تقرأ اي شئ ، فقط للتأكد ان الشبكة موجودة) ، وعندها تحفظ البيانات ، الطريقة الاخرى اللي على بالي هي ، ان تكون بياناتك محلية ، وبين كل فترة ، يقوم البرنامج ، وبعد التأكد من وجود الشبكة ، بنقل البيانات الى قاعدة البيانات الاصل :) جعفر

ما فهمت قصدك :-(

وعليكم السلام :) 1. انا جربت الكود قبل ان اضعه ، وجربته مرة اخرى الان ، وهو يعمل كما يجب ، فما قصدك انه "لا يقوم بتعديل القيمة في الجدول ويعطي احياناً اشارات -" 2. حتى ولو اخفيت السجل الجديد "والذي يظهر فيه New" ، فالمستخم يستطيع ان ينتقل الى الحقل الجديد وبدون ان يملئ بيانات الحقل الذي هو عليه ، فالطريقة الصحيحة لإجبارة ، هي كما اقترحت عليك. جعفر

السلام عليكم :) تفضل :) الاستعلام: . الوحدة النمطية: Option Compare Database Dim rst As DAO.Recordset Function Get_Dates(ID) mySQL = "Select * From tbl_Loans" mySQL = mySQL & " Where [EmployeeID]=" & ID mySQL = mySQL & " And Year([Payment_Month])= " & [Forms]![FrmOtherDiscountReport]![txtYear] mySQL = mySQL & " Order by Payment_Month" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If RC = 1 Then Get_Dates = "Discount for the month " & Format(rst!Payment_Month, "m/yyyy") Else For I = 1 To RC If I <> RC Then Get_Dates = Get_Dates & " and " & Month(rst!Payment_Month) Else Get_Dates = Get_Dates & " AND " & Format(rst!Payment_Month, "m/yyyy") End If rst.MoveNext Next I Get_Dates = "Discount for the months " & Mid(Get_Dates, 5) End If End Function . النتيجة: . والتقرير: . جعفر Discount.zip

السلام عليكم انا على سفر ، وبعيد عن الكمبيوتر ، لهذا السبب انا بعيدا عن المنتدى عندي ملاحظة واحدة فقط ، وبحسب خبرتي في هذا الموضوع: الكمبيوتر يعطي أولوية تنفيذ أوامر CPU إلى برامج الوندوز ، ثم البرامج الاخرى ، مما قد يُؤخر تنفيذ أوامر برنامج الاكسس ثانية او اثنين ، إذًا ، عند تنفيذ الأمر التالي او أمر مثله: If rs!mish_time = Time() Then قد يكون CPU الكمبيوتر مشغولا ، وعند تنفيذ الامر ، الوقت لن يكون مطابقاً ، لأننا نقارن الوقت بالثواني ، وحينها ، فالمعادلة لن تُنفّذ !! لذلك ، ولتفادي هذه المشكلة ، اجعل مقارنة الوقت: إما بالساعة والدقيقة وبدون ثواني ، وإما اجعل المقارنة ">=" بدل "=" ، او شئ من هذا القبيل ، وإلا ، فقد يفوتك موعد ولن تعرف لماذا جعفر

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

وعليكم السلام برنامجي: يقوم بربط الصور من الاسكانر ، في مجلد تابع لمجلد البرنامج ، و ربط الصور بدون حقول في الجدول. جربه ، وانقله بين مجلدات الكمبيوتر وسترى انه يعمل بكفائة ولاحظ طريقة تسمية الصور ، فبالتالي تستطيع ان يكون عندك أي عدد من الصور للسجل الواحد جعفر

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

وعليكم السلام انت عندك 3 صور تستعملها في برنامجك ، واحدة منها موجودة في مجلد البرنامج ، ولكن الصورتين الباقيتين ما موجودات. الصور الثلاث لازم يكونوا في مجلد البرنامج ، وأخبرنا النتيجة جعفر

السلام عليكم موضوع ان النموذج/التقرير منبثق دوخة رأس ، وانا نادرا استخدمه ، المشكلة بدأت من الاكسس 2007 لما مايكروسوفت عملت لسان لكل كائن يتم فتحه: نموذج/جدول/استعلام/تقرير ، وهذه الطريقة غير محبذه للمبرمجين ، فذهبوا لحل المشكلة عن طريق النماذج/التقترير المنبثقة ولكن هنا ك طريقة سهلة لعمل النماذج/التقارير خارج اللسان ، وبدون "منبثقة" : لاحظ لسان اسم النموذج ، وهذا ما سنلغيه: . وعلشان يتم حل الموضوع ، الكثير يستعمل نموذج منبثق لحله: . بينما نسنتطيع ان نأتي الى اعدادات الاكسس: . والنتيجة تصبح حسب المطلوب ، ونموذج غير منبثق: . أحد العيوب الكبيرة في النماذج المنبثقة انه يجب فتح نموذج/تقرير واحد ، فالنموذج/التقرير الجديد الذي يتم فتحه يكون خلف النموذج المفتوح من قبل ، بينما في الطريقة العادية ، لا نعاني من هذه المشكلة ، فكل نموذج/تقرير تفتحه ، فيكون تلقائيا امام النموذج السابق جعفر

تفضل A = IIf([N38] = 0, 0, IIf([N38] <= 41.667, [N38] * 1.2, IIf([N38] <= 50, 50, [N38]))) B = IIf(TOTAL = 0, 0, IIf(TOTAL <= 499.999, TOTAL + 50, IIf(TOTAL >= 500, IIf(TOTAL <= 1818.1818, TOTAL * 1.1, IIf(TOTAL >= 1818.1818, IIf(TOTAL <= 2000, 2000, TOTAL)))))) + O39 + O38 C = IIf(TOTAL = 0, 0, IIf(TOTAL <= 499.999, "B.D. 50.000 Mobilization premuim calculated", IIf(TOTAL >= 500, IIf(TOTAL <= 1818.1818, "10% Mobilization premuim calculated", IIf(TOTAL >= 1818.1818, IIf(TOTAL <= 2000, "Mobilization premuim adjusted with total", "no mobilization premuim calculated")))))) جعفر

تفضل هذا الرابط به كود قراءة الريجستري: http://vba-corner.livejournal.com/3054.html بس عليك ان تأخذ اسم الفلاش من الرابط السابق ، ثم تستعمل هذا الكود جعفر

لاحظ امر الكود ، هو نفسه الذي انت ذكرته: Me.[Mob].NumeralShapes = 1 وطبعا National مش راح ينفع ، شوف رقم واسم العربية من جدولك (وجرب بقية الاخيارات كذلك): بس في شغله لازم تعرفها ، وهي: لاحظت في بعض كمبيوترات المستخدمين ، الانتقال من حقل به هذا التنسيق الى حقل آخر يكون بطئ ، ولكن بعد تحديث الاكسس بتحديثات مايكروسوفت ، اصبحت تمام جعفر