jjafferr

الحمدلله انك قدرت تخلص العمل

السلام عليكم في موضوعك السابق . انا قلت: . فإذا كان برنامجك بصيغة accde او mde ، فالاكسس يحتفظ بالكود بصورة لا يمكننا رؤيته ، ولو ان السيد جمال له حديث في هذا الموضوع . اما اذا كان برنامجك بصيغة accdb او accdr او mdb ، فنعم يمكن فك كلمة السر والدخول في الكود ، ولكن ، عن طريق محترف قاصد ان يدخل في الكود بأية طريقة ، وانا لست منهم جعفر

وعليكم السلام أخوي علي تفضل هذا الرابط ، ردا على سؤالك جعفر

السلام عليكم من تجربتي ، وبسبب اختلاف اعدادات الوندوز ولغاته ، توصلت لعمل جدول خاص للاشهر tbl_Months ، ممكن اعدادات الوندوز تظهر الشهر بصيغة December ، او ديسمبر ، او كانون الاول . . ولكنك تريد ان يظهر عندك الشهر بأحد هذه الصيغ ، بغض النظر نظام اي كمبيوتر يعمل عليه برنامجك ، فيمكنك قراءة الطريقة التي تريدها من الجدول ، كما هو واضح في المثال . وهذا الكود كمثال فقط ، عن طريقة مناداة الحقول من الجدول: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1_System = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2_System = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") ' 'use the following Functions to get the integer number of: 'Today= 22 December 2017 'Day(Today) = 22 'Weekday(Today) = 6 'Friday 'Month(Today) = 12 'December 'Year(Today) = 2017 ' Me.Day_table_Arabic = DLookup("[Days_Arabic]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Day_table_English = DLookup("[Days_English]", "tbl_Months", "[Months_Number]=" & Weekday(Me.myDate)) Me.Month_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Month_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = DLookup("[Months_Georgian]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Georgian = Day(Me.myDate) & " " & Me.Date_Table_Georgian & " " & Year(Me.myDate) Me.Date_Table_Iraqi = DLookup("[Months_Iraqi]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_Iraqi = Day(Me.myDate) & " " & Me.Date_Table_Iraqi & " " & Year(Me.myDate) Me.Date_Table_English = DLookup("[Months_English]", "tbl_Months", "[Months_Number]=" & Month(Me.myDate)) Me.Date_Table_English = Day(Me.myDate) & " " & Me.Date_Table_English & " " & Year(Me.myDate) End Sub وبعدها توسعت في الجدول واستفدت منه لأشياء اخرى جعفر tbl_Months.mdb.zip

حياك الله ولكن النصيحة ان تحول برنامجك الى برنامج مقفل ، مثل accde او mde ، حيث الاكسس يخفي الكود من اصله ولا تراه ولا تستطيع تغييره ، بينما هناك طرق وبرامج لفتح قفل الـ VBA جعفر

السلام عليكم بعد البحث ، اتضح ان هذه طريقة يستخدمها بعض المحاسبين والتي تسمى 30/360 ضع الكود في وحدة نمطية: Public Function Set_30(Date1 As Date, Date2 As Date) As Integer ' ' The basic 30/360 calculation ' From ' https://sqlsunday.com/2014/08/17/30-360-day-count-convention/ ' 360*(@y2-@y1) + 30*(@m2-@m1) + (@d2-@d1) ' ' converted to VBA by jjafferr on 20/12/2017 ' Dim D1 As Integer Dim D2 As Integer Dim M1 As Integer Dim M2 As Integer Dim Y1 As Integer Dim Y2 As Integer D1 = DatePart("d", Date1) D2 = DatePart("d", Date2) M1 = DatePart("m", Date1) M2 = DatePart("m", Date2) Y1 = DatePart("yyyy", Date1) Y2 = DatePart("yyyy", Date2) Set_30 = 360 * (Y2 - Y1) + 30 * (M2 - M1) + (D2 - D1) End Function . ثم في الاستعلام ، ننادي الوحدة النمطية هكذا: Number_of_Days: Set_30([Start date],[End Date]) جعفر

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

وعليكم السلام طيب وشهر 2 كيف تتعامل معاه؟ جعفر

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

أخي الفاضل hh88 اعتذر منك ، ولكنك خالفت احد شروط المنتدى: قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف تم تعديل الموضوع. جعفر

كنت اعتقد انك تريد حل المشكلة الظاهر انك فهمت قصدي غلط ، فخليني اشرحه: المعادلة الجديدة هي: = NZ ( aaaa ;0) aaaa بدل اكتب المعادلة كلها ، بإستثاء علامة اليساوي يعني بدل aaaa ضع معادلتك مال iif بالكامل جعفر

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

وعليكم السلام جرب = NZ ( iif( .... );0) جعفر

وعليكم السلام تفضل . جعفر

وعليكم السلام سؤالك يحتاج الى توضيح اكثر لوسمحت ، وياريت مثال. جعفر

وعليكم السلام تفضل ، السر في الاستعلام ، . في النموذج اختار من الحقل الذي تريد (وحتى يمكن ترك الحقل الآخر فارغ ، حتى يعطيك جميع الاختيارات فيه) . جعفر 812.الموظف.accdb.zip

ومشاركة مع اخي ابو آدم يمكنك استخدام SELECT TOP 1 Field1 FROM table1 WHERE Field1 In (SELECT TOP 2 Field1 FROM table1 ORDER BY Field1 DESC) ORDER BY Field1; جعفر

الامر Switch يقارن القيم التي اعطيتها ، وانت القيم الموجودة عندك هي 1 او 29 للحقل Cridi_ID ، بينما في واقع الامر ، الصورة التالية تبين ان قيمة الحقل Cridi_ID هي صفر (يعني ليست القيمة التي تقوم بمقارنتها) والحقل Payment_Period ليس فيه قيمة في النموذج الفرعي (اي ان قيمته Null) ، لذلك ، فنتيجة المتغير Dcode = نفس نتيجة الحقل Payment_Period والذي هو Null ، يعني النتيجة عندنا Decode = Null ، ولكنك في اول الحدث قلت: Dim Dcode As Integer و Null هو Boolean وليس Integer ، وهو الذي يسبب رسالة الخطأ. بينما اذا رجعت الى ملاحظتي السابقة ، حيث تكون قد ادخلت قيمة للحقل Payment_Period ، فعليه تصبح نتيجة المعادلة: Dcode = Payment_Period ، والذي هو رقم صحيح Integer. جعفر

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

انا اعتذر منك اخي ابو آدم ، فلم اكن اعرف انك الاستاذ القدير نارت لبزو ، النار على علم فأهلا وسهلا بعودتك بيننا في بيتك ، منتدى الاكسس جعفر

وعليكم السلام اخي كريمو لم تطلع لي رسالة الخطأ جعفر

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

تسلم ايدك أخوي أبو آدم اجزت واوفيت ، وهذا رابط أخوي ابو خليل جعفر

السلام عليكم شكرا أخي مرشد على المساعدة كان المفروض اعمل الشرح للكود ، علشان يكون واضح عمله ، واللي منه اخوي مرشد فهم بيت القصيد ، واستعمله: 'مؤقتا احفظ هذا المتغير في الذاكرة Dim Ky As Integer 'كلما نضغط على اي زر ، اريد حفظه مؤقتا للحدث التالي Ky = KeyCode 'اذا الصنف فارغ ، والزر الذي تم الضغط عليه هو 'Enter او TAB 'فقم بالكود التالي If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then 'احذف معلومات آخر زر تم الضغط عليه Ky = 0 . جعفر