jjafferr

عفوا انزلت البرنامج البارحة ولم افهم المطلوب!! يا ريت مثال لوسمحت جعفر

وانا عملت الاصلاح ، ولكن ما اصلح البرنامج جعفر

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

هذا الرابط يشرح الطريقة بالصور جعفر

وعليكم السلام تفضل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text2.Visible = True Me.text2.SetFocus Me.text1.Visible = False End Sub Private Sub text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.text1.Visible = True Me.text1.SetFocus Me.text2.Visible = False End Sub جعفر

لأن اسم الموضوع كان لا علاقة له بمضمون الموضوع ، فقمت بتعديله ، ودوختك

لا يوجد داعي لفتح موضوع جديد ، رجاء تكملة الموضوع هنا جعفر

اخي الشربيني ، هل جربت المرفق؟ جعفر

تفضل عملت لك اسم المسابقة بطريقتين ، فاختار اللي يناسبك . . جعفر 815.مثال.accdb.zip

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

حياك الله اخوي محمد جعفر

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

السلام عليكم في موضوعك السابق . انا قلت: . فإذا كان برنامجك بصيغة 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) جعفر

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