jjafferr

وعليكم السلام المشكلة لما يكون عندك اكثر من فاتورة بنفس الرقم!! البرنامج بيأخذ اول فاتورة فقط . وهذا الكود على حدث "عند تحميل" النموذج frmEdrajSenfrm Private Sub Form_Load() On Error GoTo err_Form_Load Me.cmd_Search2.Enabled = False 'هذه قيمة الفاتورة من النموذج الرئيسي A = Forms!frm_Recall_sales!n3 Dim rst As DAO.Recordset 'نأخذ بيانات النموذج الفرعي في الذاكرة Set rst = Forms!frm_Recall_sales!frm_mr.Form.RecordsetClone 'نذهب لآخر سجل ، ثم نرجع لأول سجل ، حتى تكون السجلات جميعا في الذاكرة rst.MoveLast: rst.MoveFirst 'عدد السجلات RC = rst.RecordCount 'اذا لا توجد سجلات ، اخرج من الكود If RC = 0 Then GoTo Exit_Form_Load 'نطوف بجميع سجلات النموذج الفرعي For i = 1 To RC 'اذا كان الجزء الايمن من فاتورة النموذج الفرعي تساوي رقم الفتورة في النموذج الرئيسي If Right(rst!Rjmfatwra, Len(A)) = Val(A) Then 'انقل البيانات Me.Rjmfatwra = rst!Rjmfatwra Me.Rajmsanf = rst!Rajmsanf 'النموذج الفرعي لا يحتوي على اسم الصنف ، وانما رقم الصنف فقط 'لذا يجب ان نأخذ رقم الصنف لى جدول الاصناف ونستخرج من اسم الصنف Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]=" & rst!ID_Sanf) Me.Alkmiah = rst!Alkmiah Me.Price_Sales = rst!Price 'لا يوجد داعي لمراجعة بقية سجلات النموذج الفرعي ، فلنخرج من الكود GoTo Exit_Form_Load End If 'اذهب الى السجل التالي rst.MoveNext Next i Exit_Form_Load: 'لإزالت البيانات من الذاكرة المؤقتة rst.Close: Set rst = Nothing Exit Sub err_Form_Load: If Err.Number = 3021 Then 'No Records Resume Exit_Form_Load Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 818.المرتجع.mdb.zip

وماهي المعادلة 1. مجموع وقت الفترات 2. ومتوسط الوقت واريدك تأخذ البيانات من برنامجك ، وتعطيني المعادلات ، ونتائجها. جعفر

هل المشكلة في كمبيوتر واحد ، او لما تستعمل كمبيوتر آخر؟

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

وعليكم السلام اذا قصدك مثل ما اعتقد فيجب ان يكون طول التقرير اقل من نصف طول الصفحة ، وعرضه كذلك اقل من نصف عرض الصفحة (هذا اذا اردت 4 تقارير) ، ويمكنك استخدام الصفحة بالعرض ، حسب احتياجك: . ثم في اعدادات الصفحة . والنتيجة . جعفر

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

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

وعليكم السلام المشكلة هي وجود وحدة نمطية فيها عطب ، اخي مرشد تغلب عليها بطريقته ، ولكن ، ولكي نتأكد من إزالة المشكلة من جذورها ، فيجب ان تعمل قاعدة بيانات جديدة ، ثم تستورد لها جميع كائنات البرنامج السابق. جعفر 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 ، انا قلت اخذ المعادلة بالكامل جعفر