نجوم المشاركات

تفضل ، فرق الاشهر فقط = datediff("m",Me.txtcount, Me.txtcounupgrade) جعفر

يا سيدي ، المشكلة ان رقم الفاتورة عندك "نص" ، والمعادلة التي اعطيتك هي اذا كان رقم الفاتورة "رقم" وكذلك كان الخطأ مني في الكود اعلاه ، فعند مناداة النموذج الفرعي ، يجب ان نضيف كلمة .Form. تفضل هذا التعديل ، بالاضافة انه عندك بقايا في نهاية الكود: Private Sub fatora_no_AfterUpdate() Me.fry_111.Form.Filter = "[id_fatora]='" & Me.fatora_no & "'" Me.fry_111.Form.FilterOn = True Me.fry_112.Form.Filter = "[fatora_no]='" & Me.fatora_no & "'" Me.fry_112.Form.FilterOn = True 'End If End Sub جعفر

وعليكم السلام تفضل . هذه الوحدة النمطية الموجودة في Help الاكسس ، مع بعض التعديل Option Compare Database Option Explicit Public Function YMDDif(sDate1, sDate2) 'sdate1 earliest date sdate2 later Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date Dim D As Integer Dim M As Integer Dim Y As Integer iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 YMDDif = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي" End Function Public Function YMDDif2(sDate1, sDate2) 'sdate1 earliest date sdate2 later Dim iYear As Integer Dim iMonth As Integer Dim iDay As Integer Dim dInterim1 As Date Dim D As Integer Dim M As Integer Dim Y As Integer iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 YMDDif2 = CStr(M) & " ش" End Function . اما التقرير ، فيأخذ بياناته من هذا الحدث ويعطينا الفرق باليوم ، والشهر ، والسنة (احذف السطر اللي ما تريده) Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer) Me.txtcount = DLookup("[التاريخ]", "[Query1]", "[Query1]![CountOfالتسلسل]=" & [نص128]) Me.txtcounupgrade = DLookup("[التاريخ]", "[Query1]", "[Query1]![CountOfالتسلسل]=" & [نص130]) Me.Months = YMDDif(Me.txtcount, Me.txtcounupgrade) & vbCrLf & _ "او" & vbCrLf & _ YMDDif2(Me.txtcount, Me.txtcounupgrade) End Sub جعفر 794.حساب عدد الاشهر بين تاريخين.accdb.zip

انا وضعت هذا الشرط في ثاني سطر من الكود: Option Explicit ومعناه ، لا تسمح بإستعمال أي متغير ، قبل ان تعمل له Dim ، لكن ، ومثل ما العمانيين يقولون: الباب اللي يجيك منه ريح ، سده واستريح ، فإحذف هذا السطر جعفر

اسعدكم الله استاتذتي

حياكم الله

ماشاء الله عليك اخي جعفر مبدع تسلم اصبت بارك الله فيك

تفضل تم تعديل الوحدة النمطية الى: Public Function Sum_Alkmiah(iMonth, iwerNumSenf) Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='13'") Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='14'") Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0) End Function . ومناداتها من حدث "الحالي" للنموذج الفرعي ، هكذا: Private Sub Form_Current() On Error Resume Next werSenf = Rajmsanf frshtxt Me.Parent.نص57 = DLookup("[Rsnf]", "Qryasnaf", "[Rajmsanf]='" & Me.Rajmsanf & "'") Me.Parent.نص61 = DLookup("[LastOfPrice]", "Query1", "[Rajmsanf]='" & Me.Rajmsanf & "'") Forms!frmSales!sh1 = Sum_Alkmiah(1, werNumSenf()) Forms!frmSales!sh2 = Sum_Alkmiah(2, werNumSenf()) Forms!frmSales!sh3 = Sum_Alkmiah(3, werNumSenf()) Forms!frmSales!sh4 = Sum_Alkmiah(4, werNumSenf()) Forms!frmSales!sh5 = Sum_Alkmiah(5, werNumSenf()) Forms!frmSales!sh6 = Sum_Alkmiah(6, werNumSenf()) Forms!frmSales!sh7 = Sum_Alkmiah(7, werNumSenf()) Forms!frmSales!sh8 = Sum_Alkmiah(8, werNumSenf()) Forms!frmSales!sh9 = Sum_Alkmiah(9, werNumSenf()) Forms!frmSales!sh10 = Sum_Alkmiah(10, werNumSenf()) Forms!frmSales!sh11 = Sum_Alkmiah(11, werNumSenf()) Forms!frmSales!sh12 = Sum_Alkmiah(12, werNumSenf()) End Sub جعفر 797.1.الشهور.mdb.zip

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

الاخ جعفر عندما تضغط انتر عللى اسم الصنف يفتح نموذج الاصناف فتختار 1-1 يطلع الصنف تعمل له ادراج وعند الضغط على الصنف يعطيك العدد حق شهر 12 11

شو رسالة الخطأ؟

تفضل في الاستعلام QryDaily جعفر 797.المجموع3.mdb.zip

لم افهم الاخ جعفر المجموع3.rar

السلام عليكم ضع هذا الكود في وحدة نمطية (تستطيع ان تضيفها مع اي وحدة نمطية اخرى عندك): Public Function Sum_Alkmiah(iwerNumSenf) 'الكود القديم 'A = IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'") > 0, _ DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'"), 0) _ - _ IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'") > 0, _ DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'"), 0) 'الكود الجديد Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=5 and Nwaha='13'") Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=5 and Nwaha='14'") Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0) End Function . ثم في الاستعلام تنادي الوحدة النمطية هكذا Sum_Alk: Sum_Alkmiah(werNumSenf()) جعفر

الف شكر استاذي ومعلمي الفاضل هذا هو المطلوب جزاك الله خيرا وجعله الله في ميزان حسناتك

اخي ابو زاهر اظن انت تريد هكذا وهو يحتاج قليل من التعديل من الاخوه العباقره Forms!frmSales!sh12 = (DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=12" & " and Nwaha='" & 13 & "'") > 0 = DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=11" & " and Nwaha='" & 13 & "'") = 0) - IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=12" & " and Nwaha='" & 14 & "'") > 0, DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=11" & " and Nwaha='" & 14 & "'"), 0)

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

وعليكم السلام يجب على كل جدول ان يحتوي على حقل ترقيم تلقائي ، فهذا مهم جدا للبرنامج ، وسرعته وقد عملت لك هذا الحقل في الجدول Tabl_Itinerary ، واختصرت استعلام عدم المطابقات ، واسميته qry_Diff_tbl_Itinerary_tbl_Itinerarytemp ، كود زري الحذف: Option Compare Database Option Explicit Private Sub cmd_Delete_With_Code_Click() Dim rstQry As DAO.Recordset Dim rstTbl As DAO.Recordset Dim RCqry As Integer Dim i As Integer Dim mySQL As String Set rstTbl = CurrentDb.OpenRecordset("Select * From Tabl_Itinerary") mySQL = "SELECT Tabl_Itinerary.Auto_ID, Tabl_Itinerarytemp.Num_Itinerary" mySQL = mySQL & " FROM Tabl_Itinerary LEFT JOIN Tabl_Itinerarytemp ON Tabl_Itinerary.[Num_Itinerary] = Tabl_Itinerarytemp.[Num_Itinerary]" mySQL = mySQL & " WHERE (((Tabl_Itinerarytemp.Num_Itinerary) Is Null));" Set rstQry = CurrentDb.OpenRecordset(mySQL) rstQry.MoveLast: rstQry.MoveFirst RCqry = rstQry.RecordCount For i = 1 To RCqry rstTbl.FindFirst "[Auto_ID]=" & rstQry!Auto_ID rstTbl.Delete rstQry.MoveNext Next i rstQry.Close: Set rstQry = Nothing rstTbl.Close: Set rstTbl = Nothing MsgBox "Done" End Sub Private Sub cmd_Delete_With_Query_Click() Dim rstQry As DAO.Recordset Dim rstTbl As DAO.Recordset Dim RCqry As Integer Dim i As Integer Set rstTbl = CurrentDb.OpenRecordset("Select * From Tabl_Itinerary") Set rstQry = CurrentDb.OpenRecordset("Select * From qry_Diff_tbl_Itinerary_tbl_Itinerarytemp") rstQry.MoveLast: rstQry.MoveFirst RCqry = rstQry.RecordCount For i = 1 To RCqry rstTbl.FindFirst "[Auto_ID]=" & rstQry!Auto_ID rstTbl.Delete rstQry.MoveNext Next i rstQry.Close: Set rstQry = Nothing rstTbl.Close: Set rstTbl = Nothing MsgBox "Done" End Sub جعفر 795.Qdel.accdb.zip

me.fry_111.SetFocus me.fry_111![رقم الفاتورة].SetFocus DoCmd.FindRecord Me.tt1, , , , , , True وعليكم السلام هذا الكود للنموذج الفرعي الاول ، ويمكنك تغييره للنموذج الفرعي الثاني جعفر

السلام عليكم ورحمة الله اخى الكريم الملف الذى ارسلته جميع التلاميذ فيه ناجحون فقمت بتغيير درجات بعضهم حتى ينطبق عليهم شرط الرسوب وقمت بتجريب الكود فعمل بمنتهى الكفاءة هذا وبالله التوفيق

هذا من شغل الاخ جعفر عدل لك النموذج تبع الاصناف 792.المجموع.mdb.zip

صلاحيات المستخدمين تجدها في الشيت ID راشد 12345 يحق له التعديل والتغيير والبحث حمد 123 يحق له البحث فقط أخي أرجو منك أن تصمم الفورم وأنا بحول الله أضع البرمجة تفضل جرب المرفق Data base3.rar

جرب هذه المعادلة في الخلية H2 ,واسحب يميناً و نزولاً =SUMPRODUCT(--($A$1:$A$50>=$F2),--($A$1:$A$50<=$G2),--($B$1:$B$50=H$1),$C$1:$C$50)

تم التغديل Abraj_1.rar

معلومة جميلة يا بشمهندس أستخدمها في فصل النصوص إلى أعمدة لكن تجربتها مع المعادلة جديدة لعل يكون هذا هو المطلوب

وعليكم السلام الله يسعدك استاذي صالح حمادي الف شكر اليك

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

بارك الله فيك اخي والحمدلله انك وصلت الى نتيجه

الفرق عموما بين وجود علامة الدولار من عدمه هو تثبيت مجال الخلايا فلا يتاثر بالنقل فالدولار قبل الحرف يثبت الاعمدة و الدولار قبل الرقم يثبت الصف فمثلا لو كتبت فى الخلية B1 معادلة =A1 و سحبتها لاسفل للنسخ ستجد ان المعادلة فى الخلية التالية B2 تصبح = A2 و هكذا اما اذا كانت المعادلة = A$1 فمعنى ذلك أن الصف قد تم تثبيته فعند سحبها لاسفل ـ تجد المعادلة مازالت =A$1 و ليس = A$2

I hope it will be useful to all friends Book3 formula.rar

السلام عليكم ورحمة الله أخي الكريم، تم عمل المطلوب ببعض التعديلات مع بعض الملاحظات... أخوك بن علية تقديرات التلاميذ.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم

نعم هذه الطريقة ولكن اغلق الوورد بالخروج منه ثم فتحه من جديد فلن تجد هذه الملفات وعذرا على التاخير في الرد والسلام عليكم

السلام عليكم و رحمة الله اضافة لحل الاخ خالدي جرب هذه المعادلة =MROUND(12122,25) قم بإستبدال الرقم 12122 بمرجع اي خلية و هي تعمل بشكل ماشر مع نسخة 2007 و 2010 من الاكسيل و في النسخ القديمة يجب تثبيت Analysis ToolPak ======== دمتم في حفظ الله