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

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

السلام عليكم اخوتي هذه فاتورة شراء وبيع كاملة مع ادخال المادة والمورد والعميل وكشف حساب. مع تحياتي محمد علي الطيب فاتورة شراء وبيع كاملة.rar

شكرا لك اخي ابو زاهر في انتظار الحل من اهل الخبرة

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

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

لم الحظ ان القيم عندك كانت نص !! استخدم هذا السطر If Val(Me.n9) > Val(Me.Price_Sales) Then بدلا عن If Me.n9 > Me.Price_Sales Then جعفر

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

استاذي جعفر الله يرضي عليك انت طيب القلب وانا والله صراحه حاولت بطريقتي حتا وصلت للمراد ولكن اعتقد ليس بطريقه علميه صحيحه عملتها حسب ما قدرت عليه هي عندي تودي الغرض ولكن اذا شفت الموضوع بيكون بطريقه مختصره ما في تكليف عليك رغم انا الاستاذ شفان طلب من الشرح ابلغته اننا مقتنع بالذي عملته ولو لم يكن بطريقه علميه صحيحه هذا القاعده لو نظرت اليها الذي عملته 1 اضافه 2 حقول بجدولHrakatsanf أ-حقل اسمه n5 يسجل فيه الكميه عند عمل المرتجع ب_حقل اسمه mn_fatwra هذا يخزن فيه رقم فاتوره البيع عند عمل المرتجع 2 عملت نموذج اسمه frm_mr2 مصدره جدولHrakatsanf ووضعت فيه شروط لكي يظهر عدد مرات المرتجع وفيه تجميع لكميه المرتجع وعملت جقول جمع وطرح بنموذج frmEdrajSenfm ومن هنا وصلت للمراد بشق الانفس واذا لديك اخي الكريم الوقت عملتها بطريقه مختصره المطلوب اذا عملت فاتوره بيع لصنف مثلا الكميه 10 وارجع الزبون 3 عملت له المرتجع بعدد 3 فاذا اجيت تعمل مرتجع مثلا مره اخرئ من نفس الصنف ومن نفس الفاتوره يقوم بحسب الكميه الذي عمل بها مرتجع سابقا ويظهر لي 7 فقط والسموحه من استاذي الكريم شفان ريكاني لان الموضوع شائك ما بدي اشغله اكثر واقتنعت بطرقيتي رغم انها جرت حبال طوال هههههههههههه والسموحه منك استاذي جعفر اذا بدر بخاطرك شي من الاستاذ ابو ياسين حاول هو جاهد يوصل الفكره واشكره على مجهوده والشكر اليك استاذنا الكبير جعفر وجميع الاخوه بهذا المنتدي انظر الي عملي وقوم باصدار مرتجع لصنف وارجع مره اخري ستلاحظ الكميه نقصت قد توصل لك الفكره تحياتي اليك احتساب الكميه 44.rar

وعليكم السلام اسنخدم هذا الكود في حدث "بعد التحديث" لحقل n9 Private Sub n9_AfterUpdate() 'Dim i, x As Integer 'x = Me.Price_Sales 'i = Me.n9 'If i > x Then 'MsgBox ("السعر اكبر ") 'Me.Rajmsanf.SetFocus 'Me.n9.SetFocus 'Exit Sub 'End If If Me.n9 > Me.Price_Sales Then MsgBox ("السعر اكبر ") Me.Rajmsanf.SetFocus Me.n9.SetFocus Me.n9 = Me.Price_Sales End If End Sub جعفر

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

وعليكم السلام تفضل 'رقم operation_code اذا كان الحقل DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]=" & Forms![invoiceh]![operation_code] 'نص operation_code اذا كان الحقل DoCmd.OpenReport "2invoiceh", acViewPreview, , "[operation_code]='" & Forms![invoiceh]![operation_code] & "'" جعفر

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

وعليكم السلام الاستعلام يجب ان يكون هكذا . والتقرير: . جعفر 834.Madin.accdb.zip

وعليكم السلام للعلم : 1. لا تستطيع تلوين خلفية حقل النموذج الجدولي ، 2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط. للنموذج الرئيسي استعمل : = Color_Nulls() للنموذج الفرعي استعمل : = Color_Nulls_SubForm() وهكذا اصبحت الوحدة النمطية: Option Compare Database Option Explicit Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Dim sfrm As Form Dim sctrl As Control Dim Color1 As String Dim Color2 As String Color1 = vbRed Color2 = vbBlue Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then 'Main Form If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2) End If ' 'Don't use, the load on the Timer dosen't allow the proper Flashing Effect ' ' ElseIf ctrl.ControlType = acSubform Then ' 'SubForm ' ' Set sfrm = ctrl.Form ' For Each sctrl In sfrm.Controls ' ' If sctrl.ControlType = acTextBox Then ' ' If Len(sctrl.Value & "") = 0 Then ' ' sctrl.BackColor = IIf(sctrl.BackColor = vbWhite Or sctrl.BackColor = vbBlue, vbRed, vbBlue) ' End If ' End If ' ' Next End If Next End Function Public Function Color_Nulls_SubForm() Dim sfrm As Form Dim ctrl As Control Dim Color1 As String Dim Color2 As String Color1 = vbRed Color2 = vbBlue Set sfrm = Screen.ActiveControl.Parent For Each ctrl In sfrm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip

طبعا اخي ممكن الدمج ما عليك الا اظهار الأوراق ونسخها في ملف اخر مع تعديل الصفحه الرئيسيه المشكله تكمن ان الملفات المرفقه اورقها محمية بالباسورد ان كان متوفر لديك فهذا امر جيد تحياتي اخي عبد اللطيف سلوم

تم التعديل جرب المرفق نقل بيانات8.xlsb.rar

المعادلة الصجيجة =SUMPRODUCT(--('ALMA MADINAH'!$D$3:$D$500>=$J$4),--('ALMA MADINAH'!$D$3:$D$500<=$J$9),--('ALMA MADINAH'!$B$3:$B$500=$B5)) أو هذه =SUMPRODUCT(('ALMA MADINAH'!$D$3:$D$500>=$J$4)*('ALMA MADINAH'!$D$3:$D$500<=$J$9)*('ALMA MADINAH'!$B$3:$B$500=$B3))

وعليكم السلام الوحدة النمطية التالية تقوم بالعمل Option Compare Database Option Explicit Public rst As DAO.Recordset ' Public Function Calc_Empty_Fields() Dim i As Integer Dim RC As Integer Dim RF As Integer Dim j As Integer Dim Counter As Integer rst.MoveLast: rst.MoveFirst RC = rst.RecordCount RF = rst.Fields.Count 'Records For i = 1 To RC Counter = 0 'Fields For j = 0 To RF - 1 If IsNumeric(rst(j).Name) And rst(j).Value = -1 Then Counter = Counter + 1 End If 'rst Next j 'rst.Edit ' rst!Sum_Check = Counter 'rst.Update rst.MoveNext Next i Calc_Empty_Fields = Counter rst.Close: Set rst = Nothing End Function . ونناديها من النموذج الفرعي هكذا Private Sub Form_Current() Set rst = Me.RecordsetClone Me.sum_Check = Calc_Empty_Fields() End Sub . جعفر 833.Prog400.mdb.zip

سيتم نقل البيانات بنفس التنسيق إلى الورقة الأخرى جرب المرفق نقل بيانات7.rar

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية "A3" ثم اسحب نزولا =VLOOKUP(B3;$D$3:$E$13;0)

اهلا بك اخي مرة أخرة بالنسبة لطلبك هذا ( تحقيق أحد الشرطين بخلايا العمود M) أحتاج إلى مزيد من الشرح البرنامج سيرحل ما يوافق التاريخ وحسب ما فهمت إما أن يرحل البرنامج ما يوافق التاريخ فقط أو يرحل كل البيانات التي تحتوي النص أم الإثنين معا ؟ حرب التعديل نقل بيانات3.rar

يمكن ربط فكرة الموضوع بتاريخ الويندو ومع ذلك يترك حرية اختيار التاريخ تم التعديل نقل بيانات2.rar

السلام عليكم لما تضغط ترحيل سيطلب منك إدخال الشهر والسنة وبناء عليه سيقوم الكود بالمرور على كل اللي عندك في الرئيسية ويرحل كل من انطبق عليه الشرط اي استفسارات نحن في الخدمة ولكن عليك بالصبر في انتظار تجربتك , أرجو موافاتي بالنتيجة تفضل جرب المرفق نقل بيانات1.rar