النجاشي قام بنشر ديسمبر 21, 2017 قام بنشر ديسمبر 21, 2017 السلام عليكم اخواني اريد عندما ادخل رقم فاتوره البيع بفاتوره المردود واضغط انتر يفتح لي نماذج خاص بالاضافه وبدها ادخل رقم الصنف اريد يجلب لي الكميه والسعر من النموذج الفرعي الذي فيه الاصناف المباعه حسب رقم الفاتوره المسجل بالنموذج الريسيي ولايقبل جلب اصناف من فاتوره اخري شاكرين لكم احبيتي تحياتي اليكم المرتجع.rar
النجاشي قام بنشر ديسمبر 21, 2017 الكاتب قام بنشر ديسمبر 21, 2017 اذا وجدت طريقه اخري نرحب فيها اهم شي نموذج الاضافه يكون يعطينا حسب رقم الفاتوره تحياتي احبابي
ابو ياسين المشولي قام بنشر ديسمبر 21, 2017 قام بنشر ديسمبر 21, 2017 اخي ابو زاهر انا حاولت عند الضغط مرتين على رقم الصنف يطلع الصنف جرب لعل الاخوه يفيدوك اكثر اخوك ابو ياسين المرتجع.rar 1
النجاشي قام بنشر ديسمبر 22, 2017 الكاتب قام بنشر ديسمبر 22, 2017 اخي الكريم استاذي ابو ياسين ما قصرت ولكن المطلوب عند ادخال رقم الصنف بنموذج الاضافه بعد التحديث اريد يجلب لي القيم زي الكميه والسعر بشرط علي حسب رقم الفاتوره المدخل بر اس النموذج الريسي تحياتي اليك ان اشاء الله نجد من الاخوان الرد المطلوب تحياتي اليكم
jjafferr قام بنشر ديسمبر 22, 2017 قام بنشر ديسمبر 22, 2017 وعليكم السلام المشكلة لما يكون عندك اكثر من فاتورة بنفس الرقم!! البرنامج بيأخذ اول فاتورة فقط . وهذا الكود على حدث "عند تحميل" النموذج 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
النجاشي قام بنشر ديسمبر 22, 2017 الكاتب قام بنشر ديسمبر 22, 2017 23 دقائق مضت, jjafferr said: وعليكم السلام المشكلة لما يكون عندك اكثر من فاتورة بنفس الرقم!! البرنامج بيأخذ اول فاتورة فقط . وهذا الكود على حدث "عند تحميل" النموذج 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 السلام عليكم بارك الله فيك استاذي جعفر هذا النموذج frmEdrajSenfrm ما عاد بيفتح كانه يختفي وراء نموذج الفاتوره ما قدرت اشوف شو الا صار فيه تحياتي يابو الجعافر
jjafferr قام بنشر ديسمبر 22, 2017 قام بنشر ديسمبر 22, 2017 تم تعديل المرفق في مشاركتي السابقة ، فجرب الآن لوسمحت جعفر
النجاشي قام بنشر ديسمبر 22, 2017 الكاتب قام بنشر ديسمبر 22, 2017 30 دقائق مضت, jjafferr said: تم تعديل المرفق في مشاركتي السابقة ، فجرب الآن لوسمحت جعفر الان كويس استاذي من ناحيه النموذج ولكن كما قلت في مشكله لما يكون اكثر من رقم بنفس الفاتوره الان اعمل بطريقه اخري سارفعها تلقي اليها نظره ان شاء الله نصل لحل تحياتي استاذ ابو الجعافر
النجاشي قام بنشر ديسمبر 22, 2017 الكاتب قام بنشر ديسمبر 22, 2017 استاذي جعفر طريقتك هي الوحيد القريبه للحل فانا عملت الكود بعد التحديث لكي اقدر ادخل اكثر من صنف عملت كود تحديث بالفاتوره بنص n3 بعد التحديث كي يظهر الفاتوره المسجله فقط فالمشكله لم يجلب السجل الثاني تحياتي اليك المرتجع20.rar
jjafferr قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 وعليكم السلام لازلت مافاهم قصدك!! النموذج frmEdrajSenfrm يأخذ قيمه واحدة فقط ، واذا اردته ان يأخذ اكثر من قيمة ، فالافضل لك ان تلغي هذه الفكرة وتستخدم النموذج الفرعي للتعديل ، ففيه جميع البيانات!! جعفر 1
النجاشي قام بنشر ديسمبر 23, 2017 الكاتب قام بنشر ديسمبر 23, 2017 9 ساعات مضت, jjafferr said: وعليكم السلام لازلت مافاهم قصدك!! النموذج frmEdrajSenfrm يأخذ قيمه واحدة فقط ، واذا اردته ان يأخذ اكثر من قيمة ، فالافضل لك ان تلغي هذه الفكرة وتستخدم النموذج الفرعي للتعديل ، ففيه جميع البيانات!! جعفر ان شاء الله استاذي اكون في البيت بعد ساعتين راح اعمل شرح اوضح للك اجمل تحيه الان انا على الموبيل
النجاشي قام بنشر ديسمبر 23, 2017 الكاتب قام بنشر ديسمبر 23, 2017 (معدل) السلام عليكم استاذي الكريم @jjafferr الله يبارك فيك ان شاء الله يكون الشرح واضح الان هذا النموذج frmEdrajSenfrm يدرج بفاتوره المردود فالمطلوب مثلا بعت عده اصناف لعميل وتريد ترجع صنفين من الاصناف المباعه فهنا النموذج frmEdrajSenfrm لازام ياخذ الاصناف المباعه حسب رقم فاتوره البيع فهذه القاعده اعمل فاتوره بيع لزبون مثلا بثلاثه اصناف وبعدها رد الزبون صنفين فهنا المطلوب بنموذج frmEdrajSenfrm عنما ادخل رقم الصنف بعد التحديث يظهر لي القيم لهذا الصنف زي الكميه والسعر حسب رقم فاتوره البيع المسجل بفاتوره المردود فهل طريقه ممكن تاخذا القيم من جدول حركات الاصناف عبر داله او مثلا وحده نمطيه كما عملت لي بفاتوره البيع اي طريقه تكون ميسره عملتها بحيث يكون ادراج الاصناف لفاتوره المرتجع من نموذج frmEdrajSenfrm تحياتي 7533.rar تم تعديل ديسمبر 23, 2017 بواسطه ابو زاهر
ابو ياسين المشولي قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 ان شاء الله بتجد الجواب الكافي والحل الوافي من الاخ jjafferr ربنا يعطيه الصحه 1
النجاشي قام بنشر ديسمبر 23, 2017 الكاتب قام بنشر ديسمبر 23, 2017 1 دقيقه مضت, مرشدعلي said: ان شاء الله بتجد الجواب الكافي والحل الوافي من الاخ jjafferr ربنا يعطيه الصحه ان شاء الله استاذي ابو ياسين الاستاذ جعفر ما شاء الله عليه اسميته بعالم الاكسس دوما السوال الصعب اجابته القيها عنده ربنا يعطيه الصحه والعافيه اذا فهم المقصود فهو ما شاء الله عليه دوما بالابداع تحياتي اليكم استاتذتي جمعيا 1
jjafferr قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 37 دقائق مضت, ابو زاهر said: 1. هذا النموذج frmEdrajSenfrm يدرج بفاتوره المردود 2. 7533.rar اخي وضاح 2. يجب ان تخبرنا كيف استعمال هذا المرفق ، وكيف نعرف بياناته = وووو ، ولكن اتضح لي ان النموذج frmEdrajSenfrm هو نفسه كالذي في مرفقك السابق. 1. انا اخبرتك سابقا 3 ساعات مضت, jjafferr said: أ. النموذج frmEdrajSenfrm يأخذ قيمة سجل واحد فقط ب. واذا اردته ان يأخذ اكثر من قيمة ، فالافضل لك ان تلغي هذه الفكرة وتستخدم النموذج الفرعي للتعديل ، ففيه جميع البيانات!! أ. فالنموذج صالح لإدخال سجل واحد فقط (صنف واحد فقط من الفاتورة) (وقد اعطيتك الجواب في مشاركتي اعلاه https://www.officena.net/ib/topic/81068-جلب-القيم-لنموذج-الاضافه-من-نموذج-فرعي-بداخل-الريسيي/?do=findComment&comment=517512) ، فإذا اردت ادخال اكثر من صنف من الفاتورة ، فهذا النموذج لا يصلح ، فالنموذج يجب ان تكون فيه خاصية اخذ اكثر من سجل ، وبما اننا لا نعرف عدد الاصناف المرجعة ، لذلك يجب ان يكون هذا النموذج "مستمر" او "جدولي" ، ب. واذا اردنا تغيير هذا النموذج (frmEdrajSenfrm) الى نموذج مستمر او جدولي ، فليش تقوم بالعمل مرتين ، انت عندك النموذج الفرعي frm_mr ، فتستطيع ان تعمل له تصفية حسب رقم الفاتورة ، وتظهر لك جميع الاصناف ، والمستخدم يغيّر من هناك. الآن ، يجب ان تأخذ وقتك وتفكر في الموضوع جيدا ، قبل ان تضيف اي تعليق جديد جعفر 1
ابو ياسين المشولي قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 46 دقائق مضت, jjafferr said: اخي وضاح 2. يجب ان تخبرنا كيف استعمال هذا المرفق ، وكيف نعرف بياناته = وووو ، ولكن اتضح لي ان النموذج frmEdrajSenfrm هو نفسه كالذي في مرفقك السابق. 1. انا اخبرتك سابقا أ. فالنموذج صالح لإدخال سجل واحد فقط (صنف واحد فقط من الفاتورة) (وقد اعطيتك الجواب في مشاركتي اعلاه https://www.officena.net/ib/topic/81068-جلب-القيم-لنموذج-الاضافه-من-نموذج-فرعي-بداخل-الريسيي/?do=findComment&comment=517512) ، فإذا اردت ادخال اكثر من صنف من الفاتورة ، فهذا النموذج لا يصلح ، فالنموذج يجب ان تكون فيه خاصية اخذ اكثر من سجل ، وبما اننا لا نعرف عدد الاصناف المرجعة ، لذلك يجب ان يكون هذا النموذج "مستمر" او "جدولي" ، ب. واذا اردنا تغيير هذا النموذج (frmEdrajSenfrm) الى نموذج مستمر او جدولي ، فليش تقوم بالعمل مرتين ، انت عندك النموذج الفرعي frm_mr ، فتستطيع ان تعمل له تصفية حسب رقم الفاتورة ، وتظهر لك جميع الاصناف ، والمستخدم يغيّر من هناك. الآن ، يجب ان تأخذ وقتك وتفكر في الموضوع جيدا ، قبل ان تضيف اي تعليق جديد جعفر الاخ jjafferr لولاحظت في مشاركتك الاولى هي تعطي رقم الصنف حسب رقم الفاتورة ولكن ينقصها عمليه الادراج واظن الاخ ابو زاهر هو يعناي الان من مشكله الادراج بنفس طريقتك لكن ينقصها الادراج لو تفضلت واخذت نظرة سوف تفهم ما اقصده تحياتي لك اخوك ابو ياسين
jjafferr قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 أخي ابو ياسين هذه مرحلة تالية ، المرحلة التي نحن فيها الآن هي (رجاء تجرب مرفق مشاركتي الاولى): ادخل الفاتورة رقم 1 في الحقل n3 في النموذج الرئيسي ، ستجد ان النموذج frmEdrajSenfrm يأخذ اول صنف من النموذج الفرعي frm_mr ، هل هذا المطلوب؟ ماذا اذا كان المطلوب تعديل الصنفين من الفاتورة رقم 1 ؟ جعفر
ابو ياسين المشولي قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 2 دقائق مضت, jjafferr said: أخي ابو ياسين هذه مرحلة تالية ، المرحلة التي نحن فيها الآن هي (رجاء تجرب مرفق مشاركتي الاولى): ادخل الفاتورة رقم 1 في الحقل n3 في النموذج الرئيسي ، ستجد ان النموذج frmEdrajSenfrm يأخذ اول صنف من النموذج الفرعي frm_mr ، هل هذا المطلوب؟ ماذا اذا كان المطلوب تعديل الصنفين من الفاتورة رقم 1 ؟ جعفر نعم مرحلتك هي صحيحه وننتظر المرحله التاليه اخي جعفر انت المعلم ونحن تلاميذك ولنا الفخر بذلك انت عملت المطلوب كما فهمت من الاخ ابو زاهر باقي الادراج 1
النجاشي قام بنشر ديسمبر 23, 2017 الكاتب قام بنشر ديسمبر 23, 2017 3 دقائق مضت, مرشدعلي said: نعم مرحلتك هي صحيحه وننتظر المرحله التاليه اخي جعفر انت المعلم ونحن تلاميذك ولنا الفخر بذلك انت عملت المطلوب كما فهمت من الاخ ابو زاهر باقي الادراج رغم اننا حاير في امري ومحرج شديد من الاستاذ جعفر سنختصر الموضوع صحيح ياخذ سجل واحد وهذا اريده طبعا بس المشكله مثلا انا بدخل الصنف الذي بالسجل الثاني بنفس الفاتوره ليش ما يقبله هنا المعظله فقط ولكم اجمل تحيه والسموحه منكم استاتذي الكرام والف شكرا اليكم
ابو ياسين المشولي قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 اخي ابو زاهر انا حاولت حسب فهمي ومقدرتي والاخ jjafferr جعفر مابيقصر في البقيه اخوك ابو ياسين المرتجع20 - نسخة.rar
jjafferr قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 2 ساعات مضت, ابو زاهر said: صحيح ياخذ سجل واحد وهذا اريده طبعا بس المشكله مثلا انا بدخل الصنف الذي بالسجل الثاني بنفس الفاتوره ليش ما يقبله هنا المعظله فقط انت لم تخبرنا بهذا الشرط ، انت فقط اعطيت شرط رقم الفاتورة ، وانا عملت الكود علشان يأخذ اول صنف من رقم الفاتورة المختارة. جعفر 2
النجاشي قام بنشر ديسمبر 23, 2017 الكاتب قام بنشر ديسمبر 23, 2017 8 دقائق مضت, jjafferr said: انت لم تخبرنا بهذا الشرط ، انت فقط اعطيت شرط رقم الفاتورة ، وانا عملت الكود علشان يأخذ اول صنف من رقم الفاتورة المختارة. جعفر معذرتا استاذي الكريم على سعه صدرك والسموحه منك ولكن باول مشاركه لي كان هذا السطر ادخل رقم الصنف اريد يجلب لي الكميه والسعر من النموذج الفرعي الذي فيه الاصناف المباعه حسب رقم الفاتوره المسجل بالنموذج الريسيي ولايقبل جلب اصناف من فاتوره اخري هنا يقصد انه ادخل اي صنف من الفاتوره المعذره منك والله استاذي ولكن وجدت في الكود تبعك ما يسر الناظرين لمسه اخيره تكون انتهينا من المشكله تحياتي يا بو الجعافر
jjafferr قام بنشر ديسمبر 23, 2017 قام بنشر ديسمبر 23, 2017 يعني تدخل رقم الفاتورة في النموذج الرئيسي ، ثم لما يفتح لك النموذج frmEdrajSenfrm ، تدخل فيه رقم الصنف ، وعلى اساسه تطلع لك بيانات الصنف مال هذه الفاتورة؟ جعفر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.