حسين العربى قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام عندي نموذج البحث عن فاتوره اريد عند البحث عن فاتوره واستدعائها في النموذج اذا كانت حالة الفاتورة في مرع النص حالة الفاتوره تساوي post او cancel فالشرط ان ايتم عدم تمكين رز امر الغاء فاتورة والنموذج الفرعي وذلك لعدم السماح بالتعديل واذا كانت حال الفاتورة saved يتم تفعيل زر امر الغاء فاتورة والنموذج الفرعي اليكم مثال مصغر ومقتصر علي النموذج المطلوب من البرنامج للتطبيق عليه مع صور وشكرا لكم PROGRMS_Market_CONTROL.rar رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Else Me.cansel_1.Enabled = False End If PROGRMS_Market_CONTROL.rar 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 25, 2019 الكاتب مشاركة قام بنشر يناير 25, 2019 (معدل) استاذي الفاضل هذا هو المطلوب لاكن ينقصه انه لا يطبق علي النموذج الفرعي النموذج الفرعي لايزال مفعل في حالة الفاتوره post او cancl وايضا اريد ان اطبقه علي البحث المتقدم لان زر بحث متقدم يفتح نموذج بحث عن فاتوره وعند الضعط علي رقم السند يتم جلب بيانات الفاتوره الي النموذج وجزاك الله خيرا تم تعديل يناير 25, 2019 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 55 دقائق مضت, حسين العربى said: استاذي الفاضل هذا هو المطلوب لاكن ينقصه انه لا يطبق علي النموذج الفرعي النموذج الفرعي لايزال مفعل في حالة الفاتوره post او cancl وايضا اريد ان اطبقه علي البحث المتقدم وجزاك الله خيرا اتفضل DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form!نص18.Enabled = True Me.fary2.Form!نص14.Enabled = True Me.fary2.Form!Qote_item.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Form!نص18.Enabled = False Me.fary2.Form!نص14.Enabled = False Me.fary2.Form!Qote_item.Enabled = False End If 1 2 رابط هذا التعليق شارك More sharing options...
qassim-t قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 مجهود رائع ..بارك الله فيك اخ ابو ياسين رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 8 دقائق مضت, qassim-t said: مجهود رائع ..بارك الله فيك اخ ابو ياسين تسلم اخي qassim-t رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 25, 2019 الكاتب مشاركة قام بنشر يناير 25, 2019 استاذي الفاضل عمل فوق اللمتاز ولاكن هذا ليس طلبي انا اريد عدم تمكين النموذج الفرعي نفسه بحيث لايستطيع احد حذف سجل في حالة كان post اما في حالة كان saved فيكون ممكن وتستطيع التعديل في الكمية او حذف سجل وايضا اريد ان اطبقه علي البحث المتقدم لان زر البحث متقدم يفتح نموذج بحث عن فاتوره وعند الضعط علي رقم السند يتم جلب بيانات الفاتوره الي النموذج forms_serh_fatora2 انا اسف اني غلبتك معي بس ده طلبي من الاول لو راجعت المشاركه وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 46 دقائق مضت, حسين العربى said: استاذي الفاضل عمل فوق اللمتاز ولاكن هذا ليس طلبي انا اريد عدم تمكين النموذج الفرعي نفسه بحيث لايستطيع احد حذف سجل في حالة كان post اما في حالة كان saved فيكون ممكن وتستطيع التعديل في الكمية او حذف سجل وايضا اريد ان اطبقه علي البحث المتقدم لان زر البحث متقدم يفتح نموذج بحث عن فاتوره وعند الضعط علي رقم السند يتم جلب بيانات الفاتوره الي النموذج forms_serh_fatora2 انا اسف اني غلبتك معي بس ده طلبي من الاول لو راجعت المشاركه وجزاك الله خيرا جرب هذا ولا تتاخر بالرد DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form.Visible = True Else Me.cansel_1.Enabled = False Me.fary2.Form.Visible = False End If رابط هذا التعليق شارك More sharing options...
عبدالله مروش قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 السلام عليكم استاذ @حسين العربى ممكن تتواصل معاي بخصوص برنامج الصادر والوارد 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 25, 2019 الكاتب مشاركة قام بنشر يناير 25, 2019 26 دقائق مضت, عبدالله مروش said: السلام عليكم استاذ @حسين العربى ممكن تتواصل معاي بخصوص برنامج الصادر والوارد نعم اخي الفاضل رابط هذا التعليق شارك More sharing options...
عبدالله مروش قام بنشر يناير 25, 2019 مشاركة قام بنشر يناير 25, 2019 استاذ @حسين العربى ممكن اضافة زر انشاء الفولدر لهذا الملف وعندما اقوم بحفظ الكتاب يقوم بنقله الي داخل المجلد الجديد ويكون المجلد باسم تاريخ http://www.mediafire.com/file/2wzf1dlt2htgaqo/برنامج+أرشفة.rar رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 25, 2019 الكاتب مشاركة قام بنشر يناير 25, 2019 (معدل) 1 ساعه مضت, ابو ياسين المشولي said: جرب هذا ولا تتاخر بالرد DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Form.Visible = True Else Me.cansel_1.Enabled = False Me.fary2.Form.Visible = False End If استاذي الفاضل الكود يعمل تمام بس انا لا اريد اخفاء النموذج الفرعي اريد غير ممكن نفس زر امر الغاء فاتوره لكي اطلع علي بيانات الفاتوره تم تعديل يناير 25, 2019 بواسطه حسين العربى رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 26, 2019 الكاتب مشاركة قام بنشر يناير 26, 2019 Up رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 6 ساعات مضت, حسين العربى said: Up DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Enabled = False رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 لي عودة وباذن الله وحسب وقتي وظروفي 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 26, 2019 الكاتب مشاركة قام بنشر يناير 26, 2019 2 ساعات مضت, ابو ياسين المشولي said: DoCmd.Requery If Len(Me.costmor_no & "") = 0 Then MsgBox "هذه الفاتوره غير مسجلة" Undo Exit Sub End If If Me.xxx2 = "saved" Then Me.cansel_1.Enabled = True Me.fary2.Enabled = True Else Me.cansel_1.Enabled = False Me.fary2.Enabled = False لايعمل اخي الفاضل رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 4 دقائق مضت, حسين العربى said: لايعمل اخي الفاضل شغال عندي PROGRMS_Market_CONTROL.rar رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 26, 2019 الكاتب مشاركة قام بنشر يناير 26, 2019 استاذي الفاضل يعمل علي زر الامر الغاء فاتوره ولايعمل علي النموذج الفرعي هذه نقطه اما النقطه الثانيه اريده ان يعمعل علي بحث متقدم عند جلب الفاتوره الي النموذج الحالي سامحني غلبتك معي بس انا اريد ماطلبت بالظبط لو تكرمت رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 لعل احد الاخوه يفيدك اذا ما استطعت عليه انا فاعذرني 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 شوف الفيديو حسين.rar رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 26, 2019 الكاتب مشاركة قام بنشر يناير 26, 2019 انا اسف جدا استاذي الفاضل والله ما انتبهت الي خطاء كنت بسويه الاني كنت بجلب الفاتوره من بحث متقدم علشان كده الكود لايعمل معي طيب كده تما م انا الحين عاوز اطبقه علي بحث متقدم عند الضغط علي زر بحث متقدم يفتح لي نموذج به كل الفاوتير اختار اي فاتوره وبالضغط علي رقم السند يجلب لي بيانات الفاتوره في نموذج التعديل فكيف نطبق عليها نفس الفكره التي طبقناها علي مربع النص بحث رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 43 دقائق مضت, حسين العربى said: انا اسف جدا استاذي الفاضل والله ما انتبهت الي خطاء كنت بسويه الاني كنت بجلب الفاتوره من بحث متقدم علشان كده الكود لايعمل معي طيب كده تما م انا الحين عاوز اطبقه علي بحث متقدم عند الضغط علي زر بحث متقدم يفتح لي نموذج به كل الفاوتير اختار اي فاتوره وبالضغط علي رقم السند يجلب لي بيانات الفاتوره في نموذج التعديل فكيف نطبق عليها نفس الفكره التي طبقناها علي مربع النص بحث اتفضل On Error Resume Next Forms!forms_serh_fatora2!serh = DLookup("[id_sand]", "tabol_fatora", "[id_sand]=" & Me.id_sand) DoCmd.Close acForm, "forms_serh_fatora1", acSaveNo Me.Refresh DoCmd.Requery If Forms!forms_serh_fatora2!xxx2 = "saved" Then Forms!forms_serh_fatora2!cansel_1.Enabled = True Forms!forms_serh_fatora2!fary2.Enabled = True Else Forms!forms_serh_fatora2!cansel_1.Enabled = False Forms!forms_serh_fatora2!fary2.Enabled = False End If 1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 26, 2019 الكاتب مشاركة قام بنشر يناير 26, 2019 الف الف شكر والله مشاء الله عليك ربنا يكرمك ويزيدك من علمه وانا اسف اني تعبتك معي لاني والله مضغوط جدا في هذا البرنامج ومش عارف اركز رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 26, 2019 مشاركة قام بنشر يناير 26, 2019 39 دقائق مضت, حسين العربى said: الف الف شكر والله مشاء الله عليك ربنا يكرمك ويزيدك من علمه وانا اسف اني تعبتك معي لاني والله مضغوط جدا في هذا البرنامج ومش عارف اركز انا جبت لك الحل من اول مرة بس انت ماوضحت انه عند البحث المتقدم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.