ابو جودي

على العموم بغض النظر عن الية التصميم الا ان حاولت قدر المستطاع التوصل لتلبية طلبك جرب المرفق اسم الاستعلام Query1 7-10-2017.rar

اتفضل جرب تم اضافة هذا الكود فى البداية rs.MoveLast: rs.MoveFirst وتم التعديل على هذا السطر من الكود .FindNext "[الحركة] = '" & strSearch & "'" فصار بهذا الشكل .FindNext "[الحركة] = " & strSearch نصيحة حاول عدم تسمية الحقول باللغة العربية تعديل البحث فى حقل رقمى - برنامج شيكات .rar اضافة تنسيق 2000-2003 لتعم الفائدة تعديل البحث فى حقل رقمى - برنامج شيكات .rar

اناا اسف انا اللى غلطان انا رفعت مرفق غلط سامحنى انا من امبارح وما فوت ع النت انا اسف جدا جدا جدا كنت على عجلة من امرى بسبب ظرف طارئ جدا جدا جدا وما ركزت تقبل تحياتى ProgDB1 ☺.rar

طيب مؤقتا ممكن تشوف الموضوع ده على ما ارجع ان شاء الله اعاود الدخول مرة اخرى لانى مضطر للمغادرة الان طيب وشوف المرفق ده للاستاذ @xhanyx المستخدمين.rar 23-قائمة الاختصار كليك يمين فى التقرير.rar

اتفضل ProgDB1_ update ☺ .rar

العفو منك اخى الحبيب أستاذ @Shivan Rekany انا مجرد طالب علم احاول تقديم المساعدة قدر استطاعتى واتعلم من طلبات اخواننا الكرام جزاكم الله خيرا وسلمت اناملك اشهد الله تعالى اننى احبكم فى الله

اتفضل aaaa-2.rar

جزاكم الله خير الجزاء الموضوع اكيد حيفيد حضرتك

حلو ايه رايك فى عمل صلاحيات لمجموعة العمل مش للمستخدم ؟ مثلا مجموعة عمل الدعم الفنى مجموعة عمل المدراء مجموعة عمل المحاسبين مجموعة عمل كدخلى البيانات

اولا الشكل النهائى سيكون على هذا النحو 1- القاعدة الامامية يكون فيها الجداول فقط 2- القاعدة الخلفية يكون فيها باقى الكائنات عموما (استعلامات - نماذج - تقارير - ماكرو ان تطلب الامر وكذلك الموديولات ان تطلب الامر ) الية العمل عند البدء بعمل قاعدة بتلك الصورة 1- يتم عمل قاعدة بيانات تحتوى على كل الجداول المطلوبة والانتهاء من ربط الجداول ان تطلب الامر ذلك 2- يتم انشاء قاعدة بيانات جديدة ونختار منها استيراد من قاعدة بيانات اكسس ثم نختار الارتباط بقاعدة بيانات ثم نحدد مكان قاعدة البياانت التى تحتوى على الجداول قم نقوم باختيار كل الجداول ونتمم العمليه ثم بعد ذلك نقوم باستكمال القاعدة من حيث انشاء الاستعلامات المناسبة والنماذج والتقارير .... الخ

طيب معلش اتحملنى شويه 1- البخث عن اى رقم ؟؟؟؟؟ يعنى لو جدول المراجعين اصلا فاضى ومش فيه اى بيانات حيبحث عن ايه ؟ 2- طيب لو الرقم اللى تم كتابته غير موجود ما العمل ؟ طبعا واضح من اسئلتى ان انا جاهل واسئلتى غير منطقية مطلقا وقصدت البدء بتلك الاسئله حتى اضعك مكانى انا مش عارف القاعده بتتكلم عن ايه او معالجة البيانات المطلوبه كيق ستتم من القاعدة وماعى اللمدخلات او المخرجات التى ننتظرها من البرنامج رجاء اشرح سبب عمل البرنامج بعيدا عن الناحية البرمجيه او الصورة التى عليها البرنامج الان وحدد بايجاز الاتى 1- البيانات الثابته 2- البيانات المتغيرة 3-البيانات التىتريد الخصول عليها من معالجتها داهل القاعدة انتظر رد حضرتك

الله يسلم حضرتك استاذ @ابو زاهر قضلا وكرما فى شئ انا مش فاهمه او يمكن لان البرنامج مش مكتمل انا مش قادر افكر على كل حال انا هاقول لحضرتك على الفكرة وحضرتك شوف الدنيا فيها معاك حسب افكارك وتصميمك انا توهت شويه بصراحة او يمكن لانى فى الشغل مش قادر اركز كويس بص الموضوع كل هيعتمد على رقم الفاتورة زت\بيق قكرة من الطريقة الثانية او الثالثة من هذه المشاركة 2- كما تفضلتم عن طريق DCount 'الطريقة الثانية 'DCount Private Sub Category_Code_BeforeUpdate(Cancel As Integer) Dim Code_NotInList As Integer Code_NotInList = DCount("Category_Code", "Items", "Category_Code= " & [Category_Code]) If Code_NotInList <> 1 Then MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" Me.Undo Else End If End Sub 3- وايضا ممكن عن DLookup حدث قبل التحديث 'الطريقة الثالثة 'DLookup Private Sub Category_Code_BeforeUpdate(Cancel As Integer) Dim Code_NotInList Code_NotInList = DLookup("Category_Code", "Items", "Category_Code= " & [Category_Code]) If IsNull(Code_NotInList) Or Code_NotInList = "" Then MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" Me.Undo Else End If End Sub فقط باضافة شرط الى كل من الدلتين فى خالة ان رقم الفتورة فى الجدول بيساوى رقم الفاتورة فى الحالى فى النموذج والمشكله ان حضرتك عامل ربط لمن رغم ذلك رقم الفتورة لا يظهر مش عارف ليه بصراحة لو حضرتك تظبط بس ان رقم القاتورة فى النموذج الفرغى لكل سجل يكون بيساوى رقم الفاتورة فى النموذج الرئيسى تبقى تمام على كل حال انا هاحاول اشوف مره تانيى بعمق اكبر

ابشر بالخير ان شاء الله انا اعمل على المرفق ان شاء الله اسال الله السداد والتوفيق

جزاكم الله خيرا على كلماتكم الطيبه وجميل خلقكم ومن انا ليقترن ذكرى بجوار اساتذتنا الافاضل ونجوم دروبنا التى تنير ظلمات جهلنا فما انا الا طالب علم اخى الكريم كل الفضل لله سبحانه وتعالى ثم لاساتذتنا فوالله لولاهم بعد رب العزة عزوجل تفضلوا علينا بكرم وجود وتعهدونا بكل الحب والرحمة لما اصبح هذا حالى وكل طلاب العلم فى هذا الصرح الشامخ اولا كود استخلاص المحافظة والنوع هو للاستاذه ام عهود (زهرة) جزاها الله خيرا لو نظرت الي الاكواد لوجدت هذه الاسطر '---------------------------------------------------- ' DateTime : 16/08/2013 10:36:46 م ' Author : zahrah ' Description : Get all the information from the ID number '---------------------------------------------------- قمت ببعض التعديلات الطفيفه وضبط وزياده اكواد المحافظات فقط حسب التحديثات المستجدة ولكن لها كل الفضل بعد رب العزة سبحانه وتعالى اما بخصوص احتساب الفرق بين تاريخين يرجع الفضل الى الله سبحانه وتعالى اولا ثم والدى الحبيب ومعلمى القدير واستاذى الفاضل الاستاذ @ابوخليل فلقد اهدانى الكود ذات مرة ولكن الكود وقتها كان يعمل على الاحتساب للفرق دفعة واحده وكذلك قمت بتعديل طفيف لجعل الكود يفصل احتساب كل من السنوات والشهور والايام كل على حده فالاوجب هو الدعاء لكل من اساتذتنا العظماء الذين لم يبخلوا علينا بالغالى والنفيس ولم يكلوا او يملوا والاذعان لهم بكل الفضل بعد رب العزة سبحانه وتعالى اسال الله تعالى ان يجعل اعمالهم خالصة لوجهه الكريم وان يتقبلها ان شاء الله وان يجعل لهم بها دروب الى اعلى درجات الجنان ان شاء الله امين امين امين

- يمكن تحقيق المطلوب باكثر من طريقة 1- NotInList عندما تكون القيمة غير موجوده فى قائمة مربع التحرير والسرد وهذه الطريقة تقتصر على مربع التحرير والسرد حدث غير موجود فى القائمة 'الطريقة الاولى 'Private Sub Category_Code_NotInList(NewData As String, Response As Integer) 'MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" 'Me.Undo 'SendKeys "{Esc}{Esc}" 'End Sub 2- كما تفضلتم عن طريق DCount 'الطريقة الثانية 'DCount Private Sub Category_Code_BeforeUpdate(Cancel As Integer) Dim Code_NotInList As Integer Code_NotInList = DCount("Category_Code", "Items", "Category_Code= " & [Category_Code]) If Code_NotInList <> 1 Then MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" Me.Undo Else End If End Sub 3- وايضا ممكن عن DLookup حدث قبل التحديث 'الطريقة الثالثة 'DLookup Private Sub Category_Code_BeforeUpdate(Cancel As Integer) Dim Code_NotInList Code_NotInList = DLookup("Category_Code", "Items", "Category_Code= " & [Category_Code]) If IsNull(Code_NotInList) Or Code_NotInList = "" Then MsgBox "هذا الكود غير موجود.. من فضلك ادخل الكود الصحيح", vbOKOnly, "تنبيه" Me.Undo Else End If End Sub وتم ادراج الاكواد المناسبة للثلاث طرق فى المرفق الاتى يمكن التبديل بينهم للتجربة المطلوب بثلاث طرق - فاتورة مشتريات.rar

صورة فقط ؟ انا مش فاهم يعنى ايه صورة فقط ؟

طيب شوف الفكرة دى فاتورة مشتريات_2.rar

وما هى طلباتك

شوف المرفق ده ممكن يعجبك ويفيدك Full Control Of Print Report.rar

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

شوبالنسبة لطلب حضرتك بسيط جدا ان شاء الله تعالى ادخل الى الكود واستبدل سطر الكود الاتى attash_file = db_path() & "OFFER" & "\" & [ID] & ".docx" بهذا الكود الجديد attash_file = "D:\" & "halby\" & "offer\" & [ID] & ".docx" وحتى لا اشق عليكم اليكم المرفق بعد التعديل OPEN_WORD_updat 2.rar

المخزن (1)_2.rar

لك ما طلبت اتغضل OPEN_WORD_updat.rar

ارفع القاعده ونشوف المتاح ان شاء الله راح نقدمه قدر المستطاع

اتفضل تلوين السجل بالفاتوره2.rar