ابو جودي

اولا الشكل النهائى سيكون على هذا النحو 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

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

من فضلك ارفع المرفق الخاص بالمثال

وزيادة فى الخير بعد اذن استاذى القدير واخى الحبيب الكريم الاستاذ @صالح حمادي فكرة اخرى لمن يصعب عليه التعامل مع الاكواد بحيله صغيرة وتؤدى نفس النتيجة ان شاء تحويل أسماء الحقول فى مربع تحرير وسرد ( الفرز ) إلى أسماء عربية.rar

طيب انا اسف اتقل على حضرتك خلينا نتكلم على ارض الواقع انا فتحت جدول الـ(transfer) ومثلا الموظف اللى كوده 115 آخر تاريخ التنقل هو 27/04/2017 عنوانه الوظيفي الجديد هو مدير ممكن حضرتتك لو تكرمتى تكتبلى البيانات اللى مفروض تكون فى جدول ال(salary) هتكون ازى زى ما حضرتك عاوزاها زى ما انا كتبتها

العفو بس ممكن سؤال هو كان اوفيس 2007 ؟ -------------------------------- لان انا اخدت قاعدة البيانات فى الشغل معايا وجربتها على اوفيس 2007 وكانت النتيجة زى الصورة دى تماما انا طبعا جايب الصورة دى من جوجل والحل كالاتى انا بحثت فى المنتديات الاجنبيه منهم من قال عليك بتحديث الاوفيس اى باضافة sp2 ثم sp3 واليك الرابط http://www.howtoquick.net/2016/01/microsoft-access-2007-unrecognized-database-format-accdb.html وايضا وجدت هذا الفيديو على اليوتيوب لم اقم بالتجربة ولكم سأرى غدا فى الشغل ان شاء الله ولى عوده ان شاء الله https://www.youtube.com/watch?v=hoDvYL8InA4 اعرف انه تم حل المشكلة ولكن احاول ان اضع الاجابة لحل المشكلة حتى تعم الفائدة ان شاء الله

اهلا اهلا اهلا باعز الحبايب اضم صوتى لصوتك لحد اختيار الاوفيس انا افضل 2010 23 بيت

خطر فى بالى شئ لاضفاء مرونة فى الية التعامل ومغالجة البيانات قمت بانشاء جدول باسم tbl_chosen_date_Age_Calcفى هذه الجدول نكتب التاريخ المراد احتساب العمر عنده اى 1/10/2018 لان المرفق السابق انا كتبت كودلاحتساب العمر حتى 1/10 ثم العام التالى اى انه لو قمنا بتشغيل المرفق السابق فى اول عام 2018 يتم احتساب العمر فى 1/10/2019 ولذلك فكرت فى التعديل الاتى وتم تدارك تلك المشكله بهذه الفكرة استخراج السن فى اول اكتوبر عن طريق دالة فى الاستعلام_ update.rar

شركات البرمجة الكبيره نفسها تضع المتطلبات لعمل البرنامج - على سبيل المثال لاتقل الرامات عن 2 جيجا 1 جيجا كارت شاشة نظام تشغيل لا يقل عن ويندوز 7