ابو جودي

هنا تم عمل الكود من خلال معالج اكسس وخو من تلقاء نفسه يكتب الامر بتلك الطريقة ولا فرق بين النتيجتين يعنى يمكن فتح النموذج بتلك الطريقة ايضا Docmd.openform "frmain" وبما ان استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل افرد موضوعا خاصا لعرض الافكار وتناولها اعرض فكرة متواضعة فى النموذج frmchang حيث قمت بإلغاء زرى الامر والخاصين بتسجيل الدخول وتسجيل الخروج لاستبدالهما بزر امر واحد فقط ويقوم بعمل الزرين مجتمعين dbskn.mdb

فعلا استاذى الجليل ومعلمى القدير تمام التمام وهذه فكرة كنت ابقيها حتى اقف على ما يريده تفصيلا ولكن قدمت الحل الذى يعتمد على الـ Dlookup كما يريد للحظة الاخيره لم اكن متيقنا من الإجابة التى تلبى رغبته بسبب عدم توضيح السؤال من الاساس وكما تعلمت على ايديكم فهم السؤال هو نصف الإجابة لم يكون هذا كودى يا معلمى الفضل لله اولا ثم لكم سيدى فأنتم من اهديتمونى اياه تقريبا قبل اكثر من ثلاث سنوات تقريبا جزاكم الله خيرا وهذا ما تعلمته من اساتذتى العظماء بارك الله بهم لذلك انا اشبه اساتذتى عندما تتعدد مشاركاتهم واجاباتهم بأكثر من طريقه بأنهم كاالازهار والورود تتعدد الالوان وتتعدد الاشكال وصحيح لكل منها عطر يختلف عن الاخر الا ان المحصلة التى يتفقون بهما جميها انهم يجلبون البهجة والسعادة والراحة الى النفس بزهاء الوانها حتى ان اختلفت وبعبق وجمال الرائحة وان اختلفت واخيــــرا اتوسل اليكم استاذى القدير ومعلمى الجليل وارجوكم لا يصح اولا ان تشيرون الى باى القاب فقط اسمى اما محمد او ابا جودى كما تحبون بدون اى القاب ومنذ سنتين تقريبا قابلت اخى الحبيب @أبا عمر واخبرنى عندما تسامرنا انه تقابل مع استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل واستشعرت تقريبا ان الاستاذ @jjafferr والاستاذ @ابوخليل قد يكون لهم احفادا ومن وقتها احيانا اقول لكم والدى الحبيب ان كان كذلك لا يجوز للوالد او من فى مقامه ان يلقب ابنه باى القاب وان لم يكن انتم اساتذتى وسأظل اتعلم منكم وسأظل ادين لكم بكل الفضل ما حييت فكيف يحدث بالله عليك ان يتعامل الاستاذ مع ظالب العلم منه بالقاب استحلفكم بالله يا استاذ جعفر فقط اسمى محمد

اتفضل جرب والشرح ان كان هذا ما تريد بعد التجربة وان كان هذا ما تريد لا تنسي الدعاء الوفير لاستاى الجليل ومعلمى القدير الاستاذ @jjafferr والله اهدانى هذا الكود فى يوم من الايام دون ان اطلبه حتى كنت اسال عن شئ وكتبت كود كبير جدا ومطول لاصل لمبتغاى بعد ان توصلت لاجابة على سؤالى والذى لم يكن له علاقة تقريبا بهذه الطريقة وبهذا الكود اهدانى اياه معلمى حتى لا يكون الامر شاقا على بكتابة الكثير من الاكواد لاصل لهذه النتيجة اسأل الله تعالى ان يرزقه عن كل حرف كتبه ليعلم به حسنه واسال الله تعالى ان يضاعفها بكرمه وجوده الى اضعافا لا تحصى ولا تعد يارب العالمين فتثقل ميزان اعماله فيترتقى اعلى درجات الجنان يارب العالمين شقق ومخازن ايجارات - Copy.accdb توضيح فقط لم ارد جلب البيانات اصلا مرة اخرى لاننى بالفعل املكها فى احد الجداول لماذا اجلبها وحمل القاعدة ببينات تتكرر من الاساس

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

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

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

فعلا المرفق ما فيه مشكله لم انتبه اصلا ان الاستاذ جعفر موجود ومشاركا معنا

طيب ممكن اعمل لحضرتك مرفقا بـــ الانجليزية انا باتعب جدا مع اللغة العربية وان اعجبتك الفكرة انت حولها الى العربيه هاهاهاه للعلم انت تريد الـ DLookup على طريقة استاذى الجليل ومعلمى القدير الاستاذ @jjafferr بس لى عندك طلبا مسبقا قبل ان ابدأ هل يمكنك اختيار شئ ثابت بدلا من الاسم

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

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

ههههههههههه بداية اخونا الحبيب الاستاذ @عبد اللطيف سلوم يريد ان يحضر المعدل من الجدول ان كان الاسم موجود مسبقا وبنفس الوقت تستطيع اضافة بيانات جديدة 

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

اولا قبل اى شئ ننتظر منكم مرفقا بالمكان الصحيح والمكان الصحيح لنتعلم

من واقع المرفق الطالب المعرف الاسم الهاتف المعدل النتيجة 1 احمد 078 88 ناجح 2 احمد 077 46 راسب بادئ ذى بدئ اؤيد وبكل شدة رأى اخى الحبيب الاستاذ @مسفر هنا الاسم تكرر دائما لن تأتيك الا النتيجة التى تخص السجل الأول اون كنت تريد الكود الذى يأتيك بالبيانات دون اضافة سجل جديد اليك الحل استبدل سطر الكود تبعك بهذه الأكواد Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "[الاسم] = '" & Me![fname] & "'" If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود من قبل ") End If سؤال على ديلوكاب.accdb من وجهة نظرى الثوابت التى تريحك تمام ويمكنك الاعتماد عليها بدلا من الاسم لان الاسم قد يتكرر مع الكثيرين من الاشخاص - رقم الشقه اعتقد فى العمارة الواحد رقم الشقة لا يتكرر مطلقا -رقم هوية المستأجر فرقم الهوية ايضا حتما لم يتكرر لشخص اخر

شوف يا سيدى الفاضل السطر الاول ايقاف رسائل الاستعلام DoCmd.SetWarnings (False) كود فتح الاستعلام DoCmd.OpenQuery "اسم الاستعلام" إعادة الوضع الطبيعى مرة أخرى بتشغيل رسائل الاستعلام DoCmd.SetWarnings (True) بعدم وجود السطر الاخير لن تظهر رسائل الاستعلام مرة اخرى لهذه القاعدة الا بعد الاغلاق والفتح مرة اخرى

تدعى علينا لماذا يا اخى لا اله الا الله الم نقدم المساعدة بقدر المستطاع

DoCmd.SetWarnings (False) DoCmd.OpenQuery"U1" DoCmd.SetWarnings (True)

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

وانا ايضا لا ادرى استاذى الحبيب @عبد اللطيف سلوم الموضوع محتاج لقيل من الشرح بالتفصيل اولا متى تريد فتح النموذج الاخر -- المبلغ -- كما اخبرك استاذى الجليل ومعلمى القدير المبجل الاستاذ @AlwaZeeR هكذا يتم النقل بس لا ادري اين اضع الامر وبعد ان تنقل القيمة الا هناك ماذا بعد الشرط الذى يخص الاسم بالنموذج الاساسى فما هو الرابط الذى يربط بين قيم النموذجين ام انك مستقبلا تريد نقل الاسم والتكلفة ؟ ولاحظ انك سألت سؤالين فى موضوع واحد رجاء لتغليب المصلحة العامة على المصلحة الشخصية نحافظ على قواعد المشاركات سؤال واحد فقط وافتح للسؤال الثانى موضوع مستقل والا لن تجد الا القفل المتين على الموضوع ونجد على العنوان مغلق

عاوز التعديل على المرفق ده واللا على المرفق الرئيسى الاخر اللى منت تريد اظهار الامتداد به داهل الاستعلام وانتبه هنا نتعامل مع نموذج مفرد رئيسي اما هناك مع نموذج فرعى

طبعا تجد داخل الموديول ايضا اسطر لتحويل الارقام من انجليزية الى عربية ArbNmbr(myData) انظر الان مرة اخرى الى الاستعلام Query1 data(2).accdb

اخى الحبيب ان شاء الله الموضوع بسيط جدا بدايةً الكود يبدأ من الموديل '-------------------------- ' لتحويل الأرقام الى الإنجليزية Public Function RstNmbr(myData As String) 'As Integer myData = Replace(myData, ChrW(1632), ChrW(48)) myData = Replace(myData, ChrW(1633), ChrW(49)) myData = Replace(myData, ChrW(1634), ChrW(50)) myData = Replace(myData, ChrW(1635), ChrW(51)) myData = Replace(myData, ChrW(1636), ChrW(52)) myData = Replace(myData, ChrW(1637), ChrW(53)) myData = Replace(myData, ChrW(1638), ChrW(54)) myData = Replace(myData, ChrW(1639), ChrW(55)) myData = Replace(myData, ChrW(1640), ChrW(56)) myData = Replace(myData, ChrW(1641), ChrW(57)) RstNmbr = myData End Function '-------------------------- RstNmbr اسم المتغير العام الرئيسى الذى سنستدعيه لاحقا فى باقى القاعدة حسب وجهة النظر myData والموجود بين الاقواس هو المتغير الفرعى الذى يعتمد عليه المتغير الرئيسي وهو الذى سوف يساوى البيانات التى نريد معالجتها والتى هنا تمثل الارقام العربية وهذا الجزء من الكود هو دالة الاستبدال Replace(myData, ChrW(1632), ChrW(48) ولان الارقام تتكون من 0 الى 9 تم كتابة السطر هذا عشر مرات لكل رقم وهنا نخبره فى السطر الاول اذا وجدت ChrW(1632) اى الرقم صفر بالعربية قم باستبداله الى صفر بالانجليزية والذى يساوى ChrW(48) ومدلول هذه الداله ChrW() تستخدم لارجاع الارقام التى ستكتب داخل القوسين الى الترميز العالمى unicode لذلك ما يتم كتابته من خلال هذا الترميز لا علاقة له لا بالخطوط داخل الويندوز ولا بلغة الحاسب الالى حتى وستجد هذا السطر داخل القاعدة فى رأس الموديول https://www.ssec.wisc.edu/~tomw/java/unicode.html وهو الموقع الذى يحتوى على كل الرموز والحروف القى عليه نظرة وبهذا شرحنا الكود تفصيلا المستخدم فى الموديول باقى الان كيف نتعامل معه فى باقى كائنات القاعدة انظر الى الاستعلام Query1 فى وضع التصميم لان الحقل الذى بيه الارقام بالعربيه اسمه cod يتم استدعاء الكود كالاتى RstNmbr([cod]) طيب بما انك تريد تحويل الارقام داخل الجدول انظر الى استعلام التحديث باسم qryRstNmbr هنا فقط طلبت منه تحويل القيم فى الحقل cod الى القيم بعد تمريرها للكود بالموديل بس خلاص

اتفضل data(1).accdb

طيب خلينى اسأل سؤال على طريقتى انا الاكسس بمجرد فتح النموذج يقوم بعمل فحص لــ RECORD-LEVEL LOCKING تمام وبناء عليه يتم تغيير الايقونة الا الان كل شئ تمام ما هو الامر الذى يظهر فى هذا الوقت حالة RECORD-LEVEL LOCKING

امممممممممم وكيف يتم التعامل مع هذا الكود متى نقوم بعمل CALL له وكيف