ابو جودي

مثال 606969672_Unboundform.mdb

Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("اسم الجدول") rs.AddNew rs("اسم الحقل فى الجدول") = Me![اسم الكائن فى النموذج] rs.Update rs.Close

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

'TempVars.Add Name, Value 'Name >>--> حيث يكون الاسم هو اسم المتغير الخاص بك 'Value >>--> حيث تكون القيمة التي ترغب في تخصيصها له بعض الأمثلة: TempVars.Add "strName", "officena" TempVars.Add "lngID" , 1 TempVars.Add "boSure" , true - طريقة تمرير قيمة حسب اسم المتغير TempVars![Name] - طريقة ازالة القيمة من كل المتغيرات TempVars.RemoveAll - طريقة ازالة القيمة من متغير محدد TempVars.Remove "Name" وهذا مثال يجمع الطريقتين 1905137138_PassingavariableWey.mdb Passing a variable Wey.zip

علاقة رأس بأطراف من استعلام توحيد التاريخ من حقل التاريخ رأس الى كل من حقول التاريخ بالجدولين أطراف تلك الخطوة لم يتم تنفيذها هذا الخط الواصل بين الحقول هو العلاقة التى تجمعهما وعند الضغط مرتين بالفأرة على الخط تفتح نافذة التعديل على خصائص الربط وفى حالتنا هنا نريد رأس بأطراف يعنى ببساطه التاريخ الاتى مثلا 01/01/2020 اليوم الاول للحضور حضر عدد 6 من البنات وكذلك انصرفن لذلك سوفن نجد ان التاريخ تم تسجيله 12 مرة فى قاعدة البيانات 6 مرات منهم بجدول الحضور وال 6 الاخرى فى جدول الانصراف بانشاء استعلام التوحيد سوف يظهر مرة واحدة عند ربط حقل التاريخ من استعلام التوحيد يكون هو الرأس وفى باقى الجداول اطرف ويسميها البعض 1 الى ما لا نهاية ببساطة هذا يعنى نريد كل القيم مهما كان عددها من جدول الحضور والتى تساوى قيمة واحدة من استعلام التوحيد فالقيمة 01/01/2020 الواحدة من استعلام التوحيد = 6 قيم من جدول الحضور وكذلك 6 قيم ان انصرفن جميعا من جدول الانصراف

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

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

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

هل هذا هو المطلوب Attendance (1).accdb

طيب بالله عليك انا اعمل ايه

فى حاجه غلط

ممكن مرفق

مثال عملى Passing a variable to a query.mdb

ايون انا تعليم مجانى ما فهمت شئ من العنوان وياريت مرفق

ممكن مرفق بالمشكله انا مش فاهم الجزئية السابقة ارجو مرفق يشتمل على المشكلة مع التوضيح لتلك النقطة رجاء

هو ايه النموذج ده استاذى الجليل ومعلمى القدير و والدى الحبيب total deep search

يا هلا بك اختنا الغالية

الان فهمت الطرق الثلاثة لتمرير المعيار الا الاستعلام 1- تمرير القيمة من كائن موجود فى نموذج محدد .... يعيبها لابد ان يكون النموذج مفتوحا [Forms]![FrmName]![ObjectNameOnForm] 2- TempVars TempVars.Add "x", Value as you need ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار [TempVars]![x] 3- فى موديول نعرف متغير عام Global AddVar As Variant ونكتب اكواد الروتين التى تستدعيه بهذا الشكل Public Function GetVar() GetVar = AddVar End Function نمرر القيمة الى المتغير العام من اى مكان ومن اى حدث حسب الحاجة AddVar= Value as you need ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار GetVar()

ركز جيدا فى تلك الكلمات لانها كلمات من ذهب والحل الان بعيد عن طريقة TempVars ويفتح من كلى الفورمين كل الشكــــــــر لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 1297.2020.mdb

طيب اجاوب Global AddVar As Variant Public Function GetVar() GetVar = AddVar AddVar = Empty End Function ويكتب المعيار GetVar()

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

ولكن نصيحة هذا المرفق افضل بان يستمد المعيار القيمة من النموذج مباشرة وكما تفضل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لن تعمل تلك الطريقة مع الاوفيس 2003 70665418_2020(1).mdb

النموذج FrmRapport الحقل تم وضع كود فى بعد التحديث CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر CrntYear = txtYear وكذلك تم التعديل على هذا السطر DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه ', , "Year(date()) = " & CrntYear & ""

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

وعليكم السلام ورحمة الله تعالى وبركاته كل الشكر والتقدير لحضرتك على تلك الافكار الرائعة ...