ابو جودي

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

اتفضل 5.accdb

اهلا استاذى الجليل ومعلمى القدير الاستاذ الفاضل @أبو إبراهيم الغامدي حضرتك قلت وبكلام مختصر: عند إضافة أو تحرير سجل.. أنت لست بحاجة إلى تحميل بيانات الجدول بالكامل! وبناءً عليه نستخدم وصلات الاستعلام للوصول للبيانات بشكل محدد.. طيب ما البيانات فى الاستعلام هى هى البيانات اللي بالجدول ؟ ما الفرق أستاذي واللا حضرتك تقصد لو الجدول يحتوى 10 حقول ممكن نستخدم فى الاستعلام 4 حقول فقط حسب الحاجة

هذا الروتين يكتب داخل الموديول Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer Select Case KeyCode Case 70 And Shift = 2 AllowKeyCode = KeyCode MsgBox ("turning off ctrl+f") Case 72 And Shift = 2 AllowKeyCode = KeyCode MsgBox ("turning off ctrl+h") Case Else AllowKeyCode = 0 End Select End Function ويتم استدعاء الامر فى زوايا التطبيق من خلال الكود الاتى KeyCode = AllowKeyCode(KeyCode, Shift) فى حدث KeyDown اما لاحد العناصر على النموذج او KeyDown للنموذج نفسه اعتذر تم الرد بتسرع دون الوقوف على الية عند تنفيذ الروتين الخاص بالكود ... وتم حل المشكلة

ما شاء الله الله اكبر مع الاستاذ @jjafferr لا توجد فى قاموس الاكسس كلمة مستحيل

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

انت لا يا الاكل يا الحل 😡 سيبك من الانقطاع دلوقتى لكل مقام مقال وانت اخدت الحل اترك لنا الاكل

طالما هناك عشاء لا تقلق 😋 لن نتأخر عنكم ابدا أستاذى دائما نحن فى الخدمة

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

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

انا أصبحت ضائع نتحدث فى الاصل عن ربط القاعدة الامامية بالخلفية .. صح ثم أخبر الاستاذ @أبو إبراهيم الغامدي ان كل بيانات الاتصال تظهر بالجدول MSysObjects فى الحقل Connect واشار سيادته بطريقة ربط غير مباشرة ثم بعد ذلك سألت كيف ننشئ الإستعلامات مع هذه الطريقة وكان رد سيادته وتفضلتم سيادتكم استاذى الجليل بالشرح الوافى بالاضافة طريقة اخوي ابو ابراهيم ، اليك طريقه انت متعود عليها : 1. هذا مسار قاعدة بيانات الجداول (هذه خطوة مؤقته) ( D:\Documents\Downloads\LINKED DATA\DB1.ACCDB ) : . 2. نعمل استعلام عادي في برنامج الواجهة ، وبدون اختيار اي جداول ، ثم نضع في Source Databasse ، اسم ومسار قاعدة بيانات الجداول (انظر اعلاه) (بدلا عن كلمة Current) : . 3. انقر على زر Show Tables (رقم 2) ، فسترى جداول قاعدة بيانات الجداول : . 4. ونعمل الاستعلام بطريقة عادية ، ونحفظه (كذلك مؤقتا على نعمل النموذج فقط) : . 5. اعمل النموذج المطلوب ، بحيث يكون الاستعلام اعلاه مصدر بياناته: . 6. ثم نحول الاستعلام الى وضع SQL . 7. ونحصل على الجملة التالية : . 8. ثم نضع هذه الجملة في السطر الذي وضعه اخوي ابو ابراهيم ، في حدث التحميل للنموذج (الجملة كما هي من الاستعلام وبتعديل بسيط) : . 9. نحذف الاستعلام مصدر البيانات ، ونحذف اسم الاستعلام من Record Source (مصدر بيانات) النموذج . 10. وكتعديل اخير حتى يشير الى وجدود قاعدة بيانات الجداول في نفس مجلد برنامج الواجهة (حتى يعمل البرنامج على كل جهاز وبأي مجلد) : . جعفر LINKED DATA_2.zip 128.11 kB · 16 downloads الان اليست الاستعلامات بتلك الطريقة الان عى محور النقاش ام ماذا

مثال 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

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