شايب

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

في المثال الاساسي يوجد خلل وكذلك في تعديلكم استاذ قاسم جرب تفلتر اسم من مقطعين اي بينهما مسافة مثلا ستجد المشكلة طبعا الحل متوفر انظر مشاركة استاذنا ابو احمد وتوجد طريقة اخرى في حدث عند مفتاح اعلى ايضا تكرار المعايير ليست خطأ ولكن بمكن اختصارها بامر واحد بدلا من Me.Form.Filter = "[QryPaids]![FATHER_NAME] LIKE '*" & filterText & "*' OR [QryPaids]![NUM_PAID] LIKE '*" & filterText & "*'" ممكن نكتب الامر هكذا strWhere = "[FATHER_NAME]&[NUM_PAID] like '*" & strtxt & "*'" وممكن نزيد الحقول لاي عدد بدون الحاجة لتكرار like و or هنا نبحث في اربعة حقول بمربع نص واحد strWhere = "[FATHER_NAME]&[NUM_PAID]&[DATE_PAID]&[INSTALLMENTS] like '*" & strtxt & "*'" وفي هذه الطريقة اضافة للبحث والفلترة المعروفة يمكن تقسيم البحث على الحقول مثلا نبحث عن احمد الذي يعمل في ادارة وباشر العمل بتاريخ ويكون البحث باستخدام "*" بالشكل التالي احمد*المالية*12/1/2018 و الحديث قد يطول ولكن نترك الامر للاساتذة الكرام فاهل مكة ادرى بشعابها اخير يعتقد اخونا شايب ان الفلترة اثناء الكتابة خيار غير جيد اذا كانت القاعدة تحتوي على عدد كبير من السجلات او اذا عملنا عن طريق الشبكة واعتذر عن وضع مرفق فمشاركتي تهتم بالجانب النظري اضافة لعدم اقتناعي بفكرة الفلترة عند التغيير اخونا شايب 🌹

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

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

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

عملك صحيح فقط غير IIf(Len([Forms]![frm]![city] & ' ')=0;[id_city];[Forms]![frm]![city]) الى IIf(Len([Forms]![frm]![city] & "")=0;[id_city];[Forms]![frm]![city]) ومن رأي اخونا الفاضل شايب انك تغير اسم الكمبوبوكس في النموذج الملف مرفق Felter.accdb

نعم ممكن في حدث عند التحميل ضع Me.InsideHeight = 7000 Me.InsideWidth = 10000 الارقام غيرها للحجم الذي يناسبك ولا تنسى ان تعدل خصائص النموذج من تبويب تنسيق الى توسيط تلقائي نعم ونمط الحدود الى مربع حوار او رفيع وزري التصغير والتكبير الى بلا او تمكين التصغير حسب ما تريد اخونا شايب 🌹

وعليكم السلام نعم توجد من اهما استخدام اجهزة ups power supply هذه الاجهزة تتراوح اسعارها مابين 180 ريالى الى عدة الاف وتعطي مهلة لحفظ عملك واغلاق الجهاز بامان كل جهاز يعطيك فترة زمنية للاغلاق الامن اضافة الى تنظيم التيار الداخل للجهاز وبالتالي يحمي مكونات الجهاز من اي ارتفاع او انخفاض مفاجئ وبناء على حجم البطارية تعطي مهلة للاغلاق مابين 15 دقيقة الى 60 دقيقة وهناك ملحقات اخرى ترسل تنبية خلال 3 ثواني من انقطاع التيار للمسؤل عن طريق الايميل او الرسائل الخاص بعض هذه الملحقات تستطيع التعامل مع جوال واحد والبعض اكثر من ذلك ولكن لابد ايضا ان يكون المودم مشبوك في جهاز الباور سبلاي الامر الاخر لابد من حفظ نسخة احتياطية بشكل دوري اخونا شايب 🌹

مش حالك ياعمنا العود عش رجبا ترى عجبا

بالتوفيق لك احيانا بسبب اخطاء الادخال وقد يكون التعديل اليدوي صعب لوجود العديد من عمليات الادخال ونرغب بمعالجة المشكلة من خلال الكود وممكن ذلك من خلال دالة TRIM TRIM(اسم الحقل) ويمكن هنا توظيفها في معيار الفلترة ونكتفي بهذا القدر والله الموفق اخونا الفاضل شايب 🌹

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

في مشاركة الاخ شايب السابقة اشار الى طريقة استخدام متغير عام للفلترة عن طريق معيار في الاستعلام وفي هذه المشاركة فلترة النماذج الثلاثة عن طريق الكود في حدث بعد التحديث للقائمة المنسدلة نضع الامر Dim ctl As Control For Each ctl In Me.Form.Controls If (ctl.ControlType = 112) Then If Me.Productid.Column(1) = "***All item***" Then ctl.Form.FilterOn = False Else Me.Purchase_Invoice_F.Form.Filter = "[Item_Name] like '" & Me.Productid.Column(1) & "'" Me.Sales_Invoice_F.Form.Filter = "[Item_Name] like '" & Me.Productid.Column(1) & "'" Me.stockF.Form.Filter = "[prdc] like '" & Me.Productid.Column(1) & "'" ctl.Form.FilterOn = True End If End If Next Me.Refresh اخيرا هل يمكن اختصار الكود والاستغناء عن ثلاثة اسطر في منتصف الكود واستبدالهم بالاشارة لعنصر التحكم نعم ممكن ولكن الاخ شايب يكتفي بما سبق ويترك التجويد للاساتذة والخبراء الملف مرفق اخونا شايب 🌹 Database61.rar الشكر لله وطالما تم الحل فان الاخ شايب يتوقف عن شرح طرق اخرى ويكتفي بما سبق اخونا شايب 🌹

اخونا العزيز شايب يقول ما نحتاج نغير مصدر الكمبوبكس ويمكن الوصول للنتيجة بثلاثة طرق سوف يشير اليها لعل احد ينتفع بها الطريقة الاولى وهي طريقة التحكم بمصدر بيانات النماذج الثلاث اذا كان الاختيار كل الاصناف يكون مصدر النموذج استعلام بدون وغير ذلك يكون المعيار قيمة الكمبوبوكس ولكنها متعبة قليلا حيث لدينا ثلاث نماذج اي انها سنكتب مصدر النموذج مرتين لعدد ثلاث نماذج = 6 الطريقة الثانية مشابهة للاولى ولكن من خلال الفلترة والغاء الفلترة الطريقة الثالثة وهي نفس ما اشرت اليه في ردي الاول ولكن المعيار يكون متغير عام في وحدة نمطية نضع الاتي Public x As String Public Function t() t = x End Function ثم في حدث بعد التحديث للكمبو بوكس نضع الامر If Me.Productid.Column(1) = "***All item***" Then x = vbNullString Else x = Me.Productid.Column(1) End If Me.Refresh وفي معيار الاستعلام للنماذج الثلاثة نضع الامر Like "*" & Nz(t()) & "*" اخيرا الاخ شايب ليس متخصص وبالتالي لايهتم باختيار اسماء للمتغيرات والوحدات النمطية ذات دلالة بعمل كل منها وانما يختار احرف عشوائية ويترك تجويد الاوامر للاساتذة والخبراء الملف مرفق اخونا الشايب🌹 Database51.rar

لا عند عدم الاختيار تظهر جميع الاصناف وممكن نجعلها تظهر الكل بالكود ولكن هي مجرد مشاركة فلتكن رفع للموضوع

اجعل مصدر النماذج الثلاثة بمعيار الكمبوبوكس ومصدر الكمبو بوكس الجدول الخاص بالاصناف وفي المعيار نضع Like "*" & [Forms]![on HandF]![Productid] & "*" نفس المعيار للنماذج الفرعية الثلاثة اخونا شايب 🌹

الوصف من موقع مايكروسوفت عام السمة الحد الأقصى إجمالي حجم قاعدة بيانات Access (سواء.accdb أو .mdb)، بما في ذلك جميع عناصر قاعدة البيانات والبيانات 2 غيغابايت، ناقص المساحة اللازمة لعناصر النظام. ملاحظة: يمكنك التغلب على قيود هذا الحجم عن طريق إنشاء ارتباط إلى الجداول في قواعد بيانات Access الأخرى. يمكنك إنشاء ارتباط إلى الجداول الموجودة في ملفات قواعد بيانات متعددة، يمكن أن يصل حجم كل منها إلى 2 غيغابايت. تلميح: للحصول على مزيد من المعلومات حول تقليل حجم قاعدة البيانات، اطلع على المساعدة على منع مشاكل ملفات قاعدة البيانات وإصلاحها باستخدام "الضغط والإصلاح". العدد الإجمالي للعناصر في قاعدة بيانات 32,768 عدد الوحدات النمطية (بما في ذلك النماذج والتقارير التي تم تعيين خاصية HasModule لها إلى True) 1000 عدد الأحرف في اسم العنصر 64 عدد الأحرف في كلمة المرور 14 ملاحظة: بالنسبة لـ Access 2007 يكون 20 حرفاً. عدد الأحرف في اسم المستخدم أو اسم المجموعة 20 عدد المستخدمين المتزامنين 255 الجدول السمة الحد الأقصى عدد الأحرف في اسم الجدول 64 عدد الأحرف في اسم الحقل 64 عدد الحقول في الجدول 255 عدد الجداول المفتوحة 2048؛ بما في ذلك الجداول المرتبطة والجداول التي يتم فتحها داخلياً بواسطة Access حجم الجدول 2 غيغابايت ناقص المساحة اللازمة لعناصر النظام عدد الأحرف في حقل "نص مختصر" ملاحظة: بدءاً من Access 2013، تسمى الحقول "النصية" حقول "نص مختصر". 255 عدد الأحرف في حقل "نص طويل" ملاحظة: بدءاً من Access 2013، تسمى حقول "المذكرة" حقول "نص طويل". 65535 عند إدخال البيانات من خلال واجهة المستخدم؛ 1 غيغابايت من مساحة تخزين الأحرف عند إدخال البيانات برمجيا حجم حقل "عنصر OLE" 1 غيغابايت عدد الفهارس في الجدول 32؛ بما في ذلك الفهارس التي تم إنشاؤها داخلياً للاحتفاظ بعلاقات الجداول، والفهارس ذات الحقول المفردة والمركبة. عدد الحقول في فهرس أو مفتاح أساسي 10 عدد الأحرف في رسالة التحقق من الصحة 255 عدد الأحرف في قاعدة التحقق من الصحة بما في ذلك علامات التنقيط وعوامل التشغيل 2,048 عدد الأحرف في وصف الجدول أو الحقل 255 عدد الأحرف في أحد السجلات (باستثناء حقول "نص طويل" و"عنصر OLE") عند تعيين خاصية الحقول UnicodeCompression إلى نعم 4,000 عدد الأحرف في إعداد خاصية الحقل 255 الاستعلام السمة الحد الأقصى عدد العلاقات المفروضة 32 لكل جدول ناقص عدد الفهارس الموجودة في الجدول للحقول أو مجموعات الحقول التي لا تشتمل عليها العلاقات* عدد الجداول في الاستعلام 32* عدد الصلات في الاستعلام 16* عدد الحقول في مجموعة السجلات 255 حجم مجموعة السجلات 1 غيغابايت الحد الأقصى للفرز 255 حرفاً في حقلٍ واحد أو أكثر عدد مستويات الاستعلامات المتداخلة 50* عدد الأحرف في خليةٍ ما في شبكة تصميم الاستعلام 1,024 عدد أحرف المعلمة في استعلام المعلمات 255 عدد عوامل تشغيل AND في بند WHERE أو HAVING 99* عدد الأحرف في جملة SQL تقريبا 64000 حرف* *قد تكون القيم القصوى أقل إذا تضمن الاستعلام حقول بحث متعددة القيم (.accdb فقط). النماذج والتقارير السمة الحد الأقصى عدد الأحرف في التسمية 2,048 عدد الأحرف في مربع نص 65,535 عرض النموذج أو التقرير 22,75 in. (57,79 سم) ارتفاع المقطع 22.75 in. (57,79 سم) ارتفاع جميع المقاطع بالإضافة إلى رؤوس المقاطع (في طريقة عرض التصميم) 200 in. (508 سم) عدد مستويات التقارير أو النماذج المتداخلة 7 عدد الحقول أو التعبيرات التي يمكنك فرز أو جمعها في تقرير 10 عدد الرؤوس والتذييلات في التقرير رأس/تزر واحد للتقرير؛ رأس/تصفحة واحدة؛ 10 رؤوس/تاشيارات للمجموعة عدد الصفحات المطبوعة في تقرير 65,536 عدد عناصر التحكم والمقاطع التي يمكنك إضافتها طوال مدة بقاء النموذج أو التقرير 754 عدد الأحرف في جملة SQL التي تعمل كخاصية Recordsource أو Rowsource لنموذج أو تقرير أو عنصر تحكم. 32,750 الماكرو السمة الحد الأقصى عدد الإجراءات في الماكرو 999 عدد الأحرف في الشرط 255 عدد الأحرف في التعليق 255 عدد الأحرف في وسيطة الإجراء 255 السمة الحد الأقصى عدد العناصر في مشروع Access (.adp) 32,768 عدد الوحدات النمطية (بما في ذلك النماذج والتقارير التي تم تعيين خاصية HasModule لها إلى True) 1000 عدد الأحرف في اسم العنصر 64 عدد الأعمدة في الجدول 250 (Microsoft SQL Server 6.5) 1024 (Microsoft SQL Server 7.0 و2000 و2005) النماذج والتقارير السمة الحد الأقصى عدد الأحرف في التسمية 2,048 عدد الأحرف في مربع نص 65,535 عرض النموذج أو التقرير 22 إن. (55.87 سم) ارتفاع المقطع 22 إن. (55.87 سم) ارتفاع جميع المقاطع بالإضافة إلى رؤوس المقاطع (في طريقة عرض التصميم) 200 دولار. (508 سم) عدد مستويات التقارير أو النماذج المتداخلة 7 عدد الحقول أو التعبيرات التي يمكنك فرز أو جمعها في تقرير 10 عدد الرؤوس والتذييلات في التقرير رأس/تزر واحد للتقرير؛ رأس/تصفحة واحدة؛ 10 رؤوس/تاشيارات للمجموعة عدد الصفحات المطبوعة في تقرير 65,536 عدد عناصر التحكم والمقاطع التي يمكن إضافتها طوال مدة بقاء النموذج أو التقرير 754 عدد الأحرف في جملة SQL التي تعمل كخاصية Recordsource أو Rowsource لنموذج أو تقرير أو عنصر تحكم (كل من .accdb و.adp) 32,750 الماكرو السمة الحد الأقصى عدد الإجراءات في الماكرو 999 عدد الأحرف في الشرط 255 عدد الأحرف في التعليق 255 عدد الأحرف في وسيطة الإجراء 255 اخيرا اخونا الفاضل شايب ينصح بعدم اخذ مواصفات الشركة كامر مسلم به لكون هذه الحدود القصوى للوصول لها يتطلب مواصفات خاصة فعلى سبيل المثال تشير الموصفات الى ان عدد المستخدمين المتزامنين يصل الى 255 مستخدم بينما العدد الاقصى للمستخدمين لمجلد المشاركة لاصدارات نظام التشغيل ويندوز فقط 20 مستخدم وللصول الى عدد اكبر نحتاج الى استخدان برنامج تشغيل ويندوز سيرفر ولا نكتفي بذلك فلابد ان يكون لدينا عتاد قوي للشبكة وطريقة الاتصال وهنا لا نكتفي بالسرعة وانما بسعة النطاق لتجنب ما يسمى بعنق الزجاجة الحقيقة ان الاخ شايب يوصى من لدية قاعدة بيانات كبيرة التفكير بحلول اخرى منها SQL Server واعتقد انه يوجد العديد من المشاركات التي تشرح هذا الامر اخونا شايب🌹

اخونا الشايب يقول من الصعب عليه ان يجاري الاساتذة الكبار في مشاركاتهم مع ذلك يرغب في طرح طريقة مشابهة لطريقة المعلم ابوخليل ولكن بدون تسمية عناصر الاختيار والاكتفاء بقيمة الكائن 106 وباقي الامر هو نفس كود استاذنا الفاضل Dim ctl As Control Dim t, x As String x = Nz([txtfasthrs], "00") For Each ctl In Me.Form.Controls If (ctl.ControlType = 106) Then If ctl.Value = True Then t = t & "1" Else t = t & "0" End If Next Me.moreinfo = Format(t & x, "0000000") With rs .AddNew ![pname] = txtpname ![moreinfo] = Me.moreinfo .Update End With lstData.Requery اما استاذنا ابو احمد ماشاء الله تبارك الله فلديه طريقة تدرس في كتابة الاكواد اخونا شايب 🌹

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

جرب BASE2023(2).accdb

s19 s20 s21 s22 s23 s24 1 2 2 6 6 2 يكون مجموع الحقول بعد اسنبعاد اي حقل قيمته [6] = 7 والمتوسط = 1.16 وبعد التقريب = 1 هل هذا صحيح

جرب BASET1(1).accdb

نعم ممكن لتحويل حقل في الجدول من نوع تاريخ الى نص CurrentDb.Execute "ALTER TABLE tbl_1 ALTER COLUMN s_date text" ------------ tbl_1 هو اسم الجدول s_date هو اسم الحقل وللتحويل من نص الى تاريخ CurrentDb.Execute "ALTER TABLE tbl_1 ALTER COLUMN s_date DateTime" مع ذلك فأن اخونا العزيز شايب ينصح بعدم تنفيذ هذه الفكرة ويقول دع حقل التاريخ كما هو ويمكن اضافة حقل نصي وتتحكم بما يظهر وفقا لرغبتك حيث ان كتابة التاريخ ستبقى عند تحويل حقل تاريخ الى نص الى نص اما عند تحويل حقل نص الى تاريخ فان اي كتابة نصية سيتم حذفها عند تحويل الحقل الى تاريخ الشايب

انت ادرى بما تريد 🌹

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

الفكرة في انشاء وحذف المجلدات في vba مشابهه لاوامر cmd ولكوني غير متخصص فقط سوف اشير الى طريقة انشاء وحذفة المجلد في vba واترك الامر للاساتذه والخبراء صيغة انشاء مجلد MkDir CurrentProject.Path & "\ااسم المجلد\" لحذف المجلد RmDir CurrentProject.Path & "\اسم المجلد\" ويمكن تسمية المجلد من خلال تسمية مباشرة او من خلال حقل في النموذج او اسناد التسمية الى متغير وهكذا ويمكن التأكد من وجود المجلد قبل تنفيذ الامر من خلال If Len(Dir(CurrentProject.Path & "\اسم المجلد\", vbDirectory)) = 0 Then وبناء على النتيجة تنفذ الامر الذي تريده وهنا يتوقف الاخ شايب 🌹