شايب

عملك صحيح فقط غير 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 وبناء على النتيجة تنفذ الامر الذي تريده وهنا يتوقف الاخ شايب 🌹

تعليق لاخونا العزيز شايب في برامج المبيعات يتطلب وجود جدول واحد للاصناف او اكثر حسب طريقة المبرمج مثلا جدول الاصناف وجدول ترميز الاصناف وطلب الاستاذ ابو عبد الرحمن ادراج صنف في فاتورة المبيعات خارج قائمة الاصناف المتوفرة امر غير مالوف الا اذا كان المقصود في حالة عدم وجود الصنف يتم ادحاله مباشرة في الفاتورة ويحفظ ايضا في جدول الاصناف وهذا ايضا قد يسبب مشكلات من حيث تكرار اصناف باسماء مختلفة مثل زيت زيتون واخر زيت الزيتون .... وهكذا وايضا قد يحصل صنف واحد على اكثر من كود للصنف بينما يفترض بكود الصنف ان يكون معرف فريد للصنف ايضا من مروري بشكل سريع على البرنامج وجدت انه تم استخدام دالة DLookup في حدث بعد التحديث للقائمة بهذا الشكل Me.SellingPrice = DLookup("[SellingPrice]", "TaItems", "ItemID=" & [ItemName]) Me.SellingPrice2 = DLookup("[SellingPrice]", "TaItems", "ItemID=" & [ItemName]) Me.ItemDiscount = DLookup("[ItemDiscount]", "TaItems", "ItemID=" & [ItemName]) Me.PurchasPrice2 = DLookup("[PurchasPrice]", "TaItems", "ItemID=" & [ItemName]) Me.SellingPrice2 = DLookup("[SellingPrice]", "TaItems", "ItemID=" & [ItemName]) Me.ItemDiscount2 = DLookup("[ItemDiscount]", "TaItems", "ItemID=" & [ItemName]) Me.LowestPrice2 = DLookup("[LowestPrice]", "TaItems", "ItemID=" & [ItemName]) اي كاننا ننفذ سبعة استعلام عند ادراج كل صنف بينما كان يمكننا تحميل قيمة الحقول السبعة بامر واحد وسبق شرحه في الموقع او الاستغناء عن DLookup بتحميل قيمة الحقول السبعة عن طريق الاستعلام ثم اسناد قيمة كل حقل بحسب موقعة في القائمة me.ItemName.Column(0) me.ItemName.Column(1) me.ItemName.Column(2) وهكذا وجهة نظر ونترك الامر للاساتذة والخبراء الاخ شايب 🌹

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

مشاركة مع الاستاذ محمد اعتقد ممكن استخدام الامر If Len(Me.number_custom & "") <> 0 Then Exit Sub Dim rst As Recordset Dim a, x As Integer date_custom = Date Me.number_custom = Nz(DMax("[number_custom]", "tbl_custom", "year([date_custom])=" & Year(date_custom)), 0) + 1 Set rst = Me.Form.RecordsetClone x = rst.RecordCount Me.Dirty = False For a = 1 To x rst.Edit rst!number_custom = number_custom rst!date_custom = Date rst!emp_company = DYear rst.Update number_custom = number_custom + 1 rst.MoveNext Next Me.Requery ولكن مع وجود عدد كبير من السجلات التعامل مع الجدول اسرع

على الرغم من اني شايب وفهمي على قدي لكن جرب Dim rs As Recordset Dim a As Integer Dim x As Integer Set rs = Me.نموذج_فرعي_tabl.Form.RecordsetClone x = rs.RecordCount rs.MoveFirst For a = 1 To x rs.Edit If rs!prentss = True Then rs!prentss = False Else rs!prentss = True End If rs.Update rs.MoveNext Next a مرفق الملف BD.accdb

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