نجوم المشاركات

مشاركة مع اساتذتنا الاعزاء اذا كانت نتيجة الاستعلام ستظهر على نموذج فممكن الاستغناء عن الاستعلام و وضع المعيار مباشرة بأمر فتح نموذج الناتج DoCmd.OpenForm "frm1", , , "mid(taj,1,3)='" & Me.txt_filter & "'" حيث ان frm1 هو اسم النموذج الذي مصدره الجدول و يتم فتحه بالمعيار المطلوب بالتوفيق للجميع qus.zip

السلام عليكم ورحمة الله وبركاته رايت هناك حاجة لشرح بعض أدوات الفورم لاخواني بالمنتدي حتي يتمكنوا من معرفة كل اداة ووظيفتها ومثال عليها لكي يتمكنوا من عمل فورم بانفسهم وسوف ابدا خطوة خطوة بشرح كل اداة بمثال عملي الدرس الأول Tree View Control وهي تقوم بعرض البيانات علي صورة شجرة مثال الشرح والتطبيق بالمرفقات TreeViewControl.rar

السلام عليكم كما هو معلوم عند استخدام جملة ال SQl فى استدعاء والعمل على سجلات جدول ما فاننا نستخدم كود مثل هذا dim M As Recordset Set m = CurrentDb.OpenRecordset("TabelName",DBOpenDynaset) with M .AddNew !Field1 = me.Field1 !Field2 = me.Field2 .UpDate End With وسؤالى الآن هو أننى أحاول القيام باختصار هذا الكود على النحو التالى لكثرة الحقول التى سيتم ذكرها بالكود أولا وثانيا للحاجة لوضع هذه الكود بوحدة نمطية لاستدعائها عند الحاجة dim M As Recordset Set m = CurrentDb.OpenRecordset("TabelName",DBOpenDynaset) For Each control in me.controls with M .AddNew !control.name = me.control.name .Update .MoveNext End With Next ولكن للأسف يحدث خطأ لعدم قبول !!!!!!! لاسم المغير الذى بعدها فهل هنالك حيلة ما لتفادى هذه المشكلة وجزاكم الله خيرا

تفضل : كل فكرة ولها حل drt2.rar

اتفضل تقرير.rar

كان من المفروض ان ترفق القاعدة وانا قمت بالتعديل عليه لكن اتفضل تم عمل هذا واستخدمت في الاستعلام و النموذج ايضا ExampleDateAdd.rar

اخي اتفضل معي مع شرح مبسط الكود هكذا DateAdd ( interval, number, date ) interval هو سنة yyyy او ربع سنە q او شهر M او يوم D او يوم من أيام الأسبوع w او اسبوع ww او ساعة H او دقيقة N او ثواني S بتکتب الحروفه بين "" number ھو الرقم اللی ترید تضاف على التاريخ مثلا 10 او اي رقم اي هو عدد الفواصل الزمنية التي ترغب في إضافتها وتقدر تكتب اسم الحقل المراد تضيفه DATE ھو تاريخ إضافة الفاصل الزمني ای ھو تاریخ تبعک تقدر تکتب التاریخ او اسم الحقل التی کتب فیھ التاریخ اليك هذه الامثلة على ذلك DateAdd ("yyyy", 3, #22/11/2003#) النتیجە: '22/11/2006' DateAdd ("q", 2, #22/11/2003#) النتیجە: '22/05/2004' DateAdd ("m", 5, #22/11/2003#) النتیجە: '22/04/2004' DateAdd ("n", 51, #22/11/2003 10:31:58 AM#) النتیجە: '22/11/2003 11:22:58 AM' DateAdd("yyyy", -1, #22/11/2003#) النتیجە: '22/11/2002' واذا ما فهمت مني بعد ارفق مثال للتعديل عليه تحياتي

استخدم DateAdd ابحث في المنتدى راح تفاصيل حسب طلبك

تفضل PrgDB2.rar

انا اسف اخواني اني اتأخرت عليكم في رفع البرنامج تفضلو اخواني البرنامج ولا تنسونا بالدعاء برنامج ارشيف صادر وارد.rar

ولو أستاذ شيفان.. العين ما تعلى على الحاجب..

اعمل مربع نصی واعمل ھذا كمصدره ="pp" & Left([BarcodeNum];4) & "pp" & Right([BarcodeNum];4) & "pp" والنتيجة سيكون كالتالي

على بركة الله نبدأ أول درس و ننتظر ملاحظاتكم حول أي شيء نسيته و هو متعلق بهذا الدرس أو أي معلومة أخطأت بها: الــدرس الأول : المتغيرات تعتبر المتغيرات النواة الأساسية أو حجر الأساس بالنسبة لكل برنامج في أي لغة برمجة كانت. يعني قبل البدأ يجب أن تقوم بتعريف المتغيرات التي تحتاجها و تحدد نوعها قبل كل شيء. 11- أنواع المتغيرت: هناك العديد من أنواع المتغيرات و كل نوع يخصص له حجم معين في الذاكرة. سوف نقوم بإضافة شرح جميع أنواع المتغيرات و الحجم الذي يأخذه كل نوع من الذاكرة: String: نص يتسع المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت Boolean: ياخذ نوعين من القيم True و False (طوله 2 بيت ) Byte: بايت يكون رقم بين 0 من 255 (طوله 1 بايت) Integer : عدد صحيح (طوله 2 بيت ) قيمته من 32768- إلى 32767 Long : عدد صحيح طويل (طوله 4 بيت) قيمته من 2,147,483,648- إلى 2.147.483.647 Signal: عدد عشري (طوله 4 بيت) قيمته من 3.402823x1038- إلى 1.401298x10-45- للقيم السالبة و من 1.401298x10-45 إلى 3.402823x1038 للقيم الموجبة Currency: عملة (طوله 8 بيت) قيمته من 922،337،203،685،477.5808- إلى 922،337،203،685،477.5807 Double : مزدوج عدد عشري (طوله 8 بيت) قيمته من 1.79769313486231x10308- إلى 4.94065645841247x10-324- للقيم السالبة. و من 4.94065645841247x10-324 إلى 1.79769313486232x10308 للقيم الموجبة Date: نوع البيانات تكون على شكل تاريخ (طوله 8 بيت) يبدأ تاريخ vba من 1/1/100 حتى 31/12/9999 Object : لتخزين الكائنات التي تحتوي على خصائص و وظائف و يتم تعيينه بجملة set ويشغل في الذاكرة 4 بايت أو حسب خصائص و وظائف الكائن المحدد. و سوف نخصص درس لعرض أنواع الكائنات. Variant : لتخزين كل الأنواع السابقة ويمكن تخزين المصفوفات بداخله أيضاً 2- طريقة الإعلان عن المتغيرات: الإعلان عن متغير يعني حجز مكان في ذاكرة الكمبيوتر باسم هذا المتغير و يحدد حجمه حسب نوع المتغير. و يتم تعريف المتغير أو الإعلان عنه بواسطة العبارة DIM . مثال: Dim A as Integer للإعلان عن أكثر من متغير: Dim a,b as integer للإعلان عن أكثرمن متغير لأنواع مختلفة في نفس السطر: Dim A As Double, B As Integer 3- ملاحظات: - - يفضل الإعلان عن نوع المتغير لزيادة سرعة التعامل معه . - - المتغيرات التي لم تحدد نوعها يعمل فيجول بيسك علي الإعلان عنها تلقائيا من النوع Variant وهو أبطأ أنواع المتغيرات . - - بالنسبة للإعلان عن أكثر من متغير من نفس النوع بالطريقة التالي: Dim a,b as integer هنا b فقط من النوع integer أما a فهو في هذه الحالة يعتبر من النوع Variant يجب أن يتم التعريف بهذا الشكل: Dim a integer,b as integer أو Dim a as Integer Dim b as Integer 4- شروط تسمية المتغيرات: - - اسم المتغير يجب أن يبتدأ بحرف . - - يمكن استعمال الحروف التي تلي الحرف الأول رقم أو حرف أو الإثنين معا. - - لا يجب أن تكون هناك فراغات بين أسماء المتغير و يمكن استعمال الشكل التالي: id_user - - يجب عدم استعمال نقطة أو رمز خاص مثل ( ؟ ، * ، ) ، ( ، /......... إلخ ) ولكن يمكن استخدام الشرطة السفلية ( _ ) - - أن لا يكون اسم المتغير من الكلمات المحجوزة في الأكسس.

بسم الله الرحمن الرحيم الساده الزملاء السلام عليكم ورحمته الله وبركاته رغم عدم تخصصى فى مجال الشيت كنترول الخاص بالمدارس ألا أنه ومن خلال موضوع شيت كنترول النقل لجميع مراحل التعليم الفني للقديرالفاضل أخى الاستاذ محمد على عبدالكريم " أبو براء " الذى كان له الفضل بعد المولى العلى القدير فى ادراك كافة مايتعلق بموضوع الشيت كنترول وخاصة بعد تجربة هذا البرنامج الفريد عمليا فقد جاءت جميع نتائجة وأومره سليمة 100% محتسبا هذا العمل فى موازين حسناته فأحببت أن أتقدم لسيادته ولجميع الساده الزملاء المهتمين بهذا الموضوع والى حضراتكم هذا المرفق وهو عباره عن فوروم يمكنك التنقل من خلاله بين أوراق العمل دون إضهار باقى الاوراق أرجو من الله تعالى أن يكون فيه النفع للجميع جزاكم الله خيرا ... تقبلوا جميعا وافر احترامى وللموضوع بقيه بحول الله تعالى

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