عبق الرياحيين

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

موجوده هنا على فكرة فى الموضوع ده فى المشاركة دى تم شرحها الاكواد اعتقد على حسب فهمى فى الموديول ده UsysmodShift لتفعيل وايقاف الشيفت والموديول ده UsysmodAsteriskPass لوضع كلمة المرور

هات قاعدة البيانات بتاعتك

السلام عليكم اولا : مرسي لحضراتكم جدا جدا ثانيا : فى ملحوظة بسيطة انا جربت مجلد مساحتة الفعلية (1,145,179,239 bytes) ـ 1.06 GB طالع بالكود 1 جيجا فقط ثالثا : فى مشكله كبيرة لما المساحة زادت وأصبحت بالويندوز (1,430,109,334 bytes) ـ 1.33 GB طالع بالكود 1 جيجا فقط كذلك رابعا: وايضا عندما زادت وأصبحت المساحة على الويندوز (1,999,994,880 bytes) ـ 1.86 GB طالع بالكود 1 جيجا فقط كذلك خامسا: عندما زادت وأصبحت المساحة على الويندوز (2,152,608,364 bytes) ـ 2.00 GB ظهر رسالة خطأ كما بالملف المرفق ويتم ايضاح الخطأ من زر الأمر اظهر المساحة هل هنااك حل .. للعلم طلبى لغرض متابعة مجلدات تخص العمل حتى اذا وصلت النتيجة للمجلد الى 4 جيجا اريد عمل انذار وتنبيه حتى اقوم بعمل باك اب لكل البيانات على dvd فأنا فى أمس الحاجة الى هذا الكود الله يرضى عنكم ان شاء الله Folder Size.mdb

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

وانا اضم صوتي ليك

الحل فى المشاركه دى

شكرا بس انا مش عارفه ابدأ البرنامج من انهو نموذج

شكرا بس انا مش عارفه ابدأ البرنامج من انهو نموذج

StrSql = "SELECT * FROM tb1 where " & StrWhere بس هو بيعتمد على استعلام تم تحويله فقط من استعلام الى جملة SQL امممممممممممم

طيب بس ده بيعد كل قيم الحثل ده على النموذج هو ممكن نعد قيم الحقل ده لما يكون بيساوى aaa فقط ؟

بس ممكن سؤال هو فى كود بيعمل count بناء على قيم الحقل من النموذج مباشرة دون كتابة اسم الجدول او الاستعلام كما فى الكود السابق ؟

السلام عليكم انا اسفه باتقل على حضراتكم انا عاوز اعمل count للحقل اللى باسم fild_a الحقل ده بيختوى على تلات قيم الاول aaa الثانية bbb الثالثة ccc انا عاوزة فى الفوتر فى اخر نموذج العدد لكل القيم الموجوده فى النموذج اللى تساوى aaa والعدد لكل القيم الموجوده فى النموذج اللى تساوى bbb والعدد لكل القيم الموجوده فى النموذج اللى تساوى ccc بصراحه حاولت اعمل dcount بس مش عارفه اطبقها السؤال.rar لاقيت الحل الحمد لله =DCount("fild_a","qry_data","fild_a ='aaa'")

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

المسألة تختلف باختلاف الحالة وانا عن نفسى افضل كتابة الاكواد داخل محرر (vba) لانها اكثر مرونة من الماكرو

السلام عليكم هو ازاى استخدم nz مع المعيار ده Like "*" & [Forms]![frm_name]![combo_name] & "*" انا عندى حقل احيانا لا يحتوى على قيم ومحتاجه افتح الاستعلام عن طريق نموذج ولو الحقل بتاع المعيار لم يكتب فيه اى شئ يفتح بكل السجلات دون تصفية لذلك استخدمت Like "*" & ولكن المشكله لو الحقل فاضى اعمل ايه لو سمحتم انا مش عارفه وحاولت ابحث قبل ما اكتب الموضوع بس مش عارفه اكتب ايه فى البحث للعلم انا جربت استخدام المعيار بالشكل ده ومش نفع Like "*" & (nz([Forms]![frm_name]![combo_name])) & "*" وكمان جربت اكتب الكود بالشكل ده ومش نفع Like "*" & Nz([Forms]![frm_check]![combo_SN_Scan],"") & "*"

ميرسي شكرا

السلام عليكم ورحمة الله وبركاته من فضلكم انا مش عارفه اظبط الكود فى المثال المرفق المطلوب كالاتى الحالة الاولى عند الضغط على زر الامر تجربة لو ان مربع التحرير والسرد فارغ ومربع النص txt_s فارغ يكون الناتج 1 الحالة الثانية عند الضغط على زر الامر تجربة لو ان مربع التحرير والسرد غير فارغ ومربع النص txt_s فارغ يكون الناتج 2 الحالة الثالثة عند الضغط على زر الامر تجربة لو ان مربع التحرير والسرد فارغ ومربع النص txt_s غير فارغ يكون الناتج 3 الحالة الرابعة عند الضغط على زر الامر تجربة لو ان مربع التحرير والسرد غير فارغ ومربع النص txt_s غير فارغ يكون الناتج 4 شكرا مقدما ليكم db.rar

طيب فين المرفق ده ؟!

انا عارفه المعلومه دى ميرسي ليك ولذوئك لكن لو قاعدة البيانات اتحولت لاى اصدار اقل من 2007 مش راح تشتغل علشان كده انا عملتها كلها اكواد علشام لو حد حب يحول لـ 2000 او 2003

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

كود مهم جدا ولا يمكن الاستغناء عنه تحديد ارقام الخطأ لرسائل الاكسس فيمكن تعطيلها او ترجمتها Private Sub Form_Error(DataErr As Integer, Response As Integer) MsgBox DataErr MsgBox DataErr & vbCrLf & Err.Description Response = acDataErrContinue End Sub

انا اسفه مش عارفه اعمله بدون نموذج فرعى

وعاوزه اسال سؤال هو حضرتك محتاج لحفظ المسار فى الجدول انا شايفه انه مش له اى لزوم حفظ المسار هل الغيه واللا محتاج له فى شئ وانا مش عارفه

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