egyptian_eg

RecordsetClone تعبر عن مجموعة السجلات التي تظهر حاليا فى نموذج فلو قلنا me.recordsetclone.recordcount فهذا يعني عدد السجلات الموجود فى النموذج حاليا و بالنسبة ل vbCrLf فهي لادراج سطر جديد فى الرسالة ( من أول السطر يعني )

جزاك الله خيرا و زادك علما

بالفعل يمكنك التطبيق بالكود باحدي الطرق التي ذكرها أخونا محمد طاهر و لكن ايضا هناك حل أبسط و هو استنتاج القيم الجديدة فى استعلام بناء علي الدالة كما فى المثال و يلي ذلك عمل استعلام تحديث لتحديث الحقل الاصلي من الحقل المستنتج فى الاستعلام مرفق مثال علي الاستنتاج فى Query1 و التحديث فى Query2 و للمزيد حول الاستعلامات ( ان كان هناك داعي) ، فلها شرح مفصل للأخ محمد فى قسم دورة الاكسيس و شكرا FunctionInQuery.rar

أعد تحميل الاوفيس و ان لم يكن فقم بتحميل فيجوال بيزيك 6 علي الجهاز

ما ذكرته هو احد الاسباب و هو تلف الغلاف ، أو ملف ال mdb الذي يحوي البيانات لذلك قد ينفعك استبداله كما سلف ايضا اتصور من ضمن الاسباب عيوب تصميم قاعدة البيانات و عدم تكاملها مرجعيا ( عدم وجود refrential integrity بين العلاقات )

مع ملاحظة ان الماكرو لا علاقة له بالصورة و انما ستحمي الماكرو فقط اضغط alt+f11 من Tools project properties protection ضع كلمة السر هذا اذا قصدت الحماية بمعني عدم رؤية الكود اما اذا قصدت منع تشغيل الماكرو فيمكنك وضع كلمة سر عليه بان ضع فى اول الكود الخاص بالماكرو بعد سطر اسم الماكرو x = InputBox("officea", "please enter the password", 555) If x <> 123 Then Exit Sub End If و سيسألك عن كلمة السر و اذا لم تكتب 123 فسيخرج دون تنفيذ باقي تعليمات الماكرو

حل نظري لست خبيرا بالتعامل مع الاصوات و لكن افترض امكانية عمل الاتي باحد محررات الصوت ( برامج تحرير الصوت ) اصنع ملف يحوي الصوت + الفراغ ( او صوت خافت ) بمعني ملف كوله مثلا ثانيتان ، الاولي بها صوت الثانية خالية او بها صوت خافت و استخدم الملف الجديد ارجو ان يكون هذا ممكنا

حل نظري ( لم أجربه ) احد الاقتراحات هو اظهار هذه المعلومات فى chart ثم اظهر البيانات فى وضع ال data sheet ثم Edit import file و اختار ملف اكسيل و يمكن جعل هذا الملف مرتبط و يقرأ بياناته من الاكسيس

أعتقد أن الحل الافضل و الاسلم هو التعامل مع رقم الهارد ديسك ، و ليس المعالج

جرب تغيير غلاف البرنامج أي فتح ملف جديد و استيراد جميع الكائنات اليه

راجعي هذا الموضوع http://www.officena.net/ib/index.php?showtopic=1071

قد يجذب البعض سعر جهاز ما لشرائه لكن ذلك القرار سيتسبب بالندم الأكيد، لأن السعر وحده لا يضمن أي شيء مهما ارتفع أو نزل. فهناك فروق شاسعة بين الكمبيوترات المحمولة وليست كلها أجهزة كمبيوتر دفترية تصلح لكل شيء. فمن الضروري أن تعرف ما تريده ولا يهمك سعر الكمبيوتر المحمول سواء كان بألف أو مئة ريال. توشيبا وهيوليت باكارد كانتا سباقتين في طرح أجهزة خفيفة جدا كما هو حال توشيبا ليبريتو وهو أقرب إلى أجهزة نت بوك الحالية من الكمبيوترات الدفترية، ولكن وقتها لم تكن هناك خدمات وتطبيقات إنترنت كافية (في مطلع أواخر التسيعينيات). فما تقدمه الإنترنت هو الفيصل. وإذا أردت حلا وسطيا بين استخدامات الهاتف الجوال والكمبيوتر الدفترين فستجد فئة نت بوك مثالية لكل تطبيقات الويب وخدمات الإنترنت، أما للعمل بالملفات الكبيرة فسوف يخيب أملك لأن أهم مزايا فئة نت بوك بل سبب نجاحها أيضا هي تلبيتها لحاجات خاصة محددة مثل الحجم الصغير بما في ذلك شاشة صغير مناسبة لتصفح الإنترنت بدقة 1024، ولوحة مفاتيح كاملة دون أن تكون بالحجم الكامل. كما أنها أجهزة تكمل العمل بالكمبيوتر الشخصي ولا تغني عنه تماما، كما هو الحال في مهمات العيار الثقيل لتحرير الملفات الضخمة. هناك أيضا مزايا هامة فيها مثل التشغيل السريع. ولكتابة بريد إلكتروني مثلا، تمثل هذه الأجهزة وسيلة مثالية تتفوق فيها على الهاتف الجوال الذكي. هناك أيضا تطبيقات الويب المناسبة لهذه الفئة، فلا داع للاعتماد على قرص صلب ضخم للتخزين ولا أقراص ليزرية لتثبيت البرامج فيها بل تكفي خدمات وتطبيقات الويب. أما إذا أردت كمبيوتر لتحرير الصور والفيديو وأحدث ألعاب الكمبيوتر ثلاثية الأبعاد فلا تفي بالغرض أجهزة ن تبوك الصغيرة. ويمكنها أن تشغل ألعاب الويب فقط. فكل ما يلزمك في هذه الأجهزة هو كاميرا ويب ومتصفح إنترنت ومايكروفون ومنافذ الناقل العام USB. أما إذا كنت تفكر باستخدام أوفيس وأدوبي فوتوشوب فلا تنفع هذه لذلك، بل يمكنك استخدام بدائل الويب من تلك التطبيقات مثل أدوات فايرفوكس أو وثائق غوغل وما يعرف بتطبيقات ويب 2,0 أو حتى خدمات السحاب. كذلك فإن نظام التشغيل هو جانب غير مهم في هذه الأجهزة سواء كان أندرويد أو ويندوز أو حتى لنيوكس فالإنترنت هي نظام تشغيلها المحوري من الناحية العملية. هناك ناحية هامة أخرى وهي عمر البطارية المديد في هذه الأجهزة، فالطرز الناجحة منها تضحي بالكثير من المزايا لتحقيق ذلك ولحفظ دقائق البطارية الثمينة والتي يساهم في إطالة عمرها وجود قرص صلب مصمت SSD دون أجزاء متحركة فيه. المصدر http://www.itp.net/arabic/features/details.php?category=&id=6401

شكرا علي المثال الجميل

شكرا علي الشرح الوافي جزاك الله خيرا و نرجو أن يهتم الاخوة بمحاولة فكها لنعرف مقدار الحماية التي توفره

شكرا علي الملف الجميل

شكرا لك علي نشر الملف و لكن أعتقد أنه لابد من اضافة حماية أخري اليه أو الي أي ملفات تريد حمايتها ، مثل كلمة سر مثلا للفتح حيث أن حماية الملف و الشيت يمكن التغلب عليها راجع هذا الموضوع http://www.officena.net/ib/index.php?showtopic=1418

ملف رائع و فعال ، و جديد شكرا لك صفحة الموضوع http://www.straxx.com/excel/pasword.html مرفق الملف password.zip

مثال رائع جدا مع الشكر

حل عملي و جميل مشكور

يوجد عدد كبير من الدوال تم التعرض لها بامثلة المنتدي و اعتقد أنها يتكون الاكثر استخداما اما عم مرجع عربي كامل للدوال ، فاعتقد ان ملف التعليمات يحوي شرح مفصل ، و ان كنت تريده بالعربية فيمكنك نسخ ملف التعليمات من جهاز محمل عليه النسخة العربية ( الملفات بامتداد hlp و تصفحها بمفردها ) اما عن الاقساط ، و مواضيع الدراسات الاقتصادية و المالية ، فهذه مواضيع قريبة : IRR http://www.officena.net/ib/index.php?showtopic=81 لمن يهتم براسة الجدوى و تقييم المشروعات http://www.officena.net/ib/index.php?showtopic=729 الأستهداف Goal Seek و الاقساط http://www.officena.net/ib/index.php?showt...pic=328&hl=seek

جزاك الله خيرا علي المثال الجميل و اضافة بسيطة الي الكود باستخدام isnumeric On Error Resume Next text2 = "" For i = 1 To Len(text1) x = Mid(text1, i, 1) If IsNumeric(x) Then text2 = text2 & x End If Next

أخي الكريم أعتقد أن تغيير الرمز لن يكون مناسبا بالنسبة للمستخدمين . و بالنسبة للحماية بكلمات السر المختلفة ، و استعمال قراءة سيريال الهارد و خلافه ، فأذكر أنه سبق تناولها فراجع قسم الحماية داخل قسم خلاصة المشاركات ، فربما يجزي هذا عن ما تريد فتعطي لكل شخص كلمة سر مبنية علي سيريال الهارد مثلا بعد التحميل أيضا راجع هذا الموضوع بخصوص الحماية http://www.arabteam2000.com/ib/index.php?s...=0entry178073 فهو يبدووووو مهم :lol:

جزاكم الله خيرا علي هذا القسم و الذي كنا نفتقر اليه و في انتظار المزيد من ابداعك يا أخ أحمد

If Date > #8/15/03# Then msgbox "Time Over" else msgbox "Time remaining" & Str(#8/15/03# - date) DoCmd.quit End If

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