egyptian_eg

فى خاصية قناع الادخال

input mask

99\-99\-99;;-

عذرا أستاذ أبو هادي ، اضفت التعقيب قبل أن أري أن ردك قد نشر ( فى نفس الوقت تقريبا )

الفرق أن الحالة الاولي القيمة فى مربع النص رقمية

و فى الثانية القيمة نصية

لان الثيم النصية لابد أن تحتوي بين ' و '

أو "" , ""

أما ال " الخارجية فهي للتعبير عن بداية و نهاية جملة النص

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

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

شكرا علي الشرح الوافي

جزاك الله خيرا

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

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

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

و لكن أعتقد أنه لابد من اضافة حماية أخري اليه أو الي أي ملفات تريد حمايتها ، مثل كلمة سر مثلا للفتح

حيث أن حماية الملف و الشيت يمكن التغلب عليها

راجع هذا الموضوع

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:

جزاكم الله خيرا علي هذا القسم

و الذي كنا نفتقر اليه

و في انتظار المزيد من ابداعك يا أخ أحمد