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

كيف نلزم المستخدم بالكتابة 1-بأحرف صغيرة فقط 2-أو احرف كبيرة فقط 3-او اختيار (كبيرة أو صغيرة) حصراً للمزيد هذا الملف Upper_Lower.xlsx

تفضل ...... db.accdb

الله يجزيك اعلى درجات الجنان يارب بس بردو هتدفع انت تتباع دون ان تشارك

عشان انا كنت سبب المشكلة .." كان زر الامر اسمه أمر0 "

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

راجع هذا الرابط اخي الكريم لاستاذنا الفاضل ابو ياسين بارك الله فيه

السلام عليكم تم تبديل المعادلات في الملف المرفق... بن علية حاجي ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

الحدث الذي اعتمدته هو : عند التغيير وهذا الحدث غير عملي مع وجود بيانات كثيرة لانه عند كتابة الحرف يبدأ بالبحث والفلترة ولن تتمكن من كتابة الحرف الثاني الا بعد انتهاء البحث لذا جرب وضع الحدث بعد التحديث او بعد الادخال ( بمعنى تنقر انتر في نهاية الكتابة) ايضا يمكنك انشاء زر بحث تضع الكود داخله

اخي الكريم @qathi دعنا نتفق على ان المبرمج غير متواجد بالقرب من العميل يعني انك تضع برنامجك على موقع ما ويقوم العميل بتحميله وتجربته وفي حال اراد شراء البرنامج فسيقوم بمراسلتك واعطائك سيريال البرنامج ومن ثم ترسل له كود التفعيل وهذا بالضبط ماتقوم به الشركات البرمجية الآن هنالك بعض النقاط التي يتوجب علينا النقاش فيها فنحن هنا لانريد تنفيذ طلبك فقط وانما نريد الوصول الى طريقة عامة يلجأ إليها الجميع في برامجهم اي طريقة تصلح لجميع البرامج .. لذلك دعني اسرد بعض النقاط الهامة وهي كالتالي: اولاً بالنسبة لموضوع تمديد الفترة التجريبية للعميل فإني أجده أمر غير منطقي على الاطلاق لسبب واحد وهو لماذا يتوجب على المبرمج تمديد الفترة التجريبية للعميل؟؟ ثانياً تحديد الفترة التجريبية اذا كان بالايام اي بمعنى من تاريخ كذا الى تاريخ كذا فكيف يمكنك منع العميل من التلاعب بتاريخ جهازه؟؟ ثالثاً اذا افترضنا ان افترة التجريبية انتهت عند العميل او بقي منها القليل وقام العميل بنقل البرنامج الى جهاز آخر او إعطاء البرنامج لعميل جديد فمن المنطقي في هذه الحالة ان نجعل البرنامج يكمل ماتبقى من الفترة التجريبية السابقة لا ان يبدأ الفترة التجريبية من جديد لان نسخة البرنامج قد تم استعمالها على الجهاز الاول .. بذلك نضمن ان اي عميل جديد لايأخذ اي نسخة تجريبية سابقة من عميل آخر رابعاً اذا تم تحديد الفترة التجريبية بالايام من تاريخ 1/1/2020 مثلاً الى تاريخ 20/1/2020 وقام العميل باستعمال البرنامج ليوم واحد اي يوم 1/1/2020 وبعدها تركه لفترة طويلة ومن ثم قام باستعماله بتاريخ 19/1/2020 هنا سنجد ان المستخدم قد خسر المدة التجريبية المصرحة له وهذا الامر غير محبذ لكن اغلب الشركات تتغاضى عن ذلك لانها تعتبر مسألة مدة تجريب البرنامج راجعة للعميل فقط لذلك من باب منح العميل استحقاقه الكامل للفترة التجريبية حتى وان قام بترك البرنامج لعدة ايام اقترحت ان يتم حساب المدة التجريبية بعدد الساعات آلية حساب عدد ساعات الفترة التجريبية تتم من خلال تحديث الوقت المنقضي كل ثانيتين مثلاً الى ان يصل مجموع الوقت المنقضي الى 10 ساعات مثلاً .. طيب ماذا لو قام العميل بالتلاعب في وقت او تاريخ الجهاز؟ الجواب لن يؤثر ذلك على الفترة التجريبية لان فترتنا التجريبية تحسب عدد الثواني فقط الى ان يصل مجموعها الى 10 ساعات .. طيب ماذا يحصل لو قام العميل باعطاء نسخته لعميل آخر؟؟ الجواب سوف يجد ان الفترة التجريبية تكمل ماتبقى من المدة لان الوقت المنقضي يتم تخزينه في نفس النسخة ... طيب ماذا يحصل لو العميل استعمل البرنامج فترة بسيطة مثلاً ساعة واحدة ومن ثم ترك البرنامج عدة ايام ورجع اليه واستخدمه ساعة اخرى؟ الجواب سوف يتبقى لدى العميل 8 ساعات كفترة تجريبية فهو غير ملزم باستعمال البرنامج يومياً خلال الفترة التجريبية.. لذلك انا ارشح بشدة استعمال هذه الطريقة. خامساً عند اكتمال الفترة التجريبية فسوف يتم غلق البرنامج تلقائياً وعند تشغيله مرة اخرى تظهر للعميل صفحة تسجيل البرنامج فقط لذلك لاحاجة لتقييد البرنامج بعدد السجلات لان العميل لن يستطيع عمل اي شيء الا بعد تسجيل البرنامج تحياتي

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

السادة الخبراء الافاضل بعد التحية اريد عمل مربع نص او قائمة منسدلة للبحث عن تاريخ التوريد فى النموذج المرفق HANY_UPDATE.accdb

جرب هذا الكود النتيجة في شيت SALIM Option Explicit Sub FILL_DATA() Dim R#, i#, m#: m = 2 Dim Maj As Worksheet, Sal As Worksheet Set Maj = Sheets("مجاني") Set Sal = Sheets("SALIM") Sal.Range("A2", Range("A1").End(4)).ClearContents R = Maj.Cells(Rows.Count, "Z").End(3).Row For i = 2 To R If Maj.Cells(i, "Z") <> vbNullString Then Sal.Cells(m, 1) = Maj.Cells(i, "Z") m = m + 1 End If Next End Sub الملف مرفق My_book.xlsm

استبدل الى هذه المعادلة =CHOOSE(($U2<$Y2)+($Y2="")+1,"",F2)

أ.اسلام سيد للأسف لم أتمكن من حل مشكلة الإخفاء التام لباقى العناصر عدا الجداول ولكن يمكنك الحماية التقليدية بعمل كلمة سر قوية لمحرر الأوامر وكذلك لقاعدة البيانات مع تحويلها الى accde لمنع إستيراد النماذج والتقارير إذا تم كسر كلمة السر والمرفق يقوم بإخفاء الجداول والجداول المرتبطة بأكسيس و SQL بما لا يمكن إظهاره بخيارات الأكسيس .. أما باقى العناصر فإنها تظهر ولى رأى فى هذا الموضوع .. فإن من يكسر كلمات السر لقاعدة البيانات و محرر الأوامر لن يعجزه إظهار جميع العناصر بما فيها الجداول أمّن مشروعك قدر المستطاع وأتركها لله بالتوفيق HideUnHide.zip

هههههههههههههههههههه حلوة منك يا ابا جودي

بس بصراحه انا مبسوط منك لان انت جننته زى ما هو مجننا بموضوعه

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

اسأل الله لكم ان يهيئ لكم من أمركم رشدا ويرزقكم الخيــر كله ان شاء الله

حبيبي محمد عصام ابا جودى ربي يحفظك ادفع لك كل يوم في صمت بان ربي يحفظك وينفع بك المسلمين

أهو بالمصري تعني زي ما أنت شايف

ما احنا استعملناها أهو

لك ما تريد My_data.xlsm

متابع بصمت ولكم مني كل الشكر لما تبذلوه من جميع النواحي تحياتي للجميع

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

هههههههههههه أستاذي @ابا جودى .. كلامي واضح منذ البداية فيما أريد ..لكن .. تتجمع الافكار منكم وأرى أحياناً أنها ليس ما أريدة ..لكن يتضح أن لديكم خبرة أفضل مني فاتقبلها مهما كانت لعلمي أنكم ستختارون ماهو الأفضل في الحماية لذى أتبع ماتروه مناسب المهم أني أعلم أنكم تقدرون ثقتي بكم .. ولن يخيب ضني فيكم لذى أتمنى أن أرى أبدعاتكم بالحماية في أحسن مايكون

أمرك غريب يا صديقي ترسل ملف فارغ تماماً و تريد ان تبحث عن كلمة وهمية لا نعرف ما هي و اذا لم نجدها تبحث عن كلمة اخرى بردو وهمية هو ايه الكلام دا

طبعا حضرتك عارف انت بتضحك ليه

من بعد اذن الاستاذ @kanory هذه طريقه ثانية بالتوفيق db.accdb

السلام عليكم 🙂 لوسمحت تعطينا مرفق ، علشان اغير الكود الى استعلامين ، حتى يكون اسرع 🙂 جعفر

أشكرك أستاذي @sandanet على أطروحتك .. تفصيل مهم جداً .. أتفق معك فيما أشرك .. أذاً على بركة الله

جزاك الله خير

اخى الكريم بامكانك استخدام هذا الموقع https://www.lostmypass.com/file-types/ms-excel/

وعليكم السلام تفضل اخى الكريم الملف بدون كلمة سر 3 (1).xlsx

ربما الهاتف عندك لا يدعم المعادلات في اكسل (لاني ارى ان الصورة المرفقة مأخوذة من هاتف )

وعليكم السلام 🙂 البرامج التي بصيغة mde. و accde. مقفله ، فلا تستطيع ان ترى الكود ، نعم هناك طريقة تفتح فيها النماذج ، وتستطيع ان تغير (ولا تحذف شيء ابدا) ، ولكن لن تستطيع عمل تغيير كود ، طبعا تقدر تعمل ماكرو للحدث الجديد. بس من الواضح انك لم تعمل البرنامج ، لذا الافضل ان ترجع الى المبرمج لعمل التغييرات المطلوبة 🙂 جعفر

يمكنك اغلاق ال file tab او اخفاء ال ribbon وبذلك لن يستطيع الحفظ باسم

الف شكر لك اخي محمد ابوعبد الله كلنا في الخدمه بما نستطيع

وعليكم السلام-تفضل ,ولكن لن لم يكن هذا هو طلبك فكان لزاما عليك توضيح المطلوب أكثر تفصيلا على الملف ووضح النتائج المطلوبة A11.xlsx

المعطيات المسار واسم الجدول تفضل المرفق البحث في جدول6 .xlsm

الدالات : Dsum , Dcount , Dlookup بطيئة مع السجلات الكثيرة فابحث لعلك تجد طريقا آخر لتحديث سجلاتك

بالتوفيق اخي الكريم @ابو زاهر والشكر موصول لاستاذنا الفاضل @ابو ياسين المشولي وارجو من الله ان يتقبل منا ومنكم صالح الاعمال تحياتي

😁

أستاذي الكبير @ابا جودى للأسف لم يسعفني الوقت في مقر عملي للتجربة لكني حتماً ساخبرك بالنتيجة حالماً تتيح لي الفرصة إن شاء الله

السلام عليكم لست أدري إن فهمت المطلوب جيدا وفي الملف المرفق محاولة لفهمي... بن علية حاجي Setup.xlsx

نعم تم غلق النسخة ولم يظهر امر الدخول

وعليكم السلام 🙂 اذا OLE ، اذن لا توجد لغة صحيحة بها UNICODE 🙂 جعفر

الله يعطيك العافية أخي @qathi لا تحتاج الى موديل بعد عمل الخطوة رقم 2 ضع الايقونة بنفس المجلد فقط وستظهر اينما نقلت البرنامج ::بالتوفيق::

إخوتي في المنتدى بارك الله فيكم على جهودكم الكبيرة في تعليم الآخرين جزاكم الله عنا كل خير ووفكم لما فيه الصلاح أريد فقط ان استفسر ع كود كيفية التنقل من تكست بوكس إلى آخر بحيث إذا كتبت مثلا اليوم 15 في التكست بوكس الأول ينتقل المؤشر إلى التكست بوكس الثاني دون الضغط على أي مفتاح إدخال يعني بمجرد كتابة اليوم ينتقل آليا بارك الله فيكم

تفضل لك ما طلبت على الرغم انى افضل العمل على ملف الإكسيل مباشرة دون العمل على الفورم Followup patients.xlsm

شرح دوال أكسیس:- الدوال كثيرة ومعظمها بالغ التعقيد ولذلك سنحاول شرح ما نستطيع عن تلك الدوال ونقسمها على هيئة دروس لأنه لايمكن أن تشرح مرة واحدة خاصة لابد من الإيضاح 0 أنواع الدوال 0 1 - دوال التاريخ والوقت 2 - دوال التحويلات 3 - الدوال الماليه 4 - الدوال الرياضية وحساب المثلثات 5 - دوال سلاسل البيانات 6 - دوال المجال التجميعية 7 - دوال التحقق من أنواع البيانات 8 - دوال المدخلات والمخرجات 9 - دوال أخرى متنوعة ******************************************* (Date And time )**** دوال الوقت والتاريخ تعيد اليوم والوقت المسجل في الحاسب باستخدام ساعة الحاسب ولا بد من ضبط التاريخ والوقت Now الدالة في الحاسب ولإ النتائج غير دقيقة :Now الدالة اسم مربع النص : Now = الصيغة ------------------------------------------------------- تعيد الوقت ()$Time أو : () Time الدالة اسم مربع النص : ()Time = الصيغة $Date أو : Date الدالة اسم مربع النص : Date= الصيغة ------------------------------------------------------ : Day(Date()) Day الدالة الصيغة: اسم مربع النص (()Day(Date= اسم مربع النص ) Day= )أي حقل تاريخ استخراج اليوم من أي تاريخ مسجل في الجدول مثل تاريخ التوظيف --------------------------------- Month الدالة الصيغة اسم مربع النص Month= ( ( أي حقل تاريخ استخراج الشهر من أي تاريخ مسجل في الجدول مثل تاريخ التوظيف ------------------------------------ : Year الدالة اسم مربع النص ) Year= الصيغة) : أي حقل تاريخ استخراج السنة من أي تاريخ مسجل في الجدول مثل تاريخ التوظيف ------------------------------------- Hour الدالة اسم مربع النص ) Hour= اليغة (مربع نص يحتوي على ساعة الجهاز استخراج عدد الساعات من الوقت المحدد في مربع النص -------------------------------------Minute الدالة اسم مربع النص ) Minute = اليغة (مربع نص يحتوي على ساعة الجهاز استخراج عدد الدقائق من الوقت المحدد في مربع النص ------------------------------------ Second الدالة اسم مربع النص ) Second = اليغة (مربع نص يحتوي على ساعة الجهاز استخراج عدد الثواني من الوقت المحدد في مربع النص ------------------------------------ DateAdd الدالة اسم مربع النص ) DateAdd = اليغة (التاريخ, عدد , الفصل الزمني تعيد هذه الدالة تاريخ جديد بعد أن تضيف له قيمة جديدة ويوضح الجدوال التالي المقصود بالفاصل الزمني 0 الفاصل الزمني التوضيح سنة yyyy ربع سنة q شهر m يوم في السنة y يوم d يوم من أيام الاسبوع w اسبوع ww ساعة h دقيقة n ثانية s ---------------------------------------------------- DDB: الدالة تستخدم هذه الدال في حساب قيمة إهلاك الأصول الثابته بطريقة الإستهلاك المتناقص وكما هو معروف في علم المحاسبة أن قسط الإهلاك طبقاً لهذه الطريقة يكون عالياً في السنوات الأولى من عمر الأصل الثابت 0 مثال توضيحي: txt5 = DDB(txt1, txt2, txt3, txt4) حيث مربع نص يعرض ناتج الداله txt5 : الدالة SYD : مربع نص يتم فيه إدخال ثمن الشراء Txt1 : مربع نص يتم فيه إدخال قيمة الأصل المتوقعة في نهاية المدة Txt2 : العمر الإفتراضي للسلعة Txt3 : سنة معينة تحسب فيها القيمة Txt4 : -------------------------------------------------- ------------------------------------------------------------------ Sin : الدالة تحدد هذه الدالة قيمة جيب زاوية معينة مثال: Fmt = "0.00000" Pi = 4 * Atn(1) ' Calculate Pi. Degrees = InputBox(" الزاوية بالدرجات: 0 ادخل ") ' Specify angle. Radians = Degrees * (Pi / 180) ' Convert to radians. Sine = Sin(Radians) ' Calculate sine. MsgBox " الزاوية جيب = " & Format(Sine, Fmt), , " "الجواب : Cos الدالة تستخدم هذه الدالة لحساب قيمة جيب تمام أي زاوية مثل: Fmt = "0.00000" Pi = 4 * Atn(1) ' Calculate Pi. Degrees = InputBox(" الزاوية بالدرجات : 0 أدخل ") ' Specify angle. Radians = Degrees * (Pi / 180) ' Convert to radians. Cosine = Cos(Radians) ' Calculate sine. MsgBox " تمام الزاوية جيب = " & Format(Cosine, Fmt), , " "الجواب دوال سلاسل البيانات تستخدم هذه الدوال لتعامل مع سلاسل البيانات وهي على النحو التالي: : Format الدالة اسم الحقل , "شكل التنسيق المراد(" = Format ( الحقل أو مربع النص المراد تنسيقه مثال على ذلك التاريخ التالي: TxtDate = Format ( Now , " yyyy/mm/dd ") 1422/11/ هذا التنسيق يعرض التاريخ الهجري في تنسيق كالتالي: 11 التنسيق التالي يعرض اسم اليوم بدلا من الرقم TxtDate = Format ( Now , " yyyy/mm/dddd ") 1422/ فهو يعرض التاريخ الهجري كالتالي : السبت 11 ويمكن تنسيق البيانات بأشكال مختلفه كما نريد 0 : instr الدالة هذه الدالة تعيد رقم يدل على ترتيب عبارة داخل عبارة أخرى مثل: ?instr( " (" علي ", " ل الناتج هو الرقم " 2 " لأن حرف اللام هو الحرف الثاني في ترتيب حروف اسم علي " Lcase " الدالة تقوم هذه الدالة بتحويل سلسلة حروف كبيرة إلى حروف صغيرة مثال: Lcase$ ( "ALY ") aly تصبح هكذا " Ucase " الدالة هذه الدالة تحول سلسلة حروف صغيرة إلى حروف كبيرة 0 مثال: Ucase أو Ucase$ ( " aly ") ALY تصبح الجملة هكذا " Left " الدالة تعيد هذه الدالة مجموعة من الحروف الموجودة في سلسلة بدءاً من الشمال بالعدد المطلوب :مثال txtName2 = Left(txtName1, 3) فإذا كان مربع الاسم يحتوي على اسم جمعه فسوف تعود الدالة ب " عود " وتضعها في مربع النص المسمى " TxtName2 " RIHT$ " أو " RIHT الدالة تعيد هذه الدالة مجموعة من الحروف الموجودة في سلسلة بدءاً من اليمين بالعدد المطلوب: مثال txtName2 = RIHT (txtName1, 3) فإذا كان مربع الاسم يحتوي على اسم جمعه فسوف تعود الدالة ب "جمعه " وتضعها في مربع النص المسمى " TxtName2 " MID$ " وا " Mid الدالة تعيد هذه الدالة جزء من السلسة سواء بيانات حرفيه أو رقمية بالطول وإبتداء من الموقع المحدد : مثال TxtName2= MID(TxtName1,5,4) يحتوي على " العالمية" " txtName فإذا كان الاسم الموجود في مربع النص المسمى " 1 فسوف تكون نتيجة الدالة هي " لمية " " وإذا كان مربع النص يحتوي على رقم مثل" 1234567 " سوف يكون ناتج الدالة هو " 567 Len$ " و " Len الدالة تعيد هذه الدالة عدد الحروف الموجودة في السلسلة مثال: TxtName2= Len(TxtName1,5,4) يحتوي على " العالمية" " txtName فإذا كان الاسم الموجود في مربع النص المسمى " 1 فسوف تكون نتيجة الدالة هي " 8 " أي عدد حروف كلمة العالمية RTRIM$ " و " Rtrim الدالة تقوم هذه الدالة بحذف الفراغات الموجودة في جهة يمين السلسلة مثال TxtName2= Rtrim(TxtName1) سوف تزيل هذه الدالة الفراغات الموجودة جهة اليمنى من الاسم LTRIM$ " و Ltrim ألدالة تقوم هذه الدالة بحذف الفراغات الموجودة في جهةاليسرى السلسلة مثال TxtName2= Rtrim(TxtName1,5,4) سوف تزيل هذه الدالة الفراغات الموجودة جهة اليمنى من الاسم Trim$ " و " Trim الدالة تقوم هذه الدالة بحذف الفراغات الموجودة في الجهة اليسرى واليمنى من السلسة مثال: TxtName2TRIM(TxtName1) هنا سوف تقوم بحذف الفراغات الموجودة يمين ويسار الاسم Space$ " و " Space الدالة تقوم هذه الدالة بوضع مسافة بين كلمتين محددتين بحسب الرقم المسجل مثال: جمعه " " + Space ( "عريفه " + ( 2 النتيجة هي جعل مسافة بين الاسمين هكذا " جمعه عريفه " أمر بمعنى عليك أيها الجهاز بعد كتابة اسم جمعه أن تنقر المفتاح سبيس بالعدد المحدد وهو نقرتين بدليل 2 الموجودة في الكود String $ " و " String الدالة تقوم هذه الدالة بتكرار سلسلة بالعدد المحدد مثال: String( ج" , 5 ") ناتج هذا الكود هو ج ج ج ج ج الدالة " ASC " الدالة بتحويل حرف أو مجموعة حروف إلى القيم الأسكي لها 0 تقوم هذه مثل [code2]ASC( " A ") ناتج هذا التعبير هو 65 وتستخدم هذه الدالة لمعرفة الرقم المقابل للحروف الموجودة على لوحة المفاتيح CHR$ " و " CHR الدالة هذه الدالة هي عكس السابقة مثال: Chr(65) A ناتج هذا التعبير هو " Strcomp " الدالة تقارن هذه الدالة بين سلسلتين لتحدد هل هما متساويتين ثم تعيد رقماً بنتيجة المقارنة مثال txt3 = StrComp(txt1, txt2) فإذا كان Txt وتضع النتيجة في مربع النص 3 Txt و 2 Txt سوف تقارن الدالة بين محتوى مربعي النص 1 مربع النص الأول يحتوي على اسم " مرح " ومربع النص الثاني على اسم "مرح" عندها تكون قيمة مربع النص -------------------------------------- الدالة Sin تحدد هذه الدالة قيمة جيب زاوية معينة مثال: Fmt = "0.00000" Pi = 4 * Atn(1) ' Calculate Pi. Degrees = InputBox(" الزاوية بالدرجات: 0 ادخل ") ' Specify angle. Radians = Degrees * (Pi / 180) ' Convert to radians. Sine = Sin(Radians) ' Calculate sine. MsgBox " الزاوية جيب = " & Format(Sine, Fmt), , " "الجواب : Cos الدالة تستخدم هذه الدالة لحساب قيمة جيب تمام أي زاوية مثل: Fmt = "0.00000" Pi = 4 * Atn(1) ' Calculate Pi. Degrees = InputBox(" الزاوية بالدرجات : 0 أدخل ") ' Specify angle. Radians = Degrees * (Pi / 180) ' Convert to radians. Cosine = Cos(Radians) ' Calculate sine. MsgBox " تمام الزاوية جيب = " & Format(Cosine, Fmt), , " "الجواب ------------------------------ دوال المجال التجميعية Domain aggregate Function سبق وأن تم وضع أمثلة عن تلك الدوال في المنتدى ولكن لا مانع من شرحها مرة أخرى لتعم الفائدة (( Dmax _Dmin _Dsum _Dcount _Dlookup _Dlast *دوال المجال التجميعية هي Dfirst _ Davg _DstDev _Dvar تستخدم هذه الدوال عادة في استخراج بيانات إحصائية مثل المجموع والمتوسط الحسابي وأعلى قيمة وأقل قيمة وعمل مقرانات بين بيانات معينه ومن وجهة نظري وهذا رأيي الشخص أن هذا الدوال هامة جداً ولا غنى لأي مبرمج أكسيس وأرجو أن أوفق في شرحها 0 : Dmax الدالة وظيفتها : استخراج أعلى قيمة في حقل معين في جدول معين X =Dmax( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا أعلى قيمة موجودة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders X = DAvg ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول Ord هذا المثال يعطينا المتوسط الحسابي الأرصدة الموجودة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في Orders العملاء المسمى الجدول 0 X = DCount ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول Ord هذا المثال يعطينا مجموع العملاء الذين لهم أرصدة مسجلة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في Orders العملاء المسمى الجدول 0 X = DLast ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول العملاء Ord هذا المثال يعطينا أخر عميل أدخل له رصيد في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders المسمى X = DLookup ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") Ord هذا تستخدم غالباً في البحث وفي مثالنا هذا فهيا تعطي أول رصيد مسجل في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية Orders والمسجلة في جدول العملاء المسمى البنوك المسجلة في الجدول وعند الرغبة في عرض رصيد مرتبط برقم العميل نضيف لها شرط أخر وهو " اسم النموذج وراسم مربع النص الذي يعرض رقم العميل على النموذج 0 X = DMin ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا أقل قيمة موجودة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders X = DStDev ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول Ord هذا المثال يعطينا الإنحراف المعياري للرصيد الموجود في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في Orders العملاء المسمى الجدول 0 X = DSum ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا مجموع الأرصدة المدخلة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders X = DVar ( " [Ord] ","tblOrders ","[bnk_Name]='Arabi '") والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا تباين الأرصدة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول 0 Orders X = DSum ( " [Ord] ","tblOrders") والمسجلة في جدول العملاء Ord هذا المثال يعطينا مجموع الأرصدة لجميع البنوك في حقل الرصيد المسمى Orders المسمى 0 وبالإمكان إضافة شروط على الدوال مثل عرض أرصدة بنك معين خلال فترة وذلك بإضافة العبارة التاليه مثلاً txtd = DMax(" [Ord] ", "orders", "[bnk_Name]=' الرياض 'And [Date]Between [forms]![FrmOrders]![TxtDate1]And [forms]![frmOrders]![txtDate2") والمسجلة في جدول العملاء المسمى Ord هذا المثال يعطينا أعلى قيمة موجودة في حقل الرصيد المسمى بشرط أن يكونون عملاء البنك العربي فقط مع إهمال بقية البنوك المسجلة في الجدول وعلى أن Orders تكون الأرصدة المسجلة بين التاريخين المسجلين في مربعي النص الموجودين على النموذج وهما ففي هذه الحالة تقوم الدالة بالبحث عن أعلى رصيد مسجل في الجدول في TxttDate و 2 TxtDate1 البنك العربي للفترة الواقعة بين التاريخين المسجلين في حقلي البحث من تاريخ إلى تاريخ على النموذج وهذان مربعي نص ليس لهما مصدر وإنما للبحث فقط وتعتمد المقارنة على حقل في الجدول يتم فيه تسجيل تاريخ إدخال الرصيد للبنك 0 يمكن تعديل الدالة بما يتناسب مع المطلوب 0 ( ) Now المزيد من التوضيح عن الدالة . (y) لكي تزيد الفائدة أود إضافة الأتي-: ينتج الوقت في صورة 24 ساعة ، أي أن الساعة 3:15 عصراً على ( ) Time في حالة استخدام دالة فإن الوقت يظهر بتنسيق 12 ساعة مضافاً إليها رمز م أو ص ( ) Now الصورة 15:15 أما مع الدالة PM أو AM أقصد كما رأيتم يوجد في أكسيس 9دوال وهي: 1 - دوال التاريخ والوقت 0 2 - دوال التحويلات 0 3 - الدوال الماليه 0 4 - الدوال الرياضية وحساب المثلثات 0 5 - دوال سلاسل البيانات 0 6 - دوال المجال التجميعية 0 7 - دوال التحقق من أنواع البيانات 8 - دوال المدخلات والمخرجات 0 9 - دوال أخرى متنوعة 0 80 دالة فرعية ولا بد من شرح الدوال الأساية وفوائدها = وكل دالة تتفرع إلى دوال فرعية والدوال ال 9 الطريقة الثانية : ___ المطلوب : آرائكم أين من الطريقتين نتبع 0 إضافة بسيطة في دوال التاريخ والوقت: أن الأخيرة تعيد التاريخ فقط. DATE() تعيد التاريخ والوقت والفرق بينها وبين دالة NOW() الدالة تعيد تاريخ هجري بهذا الشكل: DATE$ 10-15-1422 شهر-يوم-سنة تعيد الوقت محذوفاً منه رمز صباحا (ص (أو مساء (م( Time$ يمكن بواسطته الاضافة أو الانقاص من التاريخ أمثلة: DateAdd الدالة DateAdd("m", 2, (Date)) المثال السابق يعيد لنا تاريخ بعد إضافة شهرين الى الشهر الحالي. DateAdd("m", -2, (Date )) المثال السابق يعيد لنا تاريخ بعد انقاص شهرين من الشهر الحالي غد انشاء الله قاعدة التحقق من الصحة ونص التحقق من الصحة --------------------------------- قاعدة التحقق من الصحة ونص التحقق من الصحة الوظیفة: لتحديد متطلبات البیانات التي تم إدخالھا إلى سجل ValidationRule يمكنك استخدام الخاصیة يمكنك استخدام ، ValidationRule أو حقل أو عنصر تحكم. عند إدخال بیانات تخالف الإعداد لتحديد الرسالة التي يتم عرضھا للمستخدم. Validation**** الخاصیة شروط: لا يمكن أن يحتوي التعبیر على: 2- دالات معرفة من قبل المستخدم. يسمح بدالات المجال (، (Dsum – Dlookup – Dcount …) 3- دالات المجالات التجمیعیة التجمیعیة فقط للتحقق من الصحة على مستوى النموذج( (Sum – Min – Max ….) 4- الدالات التجمیعیة Eval . 5- دالة CurrentUser . 6- أسلوب 7- مراجع إلى النماذج أو الاستعلامات أو الجداول. 8- بالإضافة إلى ذلك، لا يمكن أن تحتوي قواعد التحقق من صحة الحقل على مراجع إلى حقول أخرى. أما بالنسبة لقواعد التحقق من الصحة على مستوى السجلات، يمكن أن تتضمن التعبیرات مراجع إلى حقول في ھذا الجدول. ------------------------------- س+ج [س كیف أمنع المستخدم من ترك الحقل فارغاً ؟] ج: يوجد طريقتين: 1 - في خاصية مطلوب للحقل اختر نعم. 2 - في خاصية قاعدة التحقق من الصحة اكتب: Is Not Null وإذا أردت أن تظهر رسالة محددة للمستخدم فاكتب نص الرسالة في خاصية نص التحقق من الصحة. س 2: كیف أجعل نص التحقق من الصحة يظھر في عدة أسطر بدلا من سطر واحد ؟ لبدء سطر جديد. Ctrl+Enter ج: بعد كتابة السطر الأول اضغط س 3: كیف أجل المستخدم يدخل بیانات محددة بین رقم ورقم آخر مثل الأرقام ؟ بین 7 و 20 ج: في قاعدة التحقق من الصحة اكتب: >=7 And <=20 وإذا أردت ظهور رسالة عند مخالفة القاعدة ضع نص الرسالة في خاصية نص التحقق من الصحة. طريقة أخرى ولكن تنفع في حالة كون مجال الأرقام صغير حتى لاتضطر لكتابة سلسلة طويلة من الأرقام ، مثال يجب أن يكون الإدخال 1،16،3،88 In (1;16;3;88) س 4: كیف أجعل الكلمة التي يبدأ بھا ھي حرف الباء دائما ؟ ج: في قاعدة التحقق من الصحة اكتب: Like " "*" & "ب س 5: لدي حقل نصي ولكني أريد أن أجبر المستخدم على إدخال بیانات رقمیه فیه ، كیف أفعل ذلك ؟ ج: في قاعدة التحقق من الصحة اكتب: IsNumeric([ نفس الحقل])=صواب اسم س 6: لدي حقل تاريخ أريد أن يكون الإدخال بتاريخ أكبر من تاريخ الیوم ؟ ج: في قاعدة التحقق من الصحة اكتب: >Date() س 7 :في برنامجي حقل تاريخ أريد من المستخدم توحید الیوم في كل الأشھر بمعنى أن يدخل تاريخ الیوم ھو 25 من كل شھر فھل يمكن ذلك ؟ ج: في قاعدة التحقق من الصحة اكتب: Day([ حقل التاريخ])= 25 اسم وإذا أردت شهر محدد فاكتب: Month([ الحقل])= 1 اسم وإذا أردت سنة محددة فاكتب: Year([ الحقل])= 1422 اسم س 8: أريد من المستخدم اختیار خیار من ثلاثة خیارات نصیة مثل: "أصغر" و "أكبر" و "كبیر" فكیف أفعل ذلك ؟ ج: في قاعدة التحقق من الصحة اكتب: In (" ("أصغر";"أكبر";"كبير س 9: كیف أجعل المستخدم يدخل قیمة موجبة فب الحقل دائما ؟ ج: في قاعدة التحقق من الصحة أكتب: >0 ؟ س 10 :ماھي الطريق لمنع المستخدم من إدخال أرقام معینة مثل 4،6،64 ج: في قاعدة التحقق من الصحة اكتب: <>4 And <>6 And <>64 س 11 : كیف أجعل المستخدم يدخل أرقام زوجیه فقط في حقل رقمي ؟ ج: في قاعدة التحقق من الصحة اكتب: الحقل الرقمي اسم] ] Mod 2=0 س 12 : وإذا أردت أعداد فردية فقط فما القاعدة ؟ ج: في قاعدة التحقق من الصحة اكتب: الحقل الرقمي اسم] ] Mod 2<>0 س 13 : كیف أجبر المستخدم على إدخال أكثر من حرفین في حقل نصي ؟ ج: في خاصية قاعدة التحقق من الصحة اكتب: Len([ 1<([جديد س 14 :لقد فمھت طريقة قاعدة التحقق من الصحة لحقل واحد ولكن ھل يصح وضع القاعدة في خاصیة قاعدة التحقق للجدول ولیس للحقل ؟ وھل يصح العكس ؟ ج: نعم ولكن عادة ماتستعمل قاعدة التحقق من الصحة للجدول في حالة ارتباط القيم بأكثر من حقل واحد انظر ما يأتي ، وأما العكس فلايصح. س 15 : ما أريده ھو أن تعمل القاعدة فقط إذا كان حقل آخر يساوي قیمة معینة ، مثال : لدي حقل تاريخ وحقل نصي إذا كان التاريخ أكبر من يوم 15 من الشھر فالقیمة في حقل النص لابد أن تكون متأخر ؟ ج: أظهر خصائص الجدول ، وفي خاصية التحقق من الصحة للجدول اكتب: IIf(Day([ ([اسم حقل النص]="متأخر";[اسم حقل النص]; 15 =<([حقل التاريخ اسم س 16 :عندي جدول فیه حقلین نصیین أريد من المستخدم إذا ترك أحد الحقلین فارغ أن لايترك الحقل الثاني فارغ بمعنى لابد أن يكتب قیمة في أحد الحقلین ؟ ج: أظهر خصائص الجدول ، وفي خاصية التحقق من الصحة للجدول اكتب: IIf(IsNull([ الحقل 1 ]);Not IsNull([ الحقل 2 ]);Not IsNull([ (([الحقل 1 ----------------------------------------- الخاصیةInputMaالوظیفة: لجعل إدخال البیانات أكثر سھولة وللتحكم في القیم InputMask يمكنك استخدام الخاصیة التي يمكن أن يدخلھا المستخدمون في عنصر تحكم مربع النص. س 1: ماھي الطريقة التي أجعل المستخدم يدخل 4 أرقام في حقل رقم الھاتف أجبارياً وبدون مسافات أو أي أحرف أخرى ؟ ج: في خاصية قناع الإدخال ضع: 0000 س 2 :وإذا أردت أن أسمح بالمسافات أو ترك بعض الحقل فارغا بشرط أن لايزيد الإدخال عن 4 حروف ؟ ج: في خاصية قناع الإدخال ضع: 9999 س 3 :لقد حاولت بما ذكرته لي في الجواب السابق أن أضع بین الأرقام علامة + وعلامة – ولكن لم استطع فما ھي الطريقة في ذلك ؟ ج: في خاصية قناع الإدخال ضع: #### س 4 :ماسبق ھو في الأرقام ، ولكن كیف أجعل المستخدم يدخل أربعة حروف ولايسمح له بكتابة أقل من ذلك ؟ ج: في خاصية قناع الإدخال ضع: LLLL كبير ولايصح صغيراً. L يجب أن يكتب حرف س 5: ھذا واضح ، فما الطريقة لجعل إدخال الأحرف اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: ???? س 6 :لكن لم تخبرني ھل يمكن في الحالتین السابقتین أن يدخل المستخدم أرقاماً مع الحروف ؟ ج: لا. س 7: إذن ما الطريقة إن احتجت لذلك ، ما أقصده أن يكون الإدخال حروف أو أرقام أو كلاھما ولكن إجباريا وعدد الأحرف أربعة ؟ ج: في خاصية قناع الإدخال ضع: AAAA كبيراً. A يجب أن تكتب حرف س 8: وإن أردت ما سبق اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: aaaa س 9 :لكنه لم يسمح لي بإدخال مسافات في طريقة السؤال السابع ، ما أريده أن يكون الإدخال إجباريا يسمح بالأرقام والحروف والمسافات ؟ ج: في خاصية قناع الإدخال ضع: &&&& س 10 :وإن أردت السابق ولكن اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: CCCC س 11 :عندي حقل نصي أسجل فیه كلمة سر ، وأريد أن تظھر الأحرف على شكل نجمة فما الطريقة ؟ ج: في خاصية قناع الإدخال ضع: Password س 12 :كیف أجعل الحروف المدخلة دائما كبیرة بواسطة قناع الإدخال ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ، مثال: '*>LLL*' س 13 :وإذا أردت الحروف صغیرة في كل الحقل ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ، مثال: <LLL س 14 : وإذا أردت القناع بعض الأحرف صغیرة وبعضھا كبیرة كیف أفعل ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ثم < ثم بقية القناع مثال: >LLL<LLLLL س 15 : كیف استطیع أن أغیر الحرف النائب الافتراضي _ الى حرف أو رمز آخر ؟ ج: في آخر القناع ضع الحرف النائب مكرراً ، مثال: لوضع = كحرف نائب اكتب: *>LL00000*\-0000;=;= س 16 :أريد بعض الأمثلة على قناع الإدخال ؟ ج : قناع الإدخال أمثلة القيم تعريف (000) 000-0000 (206) 555-0248 (999) 999-9999! (206) 555-0248 ( ) 555-0248 (000) AAA-AAAA (206) 555-TELE #999 -20 2000 >L????L?000L0 GREENGR339M3 MAY R 452B7 >L0L 0L0 T2F 8M4 00000-9999 98115- 98115-3007 >L<?????????????? Maria Pierre ISBN 0-&&&&&&&&&-0 ISBN 1-55615-507-7 ISBN 0-13-964262-5 >LL00000-0000 DB51392-0493 sk قناع الإدخال ------------------------------------------ يمكنك استخدام الخاصيةFormat لتخصيص طرق عرض وطباعة الأرقام والتواريخ والأوقات والنص. يتم للقراءة/الكتابة. String الإعداد باستخدام على كيفية عرض البيانات فقط. ولا تؤثر على كيفية تخزين البيانات. Format تؤثر الخاصية تنسيقات معرفة من قبل لأنواع بيانات التاريخ/الوقت، والرقم والعملة، والنص Microsoft Access يوفر والمذكرة، ونعم/لا.تستند التنسيقات المعرفة من قبل إلى البلد/المنطقة المحددة بواسطة النقر المزدوج فوق التنسيقات المناسبة ل Microsoft Access يعرض Windows. "خيارات إقليمية" في لوحة تحكم البلد/المنطقة المحددة. على سبيل المثال، مع تحديد إنجليزي (الولايات المتحدة) في علامة التبويب عام، يظهر 1234.56 بتنسيق "العملة" ك $ 1,234.56 ، لكن عند تحديد إنجليزي (بريطانيا) في علامة التبويب £ عام، يظهر الرقم ك. 1,234.56 نوع بيانات التاريخ س 1: مامعنى تاريخ طويل ؟ وماھو التنسیق الخاصبه ؟ ج :التاريخ الطويل هو تنسيق من أحد التنسيقات المتوفرة حسب اختيارك شكل التنسيق في إعدادات إقليمية في لوحة التحكم. والتنسيق الخاص به هو الموجود في إعدادات إقليمية من لوحة التحكم ، ويختلف حسب البلد أو المنطقة. س 2: ھل تقصد أنني إذا رغبت في تغییر التنسیق الطويل في كل القاعدة أو القواعد أرجع للإعدادات الإقلیمیة من لوحة التحكم ؟ ج: نعم هذا صحيح. س 3: وإذا رغبت في تغییر تنسیق التاريخ الطويل بأحد الأشكال الموجودة في الإعدادات الإقلیمیة لأحد الحقول فقط ، فماذا أعمل ؟ ج: أنسخ التنسيق من الإعدادات الإقليمية ثم ألصقه في خاصية تنسيق للحقل. س 4: لقد عدت للقائمة الموجودة في الإعدادات الإقلیمة ووجدت تنسیقات كثیرة وحروف لم أفھم رمزھا فأرجو التوضیح مع شرح ھذا التنسیق: dddd, MMMM dd, yyyy Day تمثل اليوم مأخوذة من : d ج Month تمثل الشهر مأخوذة من M Year تمثل السنة مأخوذة من Y في خمس حالات: d والتالي يشرح يوم من الشهر بخانة رقمية عددية أو خانتين رقميتين عدديتين، حسب رقم اليوم تحتاج ( 1 إلى 31 في d : الأشهر الميلادية. ( يوم من الشهر بخانتين رقميتين عدديتين ( 01 إلى 31 في الأشهر الميلادية. ( dd : الأحرف الثلاثة الأولى من أيام الأسبوع) الأحد إلى السبت. ) ddd : يظهر اسم اليوم كاملاً وإذا تم اختيار Hijriy Calendar عند اختيار التاريخ الهجري في الإعدادات الإقليمة يظهر جزء من الاسم وهو اختصار لأسماء الأيام في اللغة الإنجليزية مثال Gergorian Calendar Tue . للثلاثاء يظهر الاسم الكامل لأيام الأسبوع (الأحد إلى السبت. ( dddd : مثل التنسيق المعرف من قبل ل "التاريخ القصير." ddddd : مثل التنسيق المعرف من قبل ل "التاريخ الطويل." dddddd : فكالتالي: M وأما الشهر ) . شهر من السنة بخانة رقمية عددية أو بخانتين رقميتين عدديتين، كما تحتاج ( 1 إلى 12 m : ) . شهر من السنة بخانتين رقميتين عدديتين ( 01 إلى 12 mm : الأحرف الثلاثة الأولى من الشهر (يناير إلى ديسمبر. ( mmm : بالنسبة للأشهر العربية تظهر كاملة لعدم وجود اختصارات لها. الاسم الكامل للشهر (يناير إلى ديسمبر. ( mmmm : بالنسبة للأشهر العربية كالسابق. وأما السنة فلها التنسيقات التالية: عدد أيام السنة ( 1 إلى 366 ) بتوضيح آخر كم يوم مضى من السنة. y : الخانتين الرقميتين الأخيرتين من السنة ( 01 إلى 99 ) وفي التاريخ الهجري تظهر السنة كاملة مثال : yy : 1422 السنة كاملة ( 0100 إلى 9999 ) (لم أفهم معناها. ( yyyy : س 5 :أريد من التنسیق أن يظھر لي رقم الیوم من الأسبوع ؟ w ج: في تنسيق ضع س 6 :وإن أردت رقم الأسبوع من السنة فما التنسیق ؟ ww ج: في تنسيق ضع س 7 :السنة أربعة أرباع فأريد أن يظھر لي التنسیق في أي ربع ھذا التاريخ المسجل ؟ q ج :في تنسيق ضع س 8: لقد اخترت تاريخ طويل ولكن يظھر لي التنسیق من الیمین السنة ثم الشھر ثم الأيام فكیف أجعله يبدأ من الیوم ثم الشھر ثم السنة ؟ ج: ضع في خاصية تنسيق: dd/MMMM/yyyy س 9: كیف أجعل التاريخ يظھر بھذا التنسیق: السبت 1 محرم من عام 1422 من الھجرة ؟ ج: ضع في خاصية تنسيق: من الهجرة" "yyyy" محرم من عام dddd d" س 10 : ماھي صیغة ھذا التنسیق: سجل في يوم السبت "dddd ج : "سجل في يوم للامانه : منقــــول