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

استعمال الدالة VLookup في البحث باستخدم الكود وباستخدم الفورم استعمال الدالة VLookup في البحث باستخدم الكود.rar

الزباري أبو حنــــين جزاكم الله خيرا موضوع شيق و اثنين محترمين تحياتى

abo_abary_count_repeat_no (2).zip

شرح دوال أكسیس:- الدوال كثيرة ومعظمها بالغ التعقيد ولذلك سنحاول شرح ما نستطيع عن تلك الدوال ونقسمها على هيئة دروس لأنه لايمكن أن تشرح مرة واحدة خاصة لابد من الإيضاح 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 ج : "سجل في يوم للامانه : منقــــول

البرنامج يعتمد علي معدلات الساعة حيث يصلح للمنشات الصناعية والتجارية التي تعتمد علي معدل الساعة للعاملين حيث يتم احتساب اضافي وتاخير ( الساعة تحسب بساعة ونصف ) ويتم فيالنهاية حساب راتب كل موظف وستحقاقاتة وخصوماتة ويعطيك الصافي طريقة التعامل مع البرنامج : اولا من صفحة قوة المصنع يتم ادخال كل اسماء الموظفين او العمال برواتبهم ثانيا يوجد صفحة للسلف بتسمع في خانة شيت كل موظف علي حدة ثالثا عند البحث عن اسم اي عامل يكون عن طريق الضغط مرة واحدة علي الاسم فيتم نقلك الي شيت العامل ويتم ادخال حضورة وانصرافة مثلا يوم السبت الحضور( 8 ) والانصراف ( 5 ) وهكذا اي استفسار انا معاكم وبرجاء التعليق ولاتنسوالدعاء بظهر الغيب

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

السلام عليكم ورحمة الله وبركاتة هل لدى احدكم فكرة عن عمل البوم صور ( بنموذج مستمر ) !؟

هل يمكن ارسال رسالة من اكسس الى زبون عن طريق تلغرام

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

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

اهلا بك اخي الكريم هل تريد تكرار الكود وعدم تكرار اسم الدواء؟؟ اذا كان نعم فكود الاستاذ صالح يفي معك بالغرض بشرط تعديل بسيط علي الكود.. سوف اذكره لك عندما اجلس علي الكمبيوتر تحياتي

شكرا جزيلا اخي العزيز صالح حمادي وبارك الله فيك

الأخ الكريممحمد لؤي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_مطابقة بين الشيتات.zip

السلام عليكم جميعا عرض مغري و محدود من تاريخ 2100/01/01 الى 2199/12/31 و الكمية محدودة و الرجاء من الزبائن عدم التدافع و احترام الطابور . الكل حياخد نصيبو . ****************************************** تم استدارك الخطأ و استرجاع الاموال الضائعة من المصيبة الى فاتت مع بحث و تعديل فاتورة ارجو التجربة لاستدراك الاخطاء 5-فاتورة.rar

لعل السائل يرد ان يظهر له هذا الشكل Power.rar

يسعدنا تواجدك معنا يا أبو أدهم.. بس شفت عرض أبوحنين (اشتر واحدة وباقي الكمية مجاناً).. يا بلاش. تحياتي للجميع

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

طلعت محمد حسن جزاك الله خيرا و نرجو المزيد تحياتى

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

تفضل اخي الكريم احمد هل هذا ما تقصده؟! 111.rar

الحمد لله لقد توصلت إلى الكود الذي يؤدي الغرض حسب ما فهمت أنا: On Error Resume Next Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("tbl_wared_motaba") x = 1 rs.MoveFirst For I = 1 To DCount("*", "tbl_wared_motaba") If Nz(rs!id_emp_w, 0) = Nz(id_m, 0) And Nz(rs!sn_user_Recv, 0) = Nz(sn_user_Recv, 0) And Nz(rs!sn_user_Send, 0) = Nz(sn_user_Send, 0) And Nz(rs!taxt_Tasera, 0) = Nz(taxt_Tasera, 0) And Nz(rs!dd_end, 0) = Nz(dd_end, 0) And Nz(rs!Date_End, 0) = Nz(Date_End, 0) And Nz(rs!Date_start, 0) = Nz(Date_start, 0) Then x = 0 End If rs.MoveNext Next I If x = 0 Then msgBox ("لقد تم تسجيل هذه البيانات من قبل") Else Me.frm_wared_motaba.SetFocus rs.AddNew rs!id_emp_w = id_m rs!sn_user_Recv = sn_user_Recv rs!sn_user_Send = sn_user_Send rs!taxt_Tasera = taxt_Tasera rs!dd_end = dd_end rs!Date_End = Date_End rs!Date_start = Date_start rs.Update msgBox ("لقد تم تسجيل البيانات بنجاح") End If Me.Requery Me.frm_wared_motaba.Requery rs.close Set rs = Nothing المراسلات.rar

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

اثراء للموضوع هذا الكود salim Find_repetition.rar

مثال جميل و فكرة جميلة جزاك الله كل خير و بارك فيك

السلام عليكم تم عمل المطلوب ان شاء الله و تبقى التجربة هي السبيل الوحيد لاكتشاف الاخطاء 3-فاتورة.rar

On Error GoTo ErrorHandler . . Cells(r, 1) = Cells(r - 1, 1) + 1 استكشاف الأخطاء وإصلاحها: هذا الكود يقوم بعملية الترقيم التلقائي، حيث يقوم بإضافة واحد على الخلية الحالية، بمعنى أن الخلية الحالية=الخلية السابقة+1 وهذه المعادلة تنطبق على جميع الخلايا فيما عدا الخلية الأولى، حيث تتكون الخلية الأولى على نص العنوان "م"، فبذلك لا يمكن جمع نص مع العدد واحد، وفي هذه الحالة أٌجبر الكود بأن يعتبرها أول رقم من الترقيم (يعني واحد).. ويتم توجيهها إلى الكود التالي: ErrorHandler: Cells(r, 1) = 1 Resume Next وتقبلوا تحياتي.. ترقبوا السؤال التالي.

السلام عليكم الملف بعد التعديل مع اضافة مسح للبيانات فاتورة.rar

للتشويق ستكون فاتورتنا كالتالي: