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

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

بسم الله الرحمن الرحيم وقبل البداية اود ان اهنئكم بعيد الاضحى المبارك كل عام وانتم جميعا بخير . ----------------------------------------------------------- سنتاول معا طرق الاهلاك المختلفه -ونبدأ بطريقة القسط الثابت محاسبيا وباستخدام الاكسيل مع التطبيق اليدوي ايضا . وتعتبر طريقة القسط الثابت من اكثر الطرق استخداما فى حساب الاهتلاك حيث يتم توزيع تكلفة الاصل على عمره الانتاجى وهنا تتساوى قيمة اهتلاك لكل فتره مع الفترات الاخرى وبموجب هذه الطريقة يحسب الاهلاك كالاتى . القيمة القابلة للاهتلاك = (تكلفة الاصل – الخرده) ÷ العمر الانتاجى ملاحظة يمكن ان تكون قيمة الخرده صفرا اذا كانت قيمة الاصل قليلة نسبيا ولكن اذا كان قيمة الاصل كبيره فان قيمة الخرده ستكون مهمه وجوهريه . واليكم مثال من الحياه العملية كما فى الشكل التالى ------------------------------------------------------ وان شاء الله تعالى ستناول تبعا طرق الاهلاك باستخدام الاكسيل وهى -طريقة القسط الثابت (Straight line) باستخدام الدالة SLN -طريقة القسط المتناقص (Declining Balance) باستخدام الدالة DB -طريقة القسط المتناقص المضاعف (Double Declining Balance) دالة DDB -طريقة مجموع ارقام السنوات (Sum Of Year's Digts) دالة SYD -طريقة القسط المتناقص المضاعف او طريقة اخرى (Variable Declining Balance) دالة VBD ------------------------------------------------------ هذه ماده علمية كاملة تناولت فيها هذه الطرق طبقا لمعايير المحاسبة وحاولت توضيحها بامثلة عملية من الواقع والحياه العملية . و تناولت فيها دوال الاكسيل بشكل مفصل . وايضا حاولت فيها تطبيق الطرق اليدوية ------------------------------------------------------ وان شاء الله سننشر للجميع مجانا ولوجه الله تعالى (زكاة العلم نشره ) وان شاء الله تضاف الى المكتبة العربية فى الاكسيل . والله سبحانه وتعالى الموفق والمستعان هذا وما كان من توفيق فمن الله وحده، وما كان من خطأ أو سهو أو زلل أو نسيان فمني ومن الشيطان والله ورسوله منه براء. ------------------------------------------------------ نرجو منكم مشاركة الجميع ومتابعتنا على خبير اكسيل - محمد الريفى جروب خبير اكسيل Mohamed Elrify طريقة القسط الثابت.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز بو عبد الله جرب الكود التالي Dim rs As Recordset Dim Criteria As String Set rs = CurrentDb.OpenRecordset("tblHeuresPerdus", dbOpenSnapshot, dbReadOnly) Criteria = "[Machine]='" & [cboMachine] & "'" _ And "[LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _ And [Opérateur] = " & [cboOpérateur]" بالتوفيق

تمام استاذ عبدالله يا سلام عليك وهذا ما يوصى به وهناك فائدة اخرى عظيمة وهي التخفيف على قاعدة البيانات فباتباع هذه الطريقة ستستوعب الجداول اضعاف اضعاف فيما لو تم ادخال البيانات والنصوص كاملة . هذا مثال لتشفير البيانات داخل الجداول كلمة المرور 123 وهو اجابة لصاحب السؤال ahmedrashed في توضيحه ومشاركته الثانية مع الاخذ بالاعتبار مقولة عدم تحقق الحماية الكاملة حماية.rar

اصدقائي الاكارم تحية طيبة اخي عبد الله تقوم هذه الفكرة على جدولين الجدول الاول يخزن فيه رقم الفلاشة او الفلاشات التي ستعمل على البرنامج الجدول الثاني هو جدول نضع فيه رقم الفلاشة الموصولة حاليا ويتم المقارنة بينهما وطبعا عند سحب الفلاشة بتم حذف الرقم من الجدول الثاني هل تقصد الخيار ( ترميز قاعدة البيانات ) ؟؟ ام تشفير البيانات في الجداول ؟؟ لاستخدام ( ادارة المستخدمين و الاذونات ) في اكسس 2016 يجب ان تكون قاعدة البيانات mdb

شكرا جزيلا وبارك الله فيك عاشت الايادي ,اذا ممكن تطبيق نفس التنسيق الشرطي على الملف المرفق علما اني حاولت اخذ نفس التنسيق ولكن ظهرت لدي بعض الاشكالات برجاء فضلا لا امرا تطبيق ذلك على المرفق وعل النطاقات الاتية: a5:c23 F5:h23 a30:c46 f30:h46 سمارت كارت بعد التعديل4 (1).rar

تفضل اخى الكريم برنامج حسابات صغير يعتمد على قيود اليوميه من تصميمى ما عليك الا انك تنشء حساب باسم الصندوق واسماء العملاء الذى تريد وتعامل معها بحكم خبرتك فى المحاسبة مدين ودائن وكدا اسم المستخدم admin ;كلمة السر admin برنامج حسابات يعتمد على قيود يوميه.rar

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

تحية طيبة وبعد اخى محمد عصام المرفق جميل جدا شكرا لك لقد اطلعت عليه للتو . كل سنة وانت طيب عيد وكدا الان دورالملاحظات القاموس الذى ارفقته الاسماء جميل جدا ولكن هو قاموس عام بمعنى اذا قمت بكتابة اسمى مثلا ( السيد ) سيقوم البرنامج بترجمته Master خلاف مانريد ثم كيف يمكن ان ننفذا مرفقك على برنامج اخونا طارق ؟؟؟ انا فى انتظار مرفقك . فبرنامج اخونا طارق به اكثر من ٦٠٥ سجل وضعفهم اسماء انا ساعمل على مرفق اخونا طارق وانت ايضا اخى محمد عصام اعمل على مرفقك ليتماشى مع مرفق اخونا طارق ددعنانتبار ى فى فعل الخير مبدئيا انا ساعدل الوحدة النمطية الخاصة بى وسابحث لاخونا طارق عن قاموس اكثر شمولية ان شاء الله

مرحبا هذا مثال يقوم قبل الغلق بنسخ b2:b11 الى d1 مثال.rar

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

مشكور أستاذنا الغالي رمهان الكود شغال 100 % للأسف أستاذنا الكريم يوسف أحمد الكود لم يشتغل بعد التعديل أصبح Criteria = "[Machine]='" & [cboMachine] & "'" _ & "And [LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _ & " And [Opérateur] = " & [cboOpérateur] في السطر الثاني تم إضافة & وإشارة التنصيص أصبحت قبل And في السطر الثالث تم إضافة & وإشارة التنصيص قبل And وتم حذف إشارة التنصيص في آخر السطر وهو الآن شغال 100 % بارك الله فيكما ورزقكما من فضله ورفع قدركما في الدارين

استاذ ابو خليل نورت الموضوع وكل عام و انت بخير تشفير بيانات الجداول تعتبر طريقة قوية لكن لها ايضا مساوئها التشفير يتم عند اغلاق النموذج و فك التشفير يتم عند فتحه وبعد فترة من استخدام البرنامج و كثرة البيانات في قاعدة البيانات سيصبح هناك ثقل في البرنامج ناهيك عن اهم مشكلة ممكن ان تصادفك وهي انعكاس البيانات ( الحالة العكسية للتشفير حيث يتم تشفير البيانات عن تحميل النموذج و فك تشفيرها عند اغلاقه ) هذه الحالة ستصادفك اذا حدث تعليق في اكسس و اضطررت الى انهائه من ادارة المهام او الانقطاع المفاجئ للتيار الكهربائي حيث ستتفاجئ انك عندما تشغل البرنامج سترى البيانات مشفرة !!!! ملاحظة اخيرة بسيطة المرفق الذي ارسلته MDE

بعد اذن الاستاذ يوسف جرب Criteria = "[Machine]='" & [cboMachine] & "' And [LaDate]=#" & Format(txtDate, "mm/dd/yyyy") & "# And [Opérateur] =" & [cboOpérateur] بالتوفيق

اخي الاستاذ ايمن في قراءة الكتب يتم وضع علامة عند السطر او الصفحة المراد الرجوع لها وهي قريبة لحد ما الى عمل ال bookmark فكاني اقول ضع الموشر بسجلات النموذج كما هو المؤشر لدى سجلات recodsetclone فانت تبحث وتذهب قدما ورجوعا في سجلات ا recordsetclone وعندما تستقر عند سجل معين تريد ان النموذج يظهر هذا السجل فتشير له بخاصية ال bookmark للنموذج ولابد ان تكون القيمة مناسبة فحتما سنسند قيمة ال bookmark ل recordsetclone لخاصية ال bookmark للنموذج وهنا سيظهر السجل الحالي في ال recordsetclone وهنا اوضح شي ما : كائن recodsetclone للنموذج ما هو الا كائن من نوع recordset وجميع خصائص وطرق كائن ال recordset يمكن تطبيق مع recodsetclone اتمنى ان الشرح مفهوم تحياتي

فعلا حل ولا اروع للمصطفى شكرا جزيلا لك

السلام عليكم اهلا بك بيننا اخي وكل عام وانت بخير 1- يجب عليك كما قلت اضافة حقل جديد تخزن فيه مسار الصورة وليكون اسمه img 2- في النموذج اضف عنصر التحكم "صورة" لعرض الصورة بداخله كما هو موضح في الصورة 3-بعد اضافة العناصر الى النموذج من خاصية مصدر عنصر التحكم للصورة اكتب اسم الحقل الجديد على هذا الشكل = كما في الصورة 4- اضف زر جديد لاضافة الصورة وضع الكود التالي في حدث عند النقر On Error Resume Next Kill img Me.img = "" Dim FDialog As Office.FileDialog Dim varfile As Variant Set FDialog = Application.FileDialog(msoFileDialogFilePicker) FDialog.AllowMultiSelect = False FDialog.Title = " من فضلك حدد مكان الصورة " FDialog.ButtonName = "موافق" FDialog.Filters.Clear FDialog.Filters.add " صـــور مــن نـــوع JPG ", "*.JPG" If FDialog.show = True Then For Each varfile In FDialog.SelectedItems Dim newfile, copymydb newfile = Me.Application.CurrentProject.Path & "\photo\" & Me.code & "-" & Me.namee & ".jpg" FileCopy varfile, newfile Me.img = newfile Next End If لاحظ انه في سطر تحديد المسار الجديد للحفظ انه يجب ان يكون هناك مجلد جديد اسمه photo موجود جانب البرنامج مباشرة سيتم تخزين الصورة بداخله باسم جديد ايضا يأخذ الاسم الجديد من مربعي نص منالنموذج هم code - namee وفي النهاية لا تنسى اضافة المرجع التالي لقاعدة البيانات بأن تضع اشارة صح عليه طبعا اذا كان الاوفيس عندك 2013 سيكون الرقم 15 اما اذا كان 2010 فسيكون الرقم 13 يعني لا تهتم الى الرقم كثيرا فقط اضف هذا المرجع

الاستاذ محمد معروف وجودها في 2003 ولكن في 2016 لا اعلم ؟ حبذا ذكر تجربتك او رابط للمعلومة مشكورا والحقيقة المواضيع مكررة ولا اعلم لماذا لا نبحث اولا ؟ وللاسف انه الاجابات احيانا تاتي من مشرفين وبل من اعضاء الفريق الاداري وهنا تتكرر المواضيع بل قد يكون الجديد ركيكا مقارنة بالمشاركات القديمة ومن خبراء ! كما انه حبذا ان يكون عنوان الموضوع يدل على المحتوى والمناقشات ! فعنوان الموضوع حذف القاعدة عند تاريخ معين والمحتوى اصبح يناقش الحماية بالفلاش وهنا روابط لموضوع الحماية امل الاستفادة منها https://www.officena.net/ib/topic/62024-ممكن-طريقة-تمنع-نقل-البرنامج-من-فلاش-ميموري-لاخر-الا-بموافقتي/ https://www.officena.net/ib/topic/41572-تطبيق-الحماية-بأسلوب-الدنكل-الا-شوي/ https://www.officena.net/ib/topic/67834-هدية-إحمل-برامجك-داخل-قاعدة-بياناتك/ https://www.officena.net/ib/topic/68490-كيف-أجعل-البرنامج-لا-يعمل-إلا-على-فلاش-ميموري/?page=1 https://www.officena.net/ib/topic/41572-تطبيق-الحماية-بأسلوب-الدنكل-الا-شوي/?page=2 http://arabteam2000-forum.com/index.php?/topic/229696-حماية-اكسس-بالفلاشة/&page=1 http://arabteam2000-forum.com/index.php?/topic/56706-حماية-قاعدة-البيانات-برقم-الهارد-دسك/&page=1 بالتوفيق

السلام عليكم اخواني الكرام بالنسبة لي لا اوافق على فكرة تخزين رقم الفلاشة في جدول ثم تقوم باقي الاجهزة بالتأكد من خلاله فهذا يعني اذا قام احدهم بسرقة هذه النسخة مع قاعدتها سيفتح البرنامج بشكل كامل عنده بدون الفلاشة واصحبت الفلاشة لا معنى لوجودها ابدا برأيي اخي محمد ايمن عندما تقوم بشكبة علاقات جيدة وبترميز جيد للبيانات فلن يستطيع احد استفادة من المعلومات ولو حصل عليها اما بشان ادارة المستخدمين والاوذونات للاسف ليست موجودة في 2007 - 2010 - 2013 هنا عندي رأي بسيط لو سمحت لي اخي محمد سلامة وهو لو كان العميل هو صاحب الفكرة وطلب منك تصميم البرنامج له فأنت هنا ليس لك سوى اجرة العمل الذي قمت به ويجب عليك تسليمه البرنامج كاملا مفتوح المصدر أما اذا رفض العميل استلامه مفتوح المصدر (وقد حدثت معي كثيرا) يمكنك بيعه النسخة مغلقة بسعر اقل ولك برنامجك كاملا

السلام عليكم الاستاذ سليم حاصبيا عمل اكثر من رائع فانتم عندكم الحلول حتما باذن الله وانا في الحقيقة احتاج لهذه الاضافة لان عندي برامج كثيرة تعاني من كثر المعادلات لذا ساستخدمها لبرامجي الخاصة جزاكم الله خيرا . وفقكم الله هناك ملاحظة صغيرة حول الكود المرفق الاخير بالنسبة لشرط التصفية المدى المذكور بالكود Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False بينما الموجود بالملف بهذا الشكل لذا ارجو لمن يستخدم الكود على الملف الاصل في اول مشاركة ينتبه لذلك ويغير الى Sheets("بيانات التلميذ").Range("l4:l5"), Unique:=False تحياتي وفائق احترامي

اخي مصطفى ليس من الضرورب القيام بذلك يدوياً بل من خلال الكود نفسه باضافة هذه السطور الى الكود(بين علامات اليساوي) Sub FilterData() ' تعطيل الحساب الالي واهتزاز الشاشة '======================================================== With Application .ScreenUpdating = False .Calculation = xlCalculationManual .EnableEvents = False End With '======================================================== If ActiveSheet.AutoFilterMode = True Then ActiveSheet.ShowAllData Sheets("بيانات التلميذ").Range("a10:r300").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Sheets("بيانات التلميذ").Range("l3:l4"), Unique:=False Range("a10").Select ' تشغيل الحساب الالي واهتزاز الشاشة '======================================================== With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .EnableEvents = True End With '======================================================== End Sub

تم التعديل مرة اخرى تنسيق شرطي salim2.rar

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

الكود الفلترة يجعل الاكسل ثقيل في العمل كما انه يظهر صف وعندما تريد الانتقال الى صف اخر لا يعمل

ملاحظة هل تعلم اخي الكريم ان اي شخص لديه خبرة بسيطة في الاكسس يستطيع الدخول الى الجداول و التعديل عليها كما يحلو له !!!!! لحماية الجداول استخدم ( ادارة المستخدمين و الاذونات ) طبعا هذه الميزة متوفرة في اصدارات 2003 و 2016 في اصدارات 2010 و 2013 لا اعلم ان كانت موجودة لاني لم استخدمها اما في 2007 فهي غير موجودة

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

تفضل اخي الكريم 1.rar

برنامج سيارات الحملة 2016.rar

طيب شوف المشاركة دى يا افندم فيها طلبك "قاعدة بيانات جاهزة باسماء مترجمة مسبقا" وفيها فكرة بدائية لما قصدته ولكن على اد تفكيرى المحدود و انت عارف انا لسه باتعلم منكم

السلام عليكم استاذ سليم كل عام وحضرتك بخير

من فضلك يا استاذ كلمة المرور للدخول الى محرر الاكواد

برنامج قوائم الفصول للاستاذ الفاضل / محمدى عبد السميع برنامج قوائم الفصول.rar

يجب ان تكون محتويات العامود C في الورقة All ارقاماً وليست نصوصاً (هل 005 هي رقم او نص برأيك) للتحويل الى ارقام انسخ العامود C الى اي مكان (فليكن صفحة جديدة مثلاُ) و اضرب كل محتوباته ب 1 ثم انسخ النتيجة و راجعها الى العامود C Paste Value او يمكنك استعمال هذا الماكرو (قم بتنفيذه بعد ان تحدد كل محتويات العمود C) Sub test_to_val() For Each cel In Selection If cel.Value <> "" Then On Error Resume Next cel.Value = cel.Value * 1 If Err.Number <> 0 Then cel.Value = Application.WorksheetFunction.Trim(Replace(cel.Text, Chr(160), Chr(32))) cel.Value = Application.WorksheetFunction.Clean(Replace(cel.Text, Chr(127), Chr(7))) End If End If Next End Sub انا قمت بتحويل بعضهاالى ارقام وهي التي تعطي النتائج التي تراها

أخى الفاضل الأستاذ / محمد أبو عبد الله السلام عليكم ورحمة الله وبركاته أعجبنى كثيرًا الحل الذى قدمه المبدع دائما الأستاذ الفاضل / ياسر خليل أبو البراء ـ لكيفية عمل قوائم الفصول باستخدام الأكواد وقد قمت بتجربة هذا العمل ولكن باستخدام المعادلات ونجحت التجربة لذا أحببت ان تشاركونى هذه النتيجة وأرجو منكم التقييم وهذا مرفق لكيفية عمل قوائم الفصول باستخدام المعادلات قوائم الفصول باستخدام المعادلاات ـ محمد الدسوقى.rar

مر حبا جرب الكود التالي Sub iCopy() Dim sh As Worksheet, wr As Worksheet, j As Double, R As Double, Ary() Set sh = Sheets("ورقة1"): Set wr = Sheets("ورقة2") If wr.Range("a" & Rows.Count).End(xlUp).Row > 1 Then _ wr.Range("A2:E" & wr.Range("a" & Rows.Count).End(xlUp).Row) = "" With sh LsRow = .Range("a" & Rows.Count).End(xlUp).Row For j = 3 To LsRow If WorksheetFunction.CountIf(.Range("a3:a" & j), .Range("a" & j)) = 1 Then R = R + 1 ReDim Preserve Ary(1 To 5, 1 To R) Ary(1, R) = .Cells(j, 1): Ary(2, R) = .Cells(j, 2): Ary(3, R) = .Cells(j, 4) Ary(4, R) = WorksheetFunction.SumIf(.Range("a3:a" & LsRow), Ary(1, R), .Range("E3:E" & LsRow)) Ary(5, R) = Ary(3, R) * Ary(4, R) End If Next If R Then wr.Range("A2").Resize(R, 5).Value = WorksheetFunction.Transpose(Ary) End With wr.Select End Sub المرفق bb33.rar

لم افهم المطلوب بالضبط هل تقصد أن كود المحافظة متغير عشوائى مثلا الا ان ارقام الممتحنين رقم مسلسل يضاف الى يمين رقم المحافظة هكذا مثلا 1010001 1010002 والمحافظة الثانية 5390001 5390002 وهكذا ... ام ماذا

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

إخواني الكرام إليكم الملف يعمل على النسختين 32 بت و 64 بت أرجو أن تستفيدوا منه .. تقبلوا وافر تقدير واحترامي Codes Library v1.9.7.rar

السلام عليكم كل عام وانتم بخير استكمالا للموضوع الذى بدأه الاستاذ المبدع ياسر خليل فقد قمت ببرمجة نسخة مستقلة من مكتبة الاكواد (ملف تنفيذى لا يحتاج الاكسل) ومزودة بامكانيات اكبر للبحث والتصنيف بواسطة المجموعة او جزء من العنوان او الكود ... وكذلك يقوم بفتح ملفات الأمثلة المرفقة بواسطة زر يتم تفعيله اذا كان هناك ملف مرفق وكنت اتمنى ان استكمل الامثلة والاكواد لكن الوقت لم يسعفنى..... ارجو تجربته واخبارى عن اى اخطاء برمجية وسوف احاول استكمال الامثلة واضافة اكود جديدة ونشرها بعد التعديل رابط التحميل: http://www.bscenter.co/downloads/vbaforexcelcodes.rar

للاسف كلمة السر ( ابو اليسر ) خطأ من فضلك استاذ يسرى ابراهيم ما هى كلمة السر الصحيحة وإلا ما الهدف من نزول البرنامج وعدم الاستفاده منه جزاكم الله خيرا

الله يوفق الجميع وآسف على التأخر في الرد اطلع على هذا المثال : SerByDMY.rar والفكرة هي : 1- تم استحداث 3 مربعات نص باسم (اليوم : D والشهر : M والسنة : Y ) على التوالي . 2- استحداث مربع النص واسمه SerDMY مع اخفاؤه ( أو اظهاره إن اردت) . 3- وضع الكود التالي في حدث عند الخروج لمربع النص Y : كود Private Sub Y_Exit(Cancel As Integer) SerDMY.Value = Format(D.Value & "/" & M.Value & "/" & Y.Value) End Sub الهدف من هذا الكود هو اجابة على تساؤلك ، إذ أنه يقوم بضم قيم مربعات النص الثلاثة ( D و M و Y ) لتكون قيمة لمربع النص الرابع SerDMY وبذلك عند تشغيل الاستعلام فإنه يأخذ قيمة مربع النص SerDMY وبالتالي عمل حصر للتاريخ . وهذه من الحيل والالتفاف على البرنامج لإيجاد الحلول . والله أعلى وأعلم .

السلام عليكم ورحمة الله وعذراُ أخواني على التأخير يمكنكم البحث خلال فترة معينه سواء كانت حقل رقمي أو تاريخ بالطريقة التالية : 1- أضف الى الجدول tblinfo حقل تاريخ . 2- أنشئ استعلام يستند لهذا الجدول بإسم QSerFromTo على أن يتضمن حقل التاريخ . 3-انشئ نموذج بإسم SerFT . 4 ضع مربعي نص بإسم SerFrom و SerTo داخل النموذج . 6 ضع زر أمر تشغيل الاستعلام QSerFromTo (بإستخدام المعالج) . 7 ضع السطر التالي في الاستعلام وتحديدا في معيار التاريخ (مثلا) : كود Between [forms]![SerFT]![SerFrom] And [forms]![SerFT]![SerTo] المثال أدناه يوضع طريقة عمل الخطوات أعلاه : SerBetween2Date.rar وبالتوفيق

ولك بالمثل أخي الكريم وهدية لك هذا المثال تطبيقاً للشرح أعلاه SerIn3Way.rar