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

السلام عليكم 🙂 في زمن Dos والوندوز قبل 95 ، جميع البرامج كانت ملتزمة بأن طول اسم البرنامج/الملف لا يتجاوز 8 احرف ، وصيغة البرنامج/الملف هي 3 احرف ، لذا فهي معروفة 8.3 او الاسم القصير Short FileName 🙂 في هذه الايام ، 99% من البرامج تتعامل مع Unicode (الحروف الغير انجليزية) ، ولكن لا تزال هناك بعض البرامج اللي لا تتعامل مع Unicode ، مما يجعلنا لا نستطيع استعمالها اذا كان اسم الملف او المجلد مكتوب باللغة العربية ، هذا المرفق مثال على ذلك !! حتى نستطيع التعامل مع مسميات الملفات و المجلدات باللغة العربية ، مع البرامج التي لا تدعم اللغة العربية ، يمكننا ان نغيّر صيغة الملف/المسار الى صيغة 8.3 بإستعمال هذه الدالة ، وسيعمل البرنامج : Function get8_3FullFileName(F_or_F As Integer, ByVal sFullFileName As String) As String ' ' Convert the normal path to the old DOS 8.3 path ' this solves the problem of spaces in the path ' and reading Unicode names ' ' F_or_F : File or Folder ' 1= File ' 2= Folder ' Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") If F_or_F = 1 Then get8_3FullFileName = FSO.GetFile(sFullFileName).ShortPath Else get8_3FullFileName = FSO.GetFolder(sFullFileName).ShortPath End If Debug.Print "Original File Path: " & sFullFileName Debug.Print "8.3 File Path: " & get8_3FullFileName End Function . نناديها بإرسال المسار اليها ، هكذا : a_FILE = get8_3FullFileName(1, "D:\1Jaffer_Work\1Officena.net\Combine_PDF_Files_2\ملف1" & "\" & "a.pdf") او a_FILE = get8_3FullFileName(1, Application.CurrentProject.Path & "\" & "ملف1" & "\" & "a.pdf") النتيجة D:\1JAFFE~1\1OFFIC~1.NET\COMBIN~1\10DFB~1\a.pdf او اصل المسار D:\1Jaffer_Work\Samples\sound files\sound files\عمل رائع.WAV والنتيجة D:\1JAFFE~1\Samples\SOUNDF~1\SOUNDF~1\FE9C~1.WAV . جعفر

هذه مجموعة منها ..... تفضل >>>>>>>>>>>>>>>>>>>>>>>>>>

السلام عليكم تم التعديل حسب ما تصبو إليه... aa3.rar

تفضل أخي ووافني بالرد OverTime-1.rar

وهذا كود لإنهاء مهمة أكسس، من جلبي وتصرفي: Sub Kill_msAccess() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc 'Rename MSACCESS.EXE in the line below with the process that you need to Terminate. 'NOTE: It is 'case sensitive If oProc.Name = "MSACCESS.EXE" Then MsgBox "KILL" 'used to display a message for testing pur oProc.Terminate 'kill exe End If Next End Sub

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

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

اخي اسف ليس لدي الوقت لشرح المعادلة يمكنك البحث في الانترنيت فهو متوفر في عدة اماكن بالصوت والصورة تفضل اخي تم اعادة تعديل الملف وتنسيقه مع تعديل بسيط داخل هدا الجزء من الكود لديك فهو يقوم بافراغ الخلابا الموجود بها المعادلات . Sheets("Input").Range("A6:A36,D6:F36,O6:S36,AA6:AE36").Select Selection.ClearContents وهدا مثال لتجربة العمل على الملف https://streamable.com/xnrgeb بالتوفيق............ Payroll123-3-2020 - Copy(4).xlsm

تفضل الرصيد السابق صح.rar

مشاركة مع اخي واستاذي كنوري ممكن استخدام دالة dsum مره واحد حيث انها تقبل اجراء عمليات حسابيه اثناء تنفيذها وبالتالي بدلا من كتابتها ⬇️ كما اشار استاذنا الفاضل DSum("[daen]";"tb_movements";"[id_id]<=" & [id_id])-DSum("[maden]";"tb_movements";"[id_id]<=" & [id_id]) ممكن ان تكتب هكذا ⬇️ لكون حقلي المدين والدائن في نفس الجدول وايضا ممكن اضافة شرط العميل DSum("[daen]-[maden]";"tb_movements";"[id_id]<=" & [id_id] & " and [vendor_id]='" & [vendor_id] & "'") وايضا ممكن عدم استخدام الدالة dsum وعمل المطلوب باستخدام استعلام فرعي ⬇️ في هذه الطريقة عملنا اسم مستعار للجدول (select(sum([daen])-sum([maden])) from [tb_movements] where [id_id]<= k.id_id and [vendor_id] =k.vendor_id) من تجربتي جميعها تعطي نتيجة صحيحة وفقا للصورة المرفقة الحقل dd طريقة استاذنا كنوري باستخدام الدالة مرتين الحقل bb باستخدام استعلام فرعي الحقل aa باستخدام الدالة مرة واحدة في جميع الاحوال لا اعلم اي الطرق افضل لكوني افضل ان يكون الرصيد التراكمي في التقرير والله اعلم تحياتي

بالنسبة للتسلسل نحتاج رقم وليس نص جرب الان واخبرنا ...................... الموردين4 (1).accdb

جزاكم الله خيرا وبارك الله فى عمركم

ما اعطيتني رقم الباسوورد مال الجماعة مالك علشان أشبك معاك على طول 😁 جالس أطور مشروع تحديث ال FE التلقائي ونجحت العملية ولله الحمد .. بحاول أنزله قريبا إن شاء الله .. 😊

في المرة القادمة ، بخلي البخور شغال على طول ، علشان يصير تراود افكار بيننا (طبعا انت عرفت المقصود 😅) عندك خبر ان الكثير من برامج الوندوز لاتزال تعمل بأوامر DOS ، والكثير من البرامج ، لهذا السبب ، لما ابحث عن برنامج خارجي علشان يعمل لي شيء مكمل للاكسس ، ابحث عن البرنامج اللي يمكن التحكم به عن طريق اوامر DOS ، مثل https://www.irfanview.net/ 🙂 جعفر

لم ابحث في الخطوط ، يمكن ان نجد خطا مشابها ولكن لدي مثال لرسم هذه الكلمات بالكود في التقرير للاستاذ منصر الآنسي تفضل اذا كانت تفي بالغرض التقارير الآنسي2.mdb

تقصد بهذه الصورة .....

السلام عليكم تم التوصل الى الكود باقتباس من احد اعمال العلامة خبور تم رفع الشيت بالكود للاستفادة وشكرا لكم Private Sub CommandButton1_Click() ' أمر ترحيل بيانات Dim LR As Long Dim Adr As String Dim r As Integer, c As Integer ''''''''''''''''''''''''''''''' With Sh1 LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 End With '''''''''' For r = 1 To 10 Adr = Cells(r, 1).Address(0, 0) For c = 1 To 5 Adr = Cells(r, c).Address(0, 0) Sh1.Range("A" & LR).Cells(r, c).Value = Me.Controls(Adr).Value Next Next '''''' End Sub Book101Add.xlsm

السلام عليكم 🙂 في المشاركة الاولى ، تم اضافة خاصية القراءة من مسار المسميات باللغة العربية ، بتحويل الاسم/المسار الى صيغة 8.3 🙂 جعفر

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

لا تنسى علم على أفضل اجابة وشكرا

العفو أخي حمدي .. تحياتي لك 🙂🌹

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

لله وإنّا إليه راجعون اللهم أغفر له وارحمه واسكنه فسيح جناتك اللهم ادخله الفردوس الأعلى من الجنة إختر كأفضل إجابة

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

حياك الله اخي الحبيب @ابوبسمله جزاك الله خيرا

بعد مراجعة الكود وجدت أن rs.MoveNext متكررة مرتين .. أحذف الأولى حسب الصورة التالية :

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

@ابو جودي انا لله وانا اليه راجعون ، الله يغفرله ويرحمه ويسكنه فسيح جناته ويلهمكم الصبر والسلوان وعظم الله أجركم.

"يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي " الاح العزيز المهندس / ابا جودى نقول لك مثل ما قال رسول الله صل الله عليه وسلم: لله ما أَخذ، وله ما أعْطى، وكل شيءٍ عندَه بِأجلٍ مسَمى، فَلتصبِر وَلتَحْتسِب، وندعو الله لميتكم بالرحمة الواسعة والمغفرة الشاملة وأن يلهمكم الصبر ويجبر قلوبكم، أحسن الله عزاءك. إنّا لله وإنّا إليه راجعون.

اللهم أبدله دارا خيرا من داره و أهلا خيرا من أهله و أدخله الجنة و أعذه من عذاب القبر ومن عذاب النار”. “اللهم ارحمه فوق الأرض و تحت الأرض و يوم العرض عليك اللهم قهِ عذاب يوم تبعث عبادك”. “اللهم أنزل نوراً من نورك عليه”. “اللهم نور له قبره و آنس وحشته ووسع مدخله اللهم اغفر له وارحمه، وارفع درجته، وأعظم أجره، وأتمم نوره، وأفسح له في قبره، وألحقه بنبيه” . ” اللهم أنت ربنا وربه، خلقته ورزقته، أحييته وكفيته، فاغفر لنا وله..آمين .. آمين.. آمين عظم الله اجرك استاذنا ابو جودي ... وغفر الله لموتانا وموتاكم وألهمكم الصبر والسلوان انا لله وإنا اليه راجعون

إنَّا للهِ وإنَّا إليه راجعونَ غفر الله له واسكنه فسيح جنات اللهم امين

غفر الله له واسكنه فسيح جناته ويلهم أهله وذويه الصبر والسلوان

(إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ لا حول ولا قوة الا بالله العلي العظيم،،، لله ما أخذ وله ما أعطى وكل شيء عنده بأجل مسمى نسأل الله له الرحمة والمغفرة والثبات عند الحساب،، 🤲 عظم الله اجركم أخي العزيز أبا جودي

"يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي " ببالغ الحزن والأسى تلقينا نبأ وفاة والد الاستاذ ابو جودي نتقدم بأحر التعازي إلى أُسرة الفقيد جميعا ونخص بالذكر ابو جودي وجميع اخوانه ومحبيه ونسأل الله ان يؤجرهم في هذا المصاب الجلل، والى كل مألوم ومفارق داعين الله أن يتغمّده بواسع رحمته وأن يسكنه الفرادوس الاعلى من جناته وأن يرزق أهله وذويه جميل الصبر والسلوان وأن يحفظ الاسلام والمسلمين من كل مكروه. ويتغمد موتانا وجميع موتى المسلمين برحمته وان يرحمنى ربنا اذا سرنا الى ماساروا اليه اللهم بقوة تدبيرك، وعظيم عفوك ، وفيض كرمك ، توفى عبدك في أيام لها فضل عندك ولا نعلم مما تخفيه المقادير، وألطف به ياعزيز ياقدير اللهم لا يظلم وأنت حسيبه وحبيبه ولا يصيبنا مكروه بعده اللهم ان أهله صبروا وحتسبوا يعلموا ان عيده عندك وفرحته بلقياك وأنت ربنا وربهم ، اللهم بدونك لاحول ولا قوة لنا، اللهم اسكنه جنة الفردوس لاعلى واشفي جميع مرضانا ومرضى المسلمون، وأرحم موتانا جميعا وموتى المسلمين. ياارحم الراحمين .. و "إنا لله و إنا إليه راجعون

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

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

(إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ لا حول ولا قوة الا بالله العلي العظيم،،، لله ما أخذ وله ما أعطى وكل شيء عنده بأجل مسمى نسأل الله له الرحمة والمغفرة والثبات عند الحساب. عظم الله اجركم أستاذي العزيز أبا جودي

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

انا لله وانا اليه راجعون اللَّهمَّ اغفرْ لَهُ وارحمهُ ، وعافِهِ واعفُ عنهُ ، وأكْرِم نُزَلَهُ ، ووسِّع مُدَخلَهُ ، واغسلْهُ بالماءِ والثَّلجِ والبَردِ ، ونقِّهِ منَ الخطايا كما نقَّيتَ الثَّوبَ الأبيضَ منَ الدَّنسِ ، وأبدِلهُ دارًا خَيرًا مِن دارِهِ ، وأهلًا خَيرًا مِن أهلِهِ ، وزَوجًا خَيرًا مِن زَوجِهِ ، وأدخِلهُ الجنَّةَ ونجِّهِ منَ النَّارِ وأَعِذْهُ مِن عذابِ القبرِ

عظم الله أجوركم وأحسن عزاكم، ورحم متوفاكم.

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

لله ما أعطى ولله ما أخذ إنا لله وإنا إليه راجعون عظم الله اجركم ورحم الله ميتكم والهمكم وذويكم الصبر والسلوان

اخوي ابو جودي احسن الله عزاكم ولا اراكم الله مكروها فيمن تحبون ، إنا لله وإنا اليه راجعون خرج من هم الدنيا وغمها الى رب غفور رحيم فهنيئأ له ، هم السابقون ونحن اللاحقون ونسأل الله حسن الخاتمه

الاستاذ @ابو جودي (إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ

(إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ

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

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

لا حول ولا قوة الا بالله الله يرحمه ويغفر له ويسكنه فسيح جناته ويلهم اهله وذويه الصبر والسلون ان لله وان اليه راجعون

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

معايير التقرير (التاريخ) ...... report parameters غالبا ما نستخدم حصر نتائج التقرير بين تاريخين ، تاريخ بداية و تاريخ نهاية ، وكل له فيها طريقة ، اريد انشاء نموذج لتمرير التواريخ للتقرير ، التقارير عندي يومية واسبوعية وشهرية وسنوية (لنفس التقرير) ، اريد طريقة بحيث لا اضطر لكتابة التواريخ وإحتساب الفترات ، أو استخدام التقويم ؟!! بسيطة ... ننشيئ النموذج بمربعي نص الاول txtdatefrom لتاريخ البداية ، والثاني txtDateTo لتاريخ النهاية ، ثم ننشيئ أربعة أزرار أمر : الاول لضبط نطاق التاريخ للتقرير اليومي ، ونسميه cmdtoday ، ونضع خلفه الكود Private Sub cmdtoday_Click() Me!txtdatefrom = Date Me!txtDateTo = Date End Sub الثاني لضبط نطاق التاريخ الاسبوعي ، ونسميه cmdweek ، ونضع خلفه الكود Private Sub cmdweek_Click() Dim today today = Weekday(Date) Me!txtdatefrom = DateAdd("d", (today * -1) + 2, Date) Me!txtDateTo = DateAdd("d", 6 - today, Date) End Sub الثالث لضبط نطاق التاريخ الشهري ، ونسميه cmdmonth ، ونضع خلفه الكود Private Sub cmdmonth_Click() Me!txtdatefrom = CDate("01/" & Month(Date) & "/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtdatefrom)) End Sub والرابع لضبط نطاق التاريخ السنوي ، ونسميه cmdyear ، ونضع خلفه الكود Private Sub cmdyear_Click() Me!txtdatefrom = CDate("01/01/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("yyyy", 1, Me!txtdatefrom)) End Sub وأخيرا ننشيئ زر أمر للتأكد من ادخال البيانات الى الحقلين المعنيين ، ثم للطباعة أو الغاء الامر ، ونسميه cmdReport ، ونضع خلفه الكود Private Sub cmdReport_Click() On Error GoTo Err_cmdReport_Click Dim stDocName As String stDocName = "rptDateParameterReport" If Len(Me.txtdatefrom & vbNullString) = 0 Or Len(Me.txtDateTo & vbNullString) = 0 Then MsgBox "Please ensure that a report date range is entered into the form", _ vbInformation, "Required Data..." Exit Sub Else DoCmd.OpenReport stDocName, acPreview End If Exit_cmdReport_Click: Exit Sub Err_cmdReport_Click: MsgBox Err.Description Resume Exit_cmdReport_Click End Sub وكفى ... وصحتين وعافية ... جرب ..........