jjafferr

وعليكم السلام أختي اذا كتبتي تاريخ كمعيار لحقل ، فالبيانات ستكون لذلك التاريخ فقط ، بينما اللي فهمته من شرحك ، ان عندك مجموعة تواريخ (لبدء العطب) ، ومجموعة تواريخ اخرى (لإنتهاء العطب) ، فاللي لازم تعمليه هو: لمعيار تاريخ بدء العطب ، استخدمي >= التاريخ (يعني اكبر من او يساوي التاريخ) لمعيار تاريخ إنتهاء العطب ، استخدمي <= التاريخ (يعني اصغر من او يساوي التاريخ) وبهذه الطريقة تكوني حاصرتي جميع التواريخ الاخرى او تستخدمين اقل تاريخ واكبر تاريخ لمعيار تاريخ بدء العطب ، استخدمي Between Date1 And Date2 وتستخدمين اقل تاريخ واكبر تاريخ لمعيار تاريخ إنتهاء العطب ، بنفس الطريقة جعفر

اذا في شئ خاص ، تفضل اخي اكتب لي على الخاص جعفر

واذا تاريخ المباشرة 2 / 1 ؟ فهل يستحق راتب شهر يناير؟

وعليكم السلام الجواب لا ، ولكن: موقع Lebans.com وهو من افضل مواقع الاكسس القديمة ، وفيها الدُر النفيس الرابط هذا فيه غايتك: http://www.lebans.com/listboxenhanced.htm واما اذا في شدّة وما يهمك تشتري ، فاليك هذا الرابط: http://www.dbi-tech.com/ComponentPage_ctList.aspx جعفر

وعليكم السلام أختي انا انزلت البرنامج ، وكل شئ شغال تمام ، وبدون رسائل وعلشان ترفقين اي مرفق للمنتدى ، فيجب ان يكون مضغوط بـ zip او rar جعفر

وعليكم السلام الظاهر ان مشكلتنا هي في كيفية حساب الشهر انا اجعل البرنامج يحسب الشهر ، مثلا: تاريخ العقد: 1-1-2016 نهاية الشهر الماضي: 31-1-2016 عدد الاشهر = 0 فرجاء تخبرني عن الطريقة التي تريد الحساب على اساسها جعفر

وهذه النسخة لعمل المتوسط تلقائيا على جميع الاختيارات اختار كم مرة تريد التجربة ، انا اخترت 10 مرات . وهذا الكود الذي يقوم بالعمل: Function Open_Query_Timing(Q, F) Me(F).BackColor = RGB(225, 225, 0) 'yellow DoEvents t = Timer DoCmd.OpenQuery Q Me(F) = (Nz(Me(F), 0) + Format(Timer - t, "0.000000")) / 2 DoCmd.Close acQuery, Q, acSaveNo Me(F).BackColor = RGB(255, 255, 255) 'white End Function Private Sub cmd_Get_Average_Click() For i = 1 To Me.How_Many_Times Me.Counter = i RowID = 0 RowVal = 0 Call Open_Query_Timing("Query1", "q1") Call Open_Query_Timing("Query2", "q2") Call Open_Query_Timing("Query3", "q3") Call Open_Query_Timing("Query4", "q4") Call Open_Query_Timing("Query6", "q6") Call Open_Query_Timing("Query7", "q7") Next i End Sub جعفر 256.2.Database3.accdb.zip

لابد من ارى الكود لكل زر ، ومن ثم نرى طريقة العمل . جرب هذا المرفق ، وانقر على الزر 1 اكثر من مرة ، بس على كيفك طبعا فيه كود Function Control_Name_F(F) MsgBox "The information you sent is: " & F End Function Function Control_Name() Dim frm As Access.Form Dim ctl As Access.Control Set frm = Forms(frm_Test) Set ctl = Screen.ActiveControl If ctl.Name = "Command1" Then If frm.Controls(ctl.Name).ForeColor = RGB(255, 0, 0) Then frm.Controls(ctl.Name).ForeColor = RGB(0, 0, 0) Else frm.Controls(ctl.Name).ForeColor = RGB(255, 0, 0) End If ElseIf ctl.Name = "Command2" Then MsgBox "Field Name is: " & ctl.Name End If End Function جعفر 260.Function_Code.mdb.zip

وعليكم السلام أبو وليد هو دائما في طريقة احدها: http://www.officena.net/ib/topic/67004-تسريع-عملية-البحث-في-access/?do=findComment&comment=435657 ولكن ، لكل برنامج تفاصيله ، فقد يكون تغيير بسيط في استعلام ، يغير سرعة الاستعلام الآخر الذي يعتمد عليه جعفر

إضافة بعض المعلومات الى المشاركة الاصلية اعلاه: http://www.officena.net/ib/topic/67004-تسريع-عملية-البحث-في-access/?do=findComment&comment=435657 جعفر

السلام عليكم هذا السؤال شيّق ويستاهل الواحد ينظر فيه ولكننا بحاجة الى معلومات وافيه ، وبالتفصيل عن المطلوب جعفر

وعليكم السلام نستطيع ان نغير في البرمجة ويكون إما: 1. ان تختار مجلد ، بحيث البرنامج يقرأ كل الملفات اللي فيه ، وبعدما يقرأ الملف ، يا يحذفه ، او ينقله الى مجلد الملفات المقروءه ، 2. او بدل ان تختار اسم ملف واجد فقط ، نغير طريقة الاختيار ، بحيث تختار أكثر من ملف الطريقة الاولى اسهل وارتب جعفر

حياك الله

الحقل Classes حقل به نص مثل M ، فكيف تريده التعرف على رقم؟ جعفر

السلام عليكم بسبب استخدامنا لوحدات نمطية ، ودالة DFirst ، فهذه تأخذ مجهود من البرنامج ، فعليه ، يتأخر عمل الاستعلام!! انا هنا وضعت جميع المشاركات في برنامج واحد ، وجعلت في الجدول 129,600 سجل ، لنعرف الفرق في السرعة بين المشاركات: . وأحد النتائج: . جرب وشوف الوقت بجزء من الثانية (نعم اجزاء الثانية تعتبر تأخير بالنسبة لي ) مع ملاحظة انك لن تحصل على نفس الوقت للإستعلام ، وذلك يعتمد على مدى انشغال الكمبيوتر بأوامر الوندوز والتي يعطيها الكمبيوتر الاولوية لذلك ، خذ معدل 3-4 مرات لكل استعلام وفي النهاية ستعرف ان اختيار الاستعلام له اسباب اخرى ايضا غير : . جعفر 256.2.Database3.accdb.zip

وعليكم السلام أخي نبيل الرابط هذا فيه برنامج مرفق: http://www.officena.net/ib/topic/66912-تغيير-اتجاه-العناصر-في-النموذج-من-اليمين-الى-اليسار-وبالعكس-برمجيا/ وفيه معلومات مهمة اخرى ، وإشارة الى رابط آحر : http://www.officena.net/ib/topic/59818-اعمل-برنامجك-بعدة-لغات-وببساطة/ جعفر

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

السلام عليكم أخوي ابوحاتم انا اشتغلت بالمقلوب ، لأن صافي الراتب (بعد إضافة المخصصات والإستقطاعات) ما موجود في اي جدول ، فاضطررت ان اضيف البيانات في جدول_طباعة_الرواتب (مثل ما عملت سابقا) ، ومنه أخذت صافي الراتب ، واستخرجت 3% مال رعاية القاصرين ، ثم اضفت هذه المعلومات الى جدول الاستقطاعات_الشهرية يعني هذه المعلومات ستكون متوفرة بعد ان تستخدم نموذج تهيئة الرواتب للشعبة المطلوبة اضفت استعلامين: qry_3_Percent_Clear_3 qry_3_Percent_Deduct_4 لماكرو تهيئة_الرواتب_للطباعة ، وسلامتك جعفر

حياك الله أخوي نعم هي بالضبط جعفر

أخوي أبو وليد انصحك بإستخدام طريقة أخونا كرار ، مع تعديلي لأني لاحظت ان طريقتي تعطي ارقام غير صحيحة لما السجلات تكون كثيرة ، لازم اشوف ليش ، بس حق شغلك ، خذ الطريقة الصح جعفر

السلام عليكم أخوي حربي الآن ان شاء الله انظر في برنامجك ، بس الله يخليك خليك معاي علشان اذا احتجت حاجة جعفر

طريقة حلوة ، وما ممكن تيجي على بالي 1. بس استعلامك كله كود 2. وهنا اذا تسمح لي اتدخل: انا ذهبت الى الجدول ، ونسخت السجلات والصقتهم عدة مرات ، ثم حذفت السجلات الاولى ، وبهذه الطريقة ، الرقم التلقائي لم يبدأ بالرقم 1 ، فإستعلامك يحتاج له تعديل بسيط حتى يشتغل على جميع الارقام في الاستعلام ، غيّر قيمة ID2 الى القيمة التالية: ID2: DCount("ID","Query1","ID <=" & [ID])-1 جعفر

وعليكم السلام ورحمة الله وبركاته غيّر معيار الاستعلام (اعمل لها نسخ/لصق ، لأن الكلمات العربية قلبت المعادلة ، فلن تستطيع فهم المعادلة من النظر اليها) : بدل IIf([Forms]![جدول2]![خيار10]=Yes,"م") الى IIf([Forms]![جدول2]![خيار10]=Yes,"م",[الحصة]) وللمنفعة العامة ، وكمثال على المعادلة ، اذا كانت الكلمات بالانجليزية ، فطريقة عرض المعادلة هكذا: بدل IIf([Forms]![frm_Classes]![txt_opt]=Yes,"M") الى IIf([Forms]![frm_Classes]![txt_opt]=Yes,"M",[Classes]) جعفر

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