jjafferr

وهذه النسخة لعمل المتوسط تلقائيا على جميع الاختيارات اختار كم مرة تريد التجربة ، انا اخترت 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]) جعفر

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

ولا يهمك ، انا في انتظار معرفة طريقتك والتعلم منها تفضل جعفر

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

في اول سجل تُدخله ، وبعد ان يعطيك البرنامج رقم جديد ، غيّره يدويا الى 1001 (هذا سيكون اول/اكبر رقم في الحقل/الجدول) ، وعليه سيعتمد الرقم التالي عليه ، اي 1001 + 1 جعفر

لا يمكن عمل الاثنين معا!! 1. اذا بمجرد فتح النموذج ، معناه ان النموذج يكون في حالة "ادخال بيانات" ، فعليه يمكن نقل الكود الى حدث "عند فتح النموذج" ، واذا عملت هذا الشئ ، فمعناه ان الرقم سيكون موجود في النموذج لما يفتح مباشرة ، وانت بعدك ما ادخلت شئ ، ولا حتى الاسم!! 2. اما اذا ما تريد الرقم عند فتح النموذج ، فتقدر تخلّي الكود على حدث "بعد التحديث" لحقل "رقم الهوية" ، اي بعد ان يتم ادخال البيانات في آخر حقل في النموذج. وفي كل الحالتين اعلاه ، البيانات اللي في النموذج ، لن تُحفظ في الجدول إلا بعد ان تنتقل من السجل الذي انت عليه ، سواء بالانتقال الى السجل آخر ، او بإغلاق النموذج. عندما تُدخل بيانات او تُغيرها سواء في نموذج او جدول ، ترى العلامة التي في الدائرة الحمراء (قلم) ، والتي تعني ان السجل غير محفوظ بعد: . واذا اردت ان تلغي جميع ما عملت في هذا السجل ، فعليك الضغط على الزر Esc (على لوحة المفاتيح) مرتين. اما اذا انتقلت الى سجل آخر سواء في نموذج او جدول ، فسترى العلامة التي في الدائرة الحمراء (مثلث) ، والتي تعني ان السجل محفوظ: . وانت الآن عندك الكود ، فغيّر مكانه للمكان اللي يريحك 3. اما اذا اردت الاثنين ، فهذا معناه انه يجب ان يكون نموذجك غير مضمن ، ولا الحقول ، وانك بالكود تجلب البيانات للنموذج ، وبالكود تحفظ البيانات للجدول جعفر

تفضل لما تكتب الاسم في سجل جديد ، ولما تطلع من حقل الاسم ، الرقم سيظهر لك والكود هو : Private Sub full_name_AfterUpdate() If Me.NewRecord Then Me.Out_Number = Nz(DMax("[Out_Number]", "table1"), 0) + 1 End If End Sub جعفر 258.DB.accdb.zip

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