jjafferr

وعليكم السلام نستطيع ان نغير في البرمجة ويكون إما: 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

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

في نفس الرابط ، المشاركة التالية تشرح لك كل شئ: http://www.officena.net/ib/topic/61730-كيفية-ترقيم-القيد-بعد-حذف-القيد/?do=findComment&comment=398763 واذا لازلت في مشكلة ، فالرجاء شرح ما قمت به (على اساس الرابط) ، ثم ترفق برنامجك ، والذي يجب ان يكون فيه عملك لوسمحت جعفر

حياك الله النتائج حاليا تُعرض في الاستعلام ، فما عندك مشكلة هناك ولكن علشان نستغني عن النموذج (كل اللي يعمله هو ان يخبر الوحدة النمطية بأن بداية السجلات من هنا) ، محتاج الى تسلسل من 1 الى آخر رقم ، كبيانات حقل ، هذه البيانات موجودة في مرفقك ، حقل Field1 ، ولكنها غير موجودة في الصورة التي وضعتها في سؤالك الاصل جعفر

السلام عليكم هذا الاستعلام ، ونرسل قيمة الحقلين t و close الى الوحدة النمطية add_3 . والنتيجة: . وهذا كود الوحدة النمطية: Public RowID As Integer Public RowVal_1 As Double Public RowVal_2 As Double Public RowVal_3 As Double Function Add_3(T, N) 'T = ticker 'N = close If T = 1 Then RowVal_1 = N RowVal_2 = 0 RowVal_3 = 0 ElseIf T = 2 Then RowVal_2 = N RowVal_3 = 0 ElseIf T = 3 Then RowVal_3 = N Else RowVal_1 = RowVal_2 RowVal_2 = RowVal_3 RowVal_3 = N End If If T = 1 Then Add_3 = 0 ElseIf T = 2 Then Add_3 = 0 Else Add_3 = RowVal_1 + RowVal_2 + RowVal_3 End If End Function جعفر 256.Database2.accdb.zip