jjafferr

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

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

في اول سجل تُدخله ، وبعد ان يعطيك البرنامج رقم جديد ، غيّره يدويا الى 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

وعليكم السلام المنتدى غني بمثل هذه الاسئلة المتكررة ، فياريت تعمل بحث قبل ان تضع سؤالك الرابط التالي فيه رد على سؤالك: http://www.officena.net/ib/topic/61730-كيفية-ترقيم-القيد-بعد-حذف-القيد/ جعفر

شكرا جرب هذا الكود بدل السابق : Public RowID As Integer Public RowVal As Double Function Add_5(N) 'N = vol ' If Len(RowID & "") = 0 Or RowID = 0 Then RowID = RowID + 1 ' End If If RowID = 1 Then Add_5 = N Else 'Add_5 = N + RowVal + 5 Add_5 = RowVal + 5 End If RowVal = Add_5 End Function جعفر

. وصلتني رسالتك بالايميل ، ولكنها غير موجودة في الرابط الذي ارفقته انت!! جعفر

وعليكم السلام فهرسة الحقول في الجداول تجعل البرنامج اسرع ، حيث يقوم الاكسس بحفظ بيانات هذه الحقول المفهرسة في ذاكرته ويقرأها من هنا ، بدل قرأتها من الجداول والفهرسة يجب ان تكون للحقول التالية ، اذا اردت تسريع البرنامج: 1. حقل الترقيم التلقائي ، هذه سهلة وما يحتاج لها شرح 2. الحقول التي تستخدم لها معايير في استخلاص معلومات السجل: في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت معيار/تصفية لحقل/حقول ، في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت فرز لحقل/حقول ، في النموذج / التقرير ، اذا عملنا تصفية عن طريق me.Filter او فرز عن طريق me.Orderby ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه تصفة / فرز ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه اوامر Dcount , Dmax, Dlookup , Dlast, Dfirst ، وفيها اسم حقل تصفية مثل (حقل C هنا): A = DLookup("[B]", "FromThisTable", "[C]= " & C) . وأحد الطرق الجداً مهمة ، هي عمل استعلام لأي شئ تريد البحث فيه او تفرزه ، ولا اعني استعلام في الكود ، وانما استعلام منفصل ، والمهم ايضا ، عندما تعمل الاستعلام ، انه بين الفترة والاخرى تستخدم "الضغط والاصلاح" ، لأنه يعيد فهرست البرنامج ، وينظم عمل الاستعلام ويجعله اسرع جعفر

انا شغلي كله على اساس مثالك. آسف نسيت اجمع الرقم 5 لوسمحت ، اعمل لي النتيجة اللي لازم تظهر مال البيانات اللي موجودة في المرفق. جعفر

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

تفضل استخدم زر النموذج Form1 للحصول على نتائج الاستعلام . والنتيجة: . هذه الوحدة النمطية Add_5 والتي تقوم بالعمل للإستعلام: Public RowID As Integer Public RowVal As Integer Function Add_5(N) 'N = vol If Len(RowID & "") = 0 Then RowID = RowID + 1 End If If RowID = 1 Then Add_5 = N Else Add_5 = N + RowVal End If RowVal = Add_5 End Function . ولكن لكي تعمل بالطريقة الصحيحة ، يجب ان نشغل الاستعلام من زر النموذج Form1 ، وحدث الرز (يعني اذا شغّلت الاستعلام مباشرة ، ستحصل على نتائج غلط): Private Sub cmd_fAdd_5_Click() RowID = 0 RowVal = 0 DoCmd.OpenQuery "Query1" End Sub جعفر 256.1.Database2.accdb.zip

على خير ان شاء الله بس انا إحتمال اعمل حقل جديد في الجدول ، وادخل البيانات فيه ، او اعمل لك جدول مؤقت ، بحيث يكون في نسخة من حقل ID الجدول الحالي علشان تربط الجدولين مع بعض في استعلام. يعني العمل قد لا يمكن عمله في استعلام مباشرة جعفر والعمل سيتم بالكود

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

كما اني اشتغل على برنامج اكسس ، وفيه webbrowser ActiveX ، وادخل فيه على المنتدى ، ونسخته 11 ، ولكن تأتيني هذه الاخطاء بالترتيب ، عند فتح اي موضوع: . . . . . والنتيجة التي لاحظتها (ومحتاج لها في برنامجي) ، هو اختفاء زر "شارك هذه المشاركة" في اقصى يسار كل مشاركة: . والمفروض ان تكون: . نعم حاولت الدخول بإسمي ، ولكن بنفس النتيجة. جعفر الآن استلمت بالايميل رسالة منك ، ولكني لم اجدها في المنتدى في صفحتي الشخصية ، فاين هي اذن؟ جعفر وفي الايميل ، عند الضغط على زر "الذهاب الى تحديث الحاله" ، فيأخذني لصفحتي الشخصية ، وكذلك لا توجد رسالة او تنبيه بها جعفر

عند تشغيل البرنامج ، هل يظهر لك شريط اصفر اعلى البرنامج؟

السلام عليكم ورحمة الله وبركاته استاذنا العزيز محمد طاهر ، اعذرني بسؤال لوسمحت: تأتيني رسائل من المنتدى على الايميل ، مثل: علــــي قام بالرد علي تحديث الحاله الخاص بك والظاهر انها تُكتب في: كتبت لك رسالة في ملفك الشخصي اتمنى انها وصلت لك ولكني لا اعرف الوصول اليها من صفحتي الشخصية!! جعفر

وعليكم السلام ابو وليد تريد الرد على هذا السؤال ، او: http://www.officena.net/ib/topic/66660-استعلام-مشروط/?do=findComment&comment=433546 جعفر