jjafferr

في نفس الرابط ، المشاركة التالية تشرح لك كل شئ: 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 جعفر

اخي سيفين اتفقنا ان تعطي تفصيل لما تريد ، مجرد كلمة ما اشتغل لا تعني شئ جعفر

وهنا الطريقة لمحاذاة Listbox: http://www.officena.net/ib/topic/61106-هدية-من-اليمين-الى-اليسار،-مربع-القائمة-listbox-والشجرة-treeview/ جعفر

تفضل 3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com . وهذا كود الازرار: Private Sub cmd_FollowHyperlink_Click() url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" Application.FollowHyperlink url_address & Me!name End Sub Private Sub cmd_ie_Click() Dim ie As Object Set ie = CreateObject("internetexplorer.application") url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" ie.Visible = True ie.Navigate url_address & Me!name End Sub Private Sub cmd_objIE_Click() 'Reference to Microsfot Internet Controls 'c:\windows\system32\ieFrame.dll Dim web As WebBrowser Set web = Me.objIE.Object url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" web.Silent = True 'stop script errors web.Navigate url_address & Me!name End Sub جعفر 255.web.accdb.zip

وعليكم السلام أخوي ابورحيل البحث في المنتدى سيوصلك ، بالاضافة الى روابط اخرى ، الى هذا الرابط: http://www.officena.net/ib/topic/61106-هدية-من-اليمين-الى-اليسار،-مربع-القائمة-listbox-والشجرة-treeview/ جعفر

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