jjafferr

انا شغلي كله على اساس مثالك. آسف نسيت اجمع الرقم 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-اظهر-اسم-المستخدم-على-تقرير-الاكسس/ هذا الموضوع يغلق

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

موضوع مكرر: http://www.officena.net/ib/topic/66792-مشاركة-نموذج-علي-القاعدة/ يغلق

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

. السلام عليكم أخي حسام في الواقع الطريقتين يعملان بنفس الطريقة ، ولكن طريقتك وضعت المسميات وتغييرها من عربي/انجليزي في الكود ، بينما في طريقتي: 1. المسميات وتغييرها من عربي/انجليزي من الجدول ، وبطريقة سهلة ، 2. يمكن تغيير الكود قليلا ، ووضعه في وحدة نمطية مستقلة ، ثم مناداته من النموذج بسطر واحد ، 3. والاهم ، ان طريقتي ، وبحذف اي عنصر في البرنامج فيه مسميات باللغة العربية (كل المسميات في جميع الكائنات "النماذج/الكود/الاستعلام/التقارير/ الجداول/الماكرو" يجب ان تكون بالانجليزي non-unicode ، طبعا البيانات في الجداول ممكن تكون بمختلف اللغات) ، فيسيطيع ان يعمل البرنامج على جميع الكمبيوترات ، وبجميع اعدادات اللغات في Regional settings ، وبدون رسائل خطأ OLE ActiveX جعفر

وعليكم السلام الرابط هذا بيفيدك ان شاء الله: http://www.officena.net/ib/topic/61730-كيفية-ترقيم-القيد-بعد-حذف-القيد جعفر

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

وعليكم السلام هذه طريقتي: http://www.officena.net/ib/topic/59818-اعمل-برنامجك-بعدة-لغات-وببساطة/ جعفر

السلام عليكم اخوي حربي سؤال: في المرفق السابق ، انا طبقت خصم 3% على جميع الموظفين ، فهل هذا صح؟ جعفر

وعليكم السلام البرنامج شغال تمام ، بس المشكلة عندك في البيانات!! كان عندك الموظفين الثلاث تاريخ عقدهم 31-12-2015 ، والى الآن (31-1-2016) ما انتهى شهر على توظيفهم حتى يحصلوا على راتب شهر 1 ، يعني اذا شغلت البرنامج بكرة 1-2-2016 فبتحصل نتائج!! بس لاحظ ، لما غيرت تاريخ عقد الموظف رقم 34 الى 30-11-2015 ، فعلى طول اخبرني التقرير ان راتبه لشهر 12 غير مدفوع . جعفر