jjafferr

على خير ان شاء الله بس انا إحتمال اعمل حقل جديد في الجدول ، وادخل البيانات فيه ، او اعمل لك جدول مؤقت ، بحيث يكون في نسخة من حقل 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 غير مدفوع . جعفر

لوسمحت تستخدم المرفق التالي ، حيث ان التحديث فيه لن يتم لكل الجدول Emp ، وانما للحقل الفاضية للحقل Nationality_En فقط . وحياك الله في المنتدى ، الجميع يحاول ان يساعد هنا جعفر 251.Database3.accdb.zip

سيدي الفاضل الاكسس يختلف عن الاكسل ، لذلك ، وللأسف ، لا يمكن اتباع طرق الاكسل 100% في الاكسس انا بالفعل عملت لك استعلام تحديث Update Query ، واقترح عليك عمل التالي: ان تكتب جميع الاسماء بالعربي ، ولما تنتهي ، تستطيع ان تضغط على الرز اللي في النموذج ، وسيُحدث الجدول بأكمله ، ويكتب الاسم بالانجليزي بس عندي سؤال لوسمحت: انت الان كتبت في خانة الانجليزي ، فهل خانة الانجليزي ستكون فاضية؟ جعفر 252.1.الدول1.accdb.zip

تفضل والكود: Private Sub Nationality_Ar_AfterUpdate() Me.Nationality_En = DLookup("[Nationality_En]", "Nationality", "[Nationality_Ar]='" & Me.Nationality_Ar & "'") End Sub جعفر 252.1.الدول1.accdb.zip

انا اعتذر ، فلا علم لي بالبرنامج