jjafferr

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

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

وعليكم السلام ابو وليد تريد الرد على هذا السؤال ، او: 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

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

نعم

المشكلة كلها ، ان مسميات الحقول عندك بالعربي ، فلما تكتبها في الكود ، فهي تقلب الكود!! اسمح لي افكك لك الكود ، حتى تستوعبه بطريقة افضل: شوف اكبر رقم "رقم الفاتورة مرحل" في الجدول "ترحيل فاتورة"' a = DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة") 'اذا a فاضية ، فبدلها الى صفر b= nz(a,0) 'اكتب هذه القيمة في الحقل "رقم الفاتورة مرحل" في النموذج Me.رقم_الفاتورة_مرحل =b+1 جعفر

انت كنت في المسار الصحيح ، وببعض التغييرات ، تم اللازم بهذا الكود: Me.رقم_الفاتورة_مرحل = Nz(DMax("[رقم الفاتورة مرحل]", "ترحيل فاتورة"), 0) + 1 جعفر 253.الفانورة.accdb.zip