نجوم المشاركات

اولا السلام عليكم ورحمة الله و بركاته ثانيا : عنوان نموضوعك هو ( كتابة الكود التالي ) DoCmd.GoToRecord acDataForm, "NameForForm", acNext "NameForForm" هو اسم النموذج ... وتقدر ان لا تكتب اسم النموذج هكذا DoCmd.GoToRecord acDataForm, , acNext ثالثا اذا تريد شيء اولا يجب عليك ان تبحث في المنتدى واذا ما وجدت طلبك نحن بخدمتك ان شاء الله ورابعا : افتح الماكرو في وضع التصميم و اعمل تحديد الكل بواسطة زرين كنترول مع حرف A وبعدين اعمل كوبي و افتح ماكرو جديد والصقه وبعدين تقدر تتغير ماكرو الى كود برمجي خامسا : نعم لا نقدر ان نعمل شيء ... كان يجب عليك ان ترفع نسخة مصغرة من قاعدتك مع الكود لكي تحصل الجواب في اسرع وقت ممكن نحن نعرف ان فهم السؤال هو نصف الجواب لكن بعد انا لا افهم سؤالك جيداً ماذا تريد بالضبط هل تريد بحث عن سجل ام تريد كود لسجل التالي ام تريد ان تتغير ماكرو عندك الى كود برمجي وكلنا هنا نخدمكم في سبيل الله و هذا فخر لنا لكن كلنا عندهم اشغال اخرى يجب ان نعمله نحن بخدمتكم ان شاء الله اذا ما وصلت الى الحل المطلوب وضح سؤالك جيدا و ارفق نسخة مصغرة من قاعدتك تقبل تحياتي شفان ريكاني

استأذن من استاذنا السيد الوزير البرمجة اتفضل اليك الكود اذا ليس هناك اي ملف في الفولدر سيعطيك الرسالة بان ليس هناك اي نسخة احتياطية لكي نحذفة واذا هناك ملف فيه سيعطيك الرسالة هل انت متأكد واذا نعم سيحذف الجميع Private Sub أمر0_Click() If Dir("D:\FoldrName\" & "*.*") = "" Then MsgBox "ليس هناك اي نسخة احتياطية لكي نحذفه" Else If MsgBox("هل تريد حذف جميع النسخ الإحتياطية ؟", vbYesNo, "نافذة الرسائل") = vbYes Then Kill "D:\FoldrName\*.*" MsgBox "لقد تم حذف جميع النسخ الإحتياطية بنجاح!!!!", vbOKOnly, "نافذة الرسائل" End If End If End Sub اليك المرفق تفريغ محتويات مجلد.rar

وعليكم السلام ورحمة الله وبركاته بما ان المايكرو لديك يعمل بشكل صحيح قم بتحويله بنفسك وذلك كالتالي: افتح المايكرو المحدد في وضع التصميم سيظهر لك خيار في الاعلى تحويل المايكرو الى فيجول بيسك اضغط عليه وسوف يتم تحويله :: تحياتي

نعتذر انا لا اعرف شيء عن اختصارات ... اذاً يجب علي ان ادرس دروس استاذ @رمهان لكي اعرف شيء عن طريقة اختصار الاكواد

وعليكم السلام خليك في النموذج مال الكود اعلاه في وضع التصميم ، وشاشة الكود مغلقة ، انقر على الكيبورد Ctrl+G ، بتدخل الكود ، وبيكون في نافذة صغيرة في اسفل شاشة الكود ، في الكود اعلاه ، احذف الشرطة من امام Debug.print ، ارجع للنموذج ، شغله ، وخليه يعطيك النتائج ، ارجع لشاشة الكود ، وشوف الشاشة في الاسفل شو مكتوب فيها جعفر

السلام عليكم ورحمة الله جرب الملف المرفق حيث تم إضافة المعادلات الخاصة بفصل الشُّعَب في جداول... بن علية حاجي Ali.rar

السلام عليكم ورحمة الله وبركاته كيف الحال؟ يا رب دايما بخير وسعادة ورضى بالمكتوب ومحاولات جاهدة لنكون أفضل مما كنا عليه حياكم الله وبعد اليوم أحببت أن أشارك أحبابي في الله مشرفي وأعضاء وزوار موقعنا الغالي على قلوبنا جميعا ملتقى الأوفيس العربي الأول على مستوى الانترنت أوفيسنا بمعلومة مفيدة جدا لكل من يريد التطبيق العملي للتعليمات الموجودة في فيديوهات الشروح ومن يريد الاستمتاع بمشاهدة يوتويب أثناء تصفحه باقي المواقع إليكم الطريقة بمنتهى البساطة ملحوظة: العمل على متصفح جوجل كروم وذلك من خلال إضافة تسمى floating for YouTube extension وولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرى وإن أعجبكم الفيديو استفدتم به فلا تبخل على غيرك بمشاركته معهم فلو بخل به غيرك ما وصل إليك والآن مع الفيديو وفقنا الله وإياكم لكل ما يحب ويرضى وتسعدني تعليقاتكم ولو بكلمة انتظرونا فالقادم أفضل

طلب مني احد الاصدقاء ادراج معادلة لمعرفة ايام العمل المشتركة بين عاملين فكان هذا الملف كي يستفيد منه من يشاء عسى ان ينال الاعجاب Common_Days.rar

السلام عليكم و رحمة الله و بركاته أخي أبو زاهر عليك أولاَ تحديد نوع الحركة في المذكرات في جدول tblFotrType و ذلك [ان تضيف حقل تعرف فيه نوع الحركة ادخال او اخراج مثلا يتم ادخال رقم 1 لمذكرات الادخال ( شراء - مرتجع مبيعات) و رقم 2 لمذكرات الإخراج ( مبيعات - مرتجع مشتريات) ثانياَ في جدول دليل الأصناف Alsnaf يجب إضافة حقل تعريف السعر أول المدة للأرصدة المدورة } ثالثاً تنشئ جدول بطاقة مراقبة المادة و يتم تعبئتة آلياً و عليه يتم حساب السعر الوسطي بالاستناد الى البطاقة و دليل المواد

السلام عليكم ورحمة الله أخي الحبيب أبو أحمد، تفضل الملف المرفق وبه ما تريد... فقط أريد أن أعرف ما فائدة عمود "عدد الأيام الإضافية" (العمود E في الجدول)؟ المهم إذا أردت إضافة قيمه مرة واحدة في المعادلات يكفي إضافتها آخر المعادلة مباشرة قبل القوس الأخيرة بالشكل التالي : (E3 +(((... (هذا بالنسبة للصف الثالث ثم سحب المعادلة إلى الأسفل) مثلما فعلت في العمود G الملون بالأزرق... بن علية حاجي رصيد إجازات 8ب.rar

اجمع الاصناف المشتراه مع الرصيد الافتتاحي اجمع التكلفة حق المشتراه مع تكلفة بداية المدة ثم اقسم السعر على الوحدات يطلع لك السعر المتوسط بالتوفيق

انظر الاستعلام فى المرفق ولاحظ العلاقة بين الجدولين فى الاستعلام FahtersAndSons2.rar

السلام عليكم وأين المثال التطبيقي؟؟ هل تريد أن يكون مجموع الإجازات المستحقة في كل الفترة ما بين تاريخ التعيين وتاريخ احتساب الإجازات يساوي: (الفرق بين التاريخين بالأيام مقسوم على 365.25) مضروب في (عدد أيام الإجازة المستحقة في كل عام)؟؟ بن علية حاجي

السلام عليكم جرب الملف المرفق لعل فيه ما تريد.... بن علية حاجي Ali_31.rar

ومثل ما قال اخي الوزير ، وضغطت على الزر ، وطلع لي هذا الكود '------------------------------------------------------------ ' Combo3_AfterUpdate ' '------------------------------------------------------------ Private Sub Combo3_AfterUpdate() On Error GoTo Combo3_AfterUpdate_Err DoCmd.SearchForRecord , "", acFirst, "[رقم الموظف] = " & Str(Nz(Screen.ActiveControl, 0)) Combo3_AfterUpdate_Exit: Exit Sub Combo3_AfterUpdate_Err: MsgBox Error$ Resume Combo3_AfterUpdate_Exit End Sub جعفر

السلام عليكم الكود الجديد سيغلق الاكسل ، ويقوم بحذف الملف رقم 2 بدل هذا الكود 'make reference to Microsoft Excel xx.x object Library Dim wBook As workbook Set wBook = Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close False استخدم هذا 'now we have a csv file correctly saved, 'convert it to xls Dim objXLApp As Object Dim wBook As Object Set objXLApp = CreateObject("Excel.Application") Set wBook = objXLApp.Workbooks.Open(nFile_Name, Format:=6, Delimiter:=",") wBook.SaveAs Replace(Me.txtPath, ".csv", ".xls"), FileFormat:=xlExcel8 wBook.Close 'False objXLApp.Quit Set wBook = Nothing Set objXLApp = Nothing جعفر 862.298.Remove_3_Lines_csv.mdb.zip

Kill "D:\FoldrName\*.*"

أنا سويتها للجدول فقط بكود بسيط اتمنى ان يكون مفيدة وهذا هو المرفق مع تحياتي للجميع Change Fields Name.rar

وعليكم السلام نفترض ان حقل الادخال هو A وحقل النتيجة هو B ، فيصير الكود: عند ادخال رقم اكبر من 2000 و اصغر من 5000 ظهور رقم '2 واذا اكبر من 5000 و اصغر من 10000 ظهور رقم '3 if me.A>2000 and me.A <5000 then me.B=2 elseif me.A>5000 and me.A <10000 then me.B=3 endif جعفر

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

السلام عليكم ورحمة الله أرفق لك ملفين في المرفقات، الملف الأول Ali_2 هو حل للحالة الأولى (مرفقك الأول) الذي ذكر فيه أخي سليم شرط ترتيب الشعب حيث تم التعديل على المعادلات لتأتي بالبيانات مهما كان الترتيب بمعادلات صفيف أقصر من التي وضعها أخي سليم في ملفه. والملف الثاني Ali_3 فيه حل للمسألة المطلوبة في آخر مشاركتك مع التعديل على بعض التسميات مع ترك تسميتين فقط : AliLang و MySections (التي تم التعديل على نطاقها) وإضافة تسمية ثالثة MyCel لاستعمالها في دالة OFFSET لتحديد عمود الاسم (عمود القائمة العربية أو عمود القائمة الانجليزية وفق القائمة المنسدلة)... بالنسبة لاختيار الشعب يمكن التغيير في الخلايا المكتوبة بالأحمر (C5 و C6 بالنسبة للقائمة على اليمين والخلايا F5 و F6 بالنسبة للقائمة على اليسار)... أرجو أن تفي هذه التعديلات ما تريده... ملاحظة : تم إضافة تنسيق شرطي لتأطير الخلايا غير الفارغة فقط في القائمتين... بن علية حاجي Ali_2_3.rar

جرب هذا المرفق Muscat_Browsing_csv_all.zip

يمكن ان يكون الحل Ali Salim.rar

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي EntryForm.rar

وعليكم السلام اعتقد بأني استاهل علامتين بس علشان هذا الترتيب ، واما اذا الاجابة صح ، فنور على نور criti = "[Num_brnamge] =" & Forms![Forme_Fatora].[Num_brnamge] criti = criti & " And" criti = criti & " ([service] Between 1 and 3 or [service] Between 6 and 8)" criti = criti & " And" criti = criti & " [Independent_Facilities] Between 1 and 3" 'Debug.Print criti Me.peoplev = DCount("[service]", "Tabil_Visitors", criti) Me.peoplev2 = DCount("[service]", "Tabil_Visitors2", criti) جعفر

وعليكم السلام هذه طريقتي في جميع برامجي: وهناك تحديث لكود الربط ، ويمكن انزاله من هنا http://www.jstreettech.com/files/JStreetAccessRelinker2.zip جعفر

يا اخوي يا شفان ليش تعطي جواب طويل لما تقدر تعطي جواب قصير ليش هذا الكود الطويل If Len(Me.Text1 & "") = 0 Then Me.Text2.Visible = False Else Me.Text2.Visible = True بينما يمكنك استعمال الكود الاقصر Me.Text4.Visible = IIf(Len(Me.Text6 & "") = 0, -1, 0) . بس يا اخوي ابو سعد ، ترى كود اخوي شفان اسرع في التنفيذ جعفر

السلام عليكم تقول "الايام المستحقة له في السنة الواحدة"، هل "عدد الأيام الإضافية" لا يحتسب في هذه الحالة؟ بن علية حاجي

استخدم دالة if هكذا If Len(Me.Text1 & "" ) = 0 Then Me.Text2.Visible = False Else Me.Text2.Visible = True

السلام عليكم ورحمة الله أخي الحبيب أبو أحمد، تم عمل المطلوب في الملف المرفق مع ملاحظة أرجو أن تراجعها مع إدلاء رأيك فيها لمتابعة التعديل على المعادلات حسب ما تقترحه... أخوك بن علية رصيد إجازات 6ب.rar

السلام عليكم ورحمة الله هذا حل آخر مع حل أخي الكريم سليم في المرفقات بن علية حاجي Common_Days.rar

السلام عليكم لقد اضفت بعض الخصائص و التحسينات على شريط الطباعة و أحببت ان أطلعكم عليها و من أهمها النقاط التالية: 1- التصدير إلى الوورد و pdf 2- تشغيل الشريط حتى في وضعية إخفاء شاشة الأكسس و عمل أزرار التنقل بكل مرونة. و هذا مثال عليه أتمنى تجربته و إطلاعنا على النتائج. شريط طباعة.rar