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

اخي محسن وبعد اجمل تحية اطلعت على المرفق والمطلوب ! هذا ليس بالسهل عمله في فترة وجيزة ومن خلال مبرمج واحد ! الموضوع يحتاج محلل خبير في الأنظمة والعمليات التجارية ! هو عبارة عن نظام محاسبي وتصنيع ! والمعروف ان نظام التصنيع يشمل المخازن والإنتاج و أنظمة mrp ! خليني اقولها لك بالبلدي " لو فيه مبرمج قادر يعمل مثل ما طلبت ولمدة سنة كان عمله واصبح يملك مؤسسة توزع هذا النظام " هنا ممكن أكون مستشار لك في تحديد واختيار نظام جاهز وإدارة تركيبه ! فليس بالسهل كذلك اختيار النظام المناسب والأفضل وتركيبه ليتم اتمتة جميع العمليات في المؤسسة او تغطية 80 % من العمليات . فعملية إدارة تركيب النظام تحتاج خبرات ومعرفة ! فهناك مؤسسات اشترت أنظمة ولكن لم تنجح في تشغيلها واستخراج الميزانية من النظام ! تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى المحبب إلى قلوبنا .. أقدم لكم اليوم شرح فيديو ، لكيفية عمل تصفية متقدمة Advanced Filter بالأكواد .. . والشرح مقدم في عدد 2 فيديو .. الأول لكيفية إدراج موديول وكتابة الأسطر الخاصة بتنفيذ التصفية المتقدمة ، والفيديو الثاني لكيفية تنفيذ الكود بدون أزرار بمجرد التغير في ورقة العمل أو التغير في شروط التصفية .. رابط الفيديو الأول : التصفية المتقدمة بالأكواد رابط الفيديو الثاني ومرفق لكم ملفين ..الملف الأول Advanced Filter VBA خاص بالفيديو الأول ، والملف المسمى Advanced Filter Worksheet_Change خاص بالفيديو الثاني أرجو أن ينال الدرس إعجابكم ، وتستفيدوا منه ولا أنتظر منكم سوى دعوة بظهر الغيب ، وادعوا الله لي أن يجعل أعمالنا صالحة ولوجهه خالصة ، وأن يجعل أعمالنا في ميزان حسناتنا يوم القيامة ، إنه ولي ذلك والقادر عليه كان معكم أخوكم أبو البراء من منتدى أوفيسنا (دي القفلة بتاعتي لو تلاحظوا .. مش شعبان عبد الرحيم بس اللي عنده القفلة !) حمل الملف من هنا

السلام عليكم ورحمة الله وبركاته إخواني الكرام . يكثر الطلب حول كيفية نسخ الكود من ملف ووضعه في ملف آخر ، ولذلك ارتأيت أن أسجل للمبتدئين هذا الفيديو شارحاً فيه خطوات نسخ الكود من مصنف لآخر ، وكلذلك كيفية نسخ الكود ووضعه في المنتدى .. حتى يظهر الكود بشكل صحيح داخل المنتدى إليكم رابط الفيديو ومرفق الملفات التي تم استخدمها للتطبيق عليها والتدرب على كيفية عمل ذلك .. أرجو أن ينال رضاكم وتستفيدوا منه أخوكم أبو البراء ID Information UDF Function.rar

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

بيقولي غير مسموح برفع هذا النوع من الملفات مع انهم اكسس و ورد. اعمل ايه

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

كود رائع أخى ولاثراء الموضوع لكل عشاق المعادلات أتقدم بمعادلة لعمل الموضوع =IFERROR(INDEX($A$1:$A$100,SMALL(IF(LEFT($A$1:$A$100,LEN($B$2))=$B$2,ROW($A$1:$A$100)),ROW(1:1))),"") انظر المرفق Search Cells that begins with.zip

الاخوة الافاضل كما اشار الاخ / رمهان النموذج الفرعي اسمه : FORM2 لذلك يلزم تعديل الكود الي Forms!frm_main!form2.SetFocus DoCmd.GoToRecord , , acNewRec مع ملاحظة وضع علامة (!) بدل من (.)

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

الأخ الفاضل خالد بالفعل هذا ما تم معي أيضاً ..لم تختفي الأزرار التي أشار إليها أخونا عبد العزيز ..

السلام عليكم ورحمة الله ممتاز جدا علي الفكرتين الاولي والثانية والتي ادلى بها اخونا الحبيب حسن علي بارك الله فيك وجزاك الله خير

والله ما فهمت !! لو فيه حد فهم من اأعضاء يفهمني .. تقبل تحياتي

أخي الحبيب إذا كنت تبحث عن الشكل الجمالي لورقة العمل فيمكنك الاستغناء عن كلاهما ورسم أي شكل يحلو لك أو حتى إدراج صورة أي صورة تعجبك ثم كليك يمين ثم Assign Macro واربط بالماكرو الذي تريده

اخي ياسر الكود بسيط جداً لدرجة ان من يفرأه مرة واحدة يفهمه فوراً

صديقي ابو القيطان تم تعديل الملف حسب ما تريد find_by_letter 1.rar

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

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

آسف ، ما جربت البرنامج كفاية الان تم تجربته بالكود التالي: Private Sub Command2_Click() On Error GoTo err_Command2_Click Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\MyBackup\سجل الكتب" & ".xls" 'DoCmd.TransferSpreadsheet acImport, 8, "جدول تسجيل الكتب", ImportFileName, True DoCmd.DeleteObject acTable, "Temp" DoCmd.TransferSpreadsheet acImport, 8, "Temp", ImportFileName, True Dim fld As Field Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Temp") mySQL = "INSERT INTO [جدول تسجيل الكتب] ( title, [اسم المؤلف], [مكان النشر], الناشر, ملاحظات ) Select" For Each fld In rst.Fields i = i + 1 If i <> 1 Then mySQL = mySQL & " [" & fld.Name & "]," End If Next mySQL = Mid(mySQL, 1, Len(mySQL) - 1) & " From Temp" 'Debug.Print mySQL CurrentDb.Execute (mySQL) DoCmd.DeleteObject acTable, "Temp" MsgBox "Done" Exit Sub err_Command2_Click: If Err.Number = 7874 Then 'table Temp not found, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر جعفر

اخي الكريم المرفق الأخير الذي قام بإرفاقة اخونا اسير الشروق هو بتنسيق 2007 .... اظن مشكلتك هي التوثيق عند فتح القاعدة يظهر لك شريط في اعلى الصفحة تحت تبويب الصفحة الرئيسية يوجد به خيارات ... اختر الوثوق بالمحتوى وفقنا الله واياك ...

السلام عليكم و رحمة الله و بركاته هل رأيتم كيف يعمل vlookup من اليمين الى اليسار عندما تستعمل اللغة الأجنبية/ و يمكن تحويله من اليسار الى اليمين باللغة العربية انظروا ما فعلت. right_vlookup.rar

السلام عليكم أخي العزيز بعد تعديل طفيف علي كود أخونا الغالي أبوأحمد جرب المرفق حذف أسطر فارغة.rar

أخي الحبيب / أبو البراء أشكرك جزيل الشكر على مجاملتك الرقيقة والتي لا تخلو من مبالغة الأحباب وأرجو الاطلاع على المرفق وفيه بعد تشغيل الكود وبنقرة مزدوجة على أي إسم بالعمود B التي تمثل الأسماء المكررة يذهب بك إلى موقع الخلية الأولى للإسم بالعمود A ثم التالية وهكذا حتى آخر تكرار إذا اخترت من الرسالة YES أما إذا اخترت NO يكتفي بما ذهب إليه . أرجو أن يكون هذا ما طلبت . تحياتي أبو عبدالله قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر - 1.rar