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

السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

السلام عليكم عثرت على هذا الكود الرائع لتصدير الاستعلامات من أكسيس إلى إكسيل الكود يعمل بكفاءة مع الاستعلامات بدون معايير أو بمعايير مباشرة داخل الاستعلام كيف يمكن تعديله ليصدر استعلاما يستخدم معيارا فى نموذج علما بأننى فتحت النموذج أثناء تشغيل الكود و اخترت القيمة و مع ذلك لم يفلح و يعطى رسالة خطأ أنه يحتاج لقيمة معلمة وفقنا الله و إياكم لنفع المسلمين هاكم الكود 'Step 1: Declare your variables Dim MyDatabase As DAO.Database Dim MyQueryDef As DAO.QueryDef Dim MyRecordset As DAO.Recordset Dim i As Integer 'Step 2: Identify the database and query Set MyDatabase = CurrentDb Set MyQueryDef = MyDatabase.QueryDefs(Me.allq.Column(1)) 'Query name in the database 'Step 3: Open the query 'DoCmd.OpenQuery Me.allq.Column(1) Set MyRecordset = MyQueryDef.OpenRecordset 'Step 4: Clear previous contents Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .Workbooks.Add .Sheets("ورقة1").Select 'Step 5: Copy the recordset to Excel .ActiveSheet.Range("A1").CopyFromRecordset MyRecordset 'Step 6: Add column heading names to the spreadsheet For i = 1 To MyRecordset.Fields.Count xlApp.ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name Next i xlApp.Cells.EntireColumn.AutoFit End With MsgBox "تم التصدير بنجاح"

السلام عليكم تفضل تستطيع إستعمال هذا الكود: DoCmd.MoveSize Height:=Me.WindowHeight - Me.تفصيل.Height و هذا التعديل على الملف التفاصيل.rar

ممکن ترفق القاعدة احنا مش مشغولين خلي نشتغل عليه تحياتي

السلام عليكم احد المقاييس ، هو عدد الساعات المتوقع قضاؤها في برمجة البرنامج ثم ضرب العدد في قيمة ساعة المبرمج ، و هذه يمكن للسهولة حسابها عن طريق قسمة الدخل الشهري المتوقع في حالة عمل نظامي و قسمته على عدد ساعات العمل ، ثم ضرب ذلك في معامل معين بالزيادة او النقص بحسب رغبة الشخص في المنافسة. و قيمة الساعة تختلف من شخص لاخر اذا كان مبرمج فردي Free Lancer اما الشركات فعادة ما تقوم بحساب اما متوسط الساعات لفريق العمل ، او في الاغلب سعر الساعة لكل عضو من الفريق بحسب مهامه ، فساعة مدير المشروع تختلف عن المبرمج تختلف عن محلل البيانات ، تختلف عن مصمم قواعد البيانات ، عن مصمم الجرافيك.

اتفضل هذا الرابط بها ماتريد https://www.officena.net/ib/topic/73224-طباعة-كل-الفواتير-بشرط-التاريخ/?do=findComment&comment=474269

سلام عليكم أخي الكريم يمكن هدا يساعدك في إيجاد المطلوب DoCmd.OpenReport "nomDuReport",,, "DATEPAYE BETWEEN #01/01/2007# AND #05/30/2007# AND [Employé]='x'"

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

وعليكم السلام أعلن عن المعيار في المعلمات

بالفيديو تحويل الأرقام من عربي إلى هندي في وورد 2016 - MS WORD 2016 طريقة تحويل الأرقام من العربية (الإنجليزية الحالية) إلى الهندية (العربية الشرقية) أو العكس في مايكروسوفت وورد 2016 "معالج النصوص" أو معالج الكلمات بإصداره الأخير Microsoft Word 2016 - Numeral ( Arabic to Hindi) رابط الفيديو https://youtu.be/Teqb180W0PM

نفضل يا أخى OK_شئون الموظفين.rar

اتفضل مع الكود Dim objAcc As Access.Application Set objAcc = GetObject("F:\DBAL.ACCDB") objAcc.DoCmd.OpenTable "TblPezanin", acViewNormal, acEdit objAcc.DoCmd.GoToRecord acDataTable, "TblPezanin", acGoTo, 1 objAcc.DoCmd.RunCommand acCmdSelectRecord objAcc.DoCmd.RunCommand acCmdDeleteRecord objAcc.Application.Quit Set objAcc = Nothing واتفضل مع شرح الكود Dim objAcc As Access.Application قمنا بالتصريح Dim ان الكائن هو كائن برامج اكسس Set objAcc = GetObject("F:\DBAL.ACCDB") وان البرامج اكسس موجودة في قرص ئيف باسم دبال ونوعيته هو أسي سي دي بي objAcc.DoCmd.OpenTable "TblPezanin", acViewNormal, acEdit بعدين يفتح جدول باسم تبل بيزانين بشكل نورمال على شكل تعديل objAcc.DoCmd.GoToRecord acDataTable, "TblPezanin", acGoTo, 2 وفي جدول تبل بيزانين بيروح الى سجل رقم 2 وهناك تكدر تغير اي رقم تريد حسب سجلات في جدولك objAcc.DoCmd.RunCommand acCmdSelectRecord وبعدين يحدد السجل المختارة اي وهو سجل رقم 2 objAcc.DoCmd.RunCommand acCmdDeleteRecord وبعدين بيحذف السجل المختارة objAcc.Application.Quit بعدين يغلق القاعدة اي قاعدة دي بال اللي عمل عمليه حذف فيها Set objAcc = Nothing وفي الاخير عملنا سيت اوبجيك لا شي لكي لا يبقى في ذاكرة مؤقتة للجهاز تحياتي

ارجو من حضراتكم مساعدتى للتعديل على ملف للمتالق ا / محمد سلامة عند بدء البرنامج يتم فتح فولدر للوارد وفولدر للصادر ويتم اضافة نموذج للوارد يتم تغير البيانات فى النموذجين لتكون رقم الوارد - التاريخ - الجهة الوارد منها - مكان الحفظ - الموضوع - ربط بمستند اخر ويفضل استخدام comp box لعرض البيانات السابقة للاختيار منها لتسهيل دخول البيانات ونموذج الصادر رقم الصادر - الجهة الصادر اليها - مكان الحفظ - الموضوع - ربط بمستند اخر عند الحفظ يتم حفظ الصورة باسم الجهه الوارد منها ومكان الحفظ عمل نموذج للبحث يكون اسفلة عرض لاكثر من صورة وجزاكم الله كل الخير 555.4.m.salama.accdb.rar

السلام عليكم اخواني الكرام المنتدى تعليمي ، نتعلم من خلاله ونبحث عن حلول للصعوبات التي تواجهنا اخي الحبيب : يمكنك مراسلة صاحب البرنامج لاجراء ما تريد من تعديلات يغلق ،،،

اتفضل استخدمت هذا الكود If Me.Arabic_t1_Activity = "Û" Or Me.Arabic_t1_Activity <= 40 Then Exit Sub Else Me.Arabic_t1_Activity = "" MsgBox "مش مسموح بكتابة هذا" End If شوف فورم FRM_1_Activiti نعم استاذ بيعمل وبشكل ممتاز لكن ابوالاء يريد ان يبدل رسالة اكسس اللي بيظهر اذا دخل رقم اكبر من 40 او دخل حرف عدى حرف غ برسالة اخرى تحياتي لكم 008.rar

جزاك الله خيرا

الأخ الكريم qutubsi السلام عليك لعل ذلك يكون المطلوب =IF(SUM(A1:D1)<=80;80;IF(SUM(A1:D1)>100;100;SUM(A1:D1)))

مرحبا بك معنا يا ابن الأوراس أو الهضاب العليا. لم نعهد على أبناء محاربي الصحراء الخوف. فكلنا هنا تارة نستفيد و تارة أخرى نفيد بما علمنا الله سبحانه و تعالى.

لتجاوز الاحطاء تم تعديل الكود Sub transfer_with_ٍSalim1() Dim Sht_Source, Sht_Target As Worksheet Dim lr1, lr2, My_Row, My_Column As Integer Dim My_Name As String, Oldsum Dim My_Error As Long Set Sht_Source = Sheets("المكافآة"): Set Sht_Target = Sheets("تجميع المكافآت على مدار العام") lr1 = Sht_Source.Cells(Rows.Count, 1).End(3).Row lr2 = Sht_Target.Cells(Rows.Count, 1).End(3).Row My_Column = Application.Match(Sht_Source.Range("d2"), Sht_Target.Range("c4:n4"), 0) + 2 For i = 5 To lr1 On Error Resume Next My_Name = Sht_Source.Range("b" & i).Value My_Row = Application.Match(My_Name, Sht_Target.Range("b5:b" & lr2), 0) + 4 '============================================== My_Error = Err.Number: If My_Error <> 0 Or My_Name = "" Then GoTo 1 Oldsum = Sht_Target.Cells(My_Row, My_Column) Sht_Target.Cells(My_Row, My_Column) = Oldsum + Sht_Source.Cells(i, 3) '============================================== 1: My_Error = 0 Next End Sub

وعليكم السلام اذا اردت الدالة بشرطين ، فاليك الطريقة (ولكن ولأنها بالعربي ، فللأسف لن تستطيع قرأتها بالطريقة الصحيحة) . ولكن ، بدل هذه الدالة ، رأيت ان اتوسع في الاجابةلتكون فائدتها اعم اليك الاستعلام الجديد ، والذي يحسب مجموع التقدير لجميع الصفوف: . . والنتيجة . وعندما نربطه بالاستعلام الذي قمت انت بعمله: . والنتيجة . جعفر 468.الصفوف العليا 2016.accdb.zip

فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar