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

هل قصدكم ب سويج بورد شوف هذه القاعدة Database11.rar

وينكم يا شباب عدنا ما تريد فقط شوفون رابط استاذنا @صالح حمادي وبعدين اعمل ماتريد تحياتي

ما مشكلة اتأكد عليه واتفضل اليك نسخة من اصدار 2003 arshif2003.rar

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

السلام عليكم ورحمة الله وبركاته رمضان كريم وأن شاء الله يعاد علينا بالبهجة والفرح على الأمة الاسلامية من فترة شهر تقريباً اتصل بي أحد الأصدقاء يعمل محاسب في احدى الشركات البسيطة والصغيرة في مجال الصرافة المالية الخاصة يريد برنامج بسيط على اكسيل في مجال الصرافة فقمت بتصميم وبرمجة برنامج مخصص له يوجد فيه الآتي: 1- فواتير شراء 2- فواتير مبيع 3- أيصالات قبض 4- ايصالات دفع 5- دفتر اليومية 6- كشف حساب 7- الميزانية والأرباح والخسائر البرانامج يعتمد السهولة والبساطة في نفس الوقت في العمل والبرنامج أساسا في قيد التجريب والتطوير وناقص فيه أشياء كثيرة من الأشياء الناقصة تعديل فاتورة لكن فكرته تعتمد على المحاسبة النظرية والعلمية وليس المحاسبة العملية فأحببت أن أفيدكم فيه لأنه صراحة بحثت كثيراً في المواقع ولم أجد برنامج خاص للصرافة المالية في إكسل وفي نفس الوقت مجاني فأرجو أن شاء الله أن ينال إعجابكم ويكون طريقاً في الخير وإذا كان الموضوع يستحق التثبيت يرجى تثبيته لتحقيق أكبر فائدة ممكنة للمستخدمين والسلام عليكم أخوكم في الله أنس دروبي الرقم السري لألغاء الحماية anas ‫‫منظومة الصرافة.rar

السلام عليكم لن اتكلم كثيرا ولكن يجب ان اذكر التالي: كلمات القاموس الحالية منقول من المنتدى وباستطاعتكم اضافة ما تريدونه من كلمات بالنسخ واللصق في الملف وتغيير مدى النطاق المسمى (البيانات) هنا يتواجد معنا الاستاذ القدير /ابو اسامة العينبوسي في كود تغيير اللغة فكرة الاضافة والتعديل والحذف والاستماع الاستاذ القدير / محمدي عبد السميع فكرة فورم الخروج (منتديات اهلا عرب) تفضلوا _____________.rar

بالنسبة لموضوع الارتباط ده اولا قم اخي بالدخول علي قائمة Edite ثم اختار الاختيار Links وستظهر لك شاشة الارتباطات ويظهر اي ارتباطات موجودة بالملف ويكون لديك ازار الاختيارات لتحديث الارتباط وتعديلة وامسح وقطع الارتباط وخلافة ..... اما الجزء الخاص بالكود فسيتم لاطلاع عليه والرد عليك بسرعة ان شاء الله انا بكتب دلوقتي من علي الموبايل تقبل خالص تحياتي

افتح ملف جديد اشأ بداخله جدول كما هو موضح في الصورة و سمه tbData انقل الى ملفك الموديلات و الفورم التالي جرب واعلمني بالنتيجة UFrm.rar

ربي يبارك فيك اخي@Shivan Rekany أبو محمد ممتاز جدا

ده كود اخذته من برنامج ارفقه الاخ الفاضل نهر الفنون للسحب من اسكنر ياريت حد يعدل عليه ليتوافق مع برنامجي Me.[Table2].Form!NEM_IMEGE = "ÇÑÔÝÉ ÈÇáÇÓßäÑ" DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 TWAIN_SelectImageSource (Me.hwnd) Dim Ret As Long, PictureFile As String Dim ss As Integer ss = Me.oto PictureFile = Found1 & "\" & "foto" & "\" & Me.id & "_image" & ss & ".jpg" Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) If Ret = 0 Then Me.path2 = Me.id & "_image" & ss & ".jpg" Forms!ekama!image1.Picture = PictureFile On Error Resume Next DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNext Forms!ekama!image1.Picture = PictureFile Else 'Kill PictureFileMsgBox "ÝÔáÊ ÚãáíÉ ÇáãÓÍ ", , "" End If

شكراً الف الف شكر

ده نسخة من البرنامج بعد اخر تعديل وهو اضافة زر امر لاضافة عدة صور من الكمبيوتر لكي يستفيد الجميع طبعا الشكر كل الشكر لاساتذتي ( Shivan Rekany / محمد سلامه ) ولكل من ساهم في هذا البرنامج ويا ريت حد عنده فكره عن كيفية عمل زر امر للسحب من الاسكنر وكيفية عمل ذالك ليكتمل البرنامج وجزاكم الله خيرا ارشيف الكتروني.rar

و لتحويل المعادلات لارفام نضيف جزء جديد Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy For k = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(k).Activate Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next k Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

السلام عليكم تابعو هذا الموضوع و بالأخص آخر مرفق و أما الشكل المطلوب فهو بالمرفق التالي: تأثيرات النماذج.rar

اتفضل القي نظرتا الى هذا الرابط احتمال ان يكون هو فيها مطلبك

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

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

ارفع نموذجاً عن الملف حوالي 30(لا اكثر) سطر للعمل عليه

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

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

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

في البداية الكود عملنا متغير نصس باسم ( sql ) Dim sql As String بعدين بيننا ما هو ( sql ) وقلنا ( sql ) يساوي حذف كل البيانات من جدول (tblMealomat) . sql = "DELETE tblMealomat.* FROM tblMealomat;" بعدين كتبنا شرط ئيف مع رسالة بها زرين وهما ( yes ) و ( no ) و اضفنا ( vbMsgBoxRight ) لكي يبدأ الرسالة من اليمين وكتبنا (تنبيه) كعنوان الرسالة بعدين قلنا اذا الرسالة يساوي زر ( yes ) اي اذا ضغطنا على زر نعم شو بيعمل لنا ... If MsgBox("هل تريد الحذف كافة السجلات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then اولا : قلنا ايقاف تحذيرات اكسس DoCmd.SetWarnings (warningsoff) ثانيا : تشغيل جملة سكويليتي وهو حذف كافة سجلات من جدول (tblMealomat) وهو متغير باسم ( sql ) DoCmd.RunSQL (sql) ثالثا : تشغيل تحذيرات اكسس DoCmd.SetWarnings (warningson) رابعا : اعادة استعلام لكي عند عمل حذف لا يعطيني في مربعات النصية كلمةم محذوف او بالانكليزية ديليت Me.Requery خامسا : اظهار رسالة اخرى و بيخبرنات ان تم الحذف كافة السجلات بنجاح MsgBox "تم حذف كافة السجلات" لكن اذا ما ضغطنا على زر ( yes ) وضغطنا على زر ( no ) شو بيعمل Else بيعظهر رسالة ويخبرنا ان تم الغاء العملية الحذف MsgBox "تم الغاء العملية الحذف" واخيرا انتهينا بشرطنا ئيف End If تحياتي

فرضنا عندك جدول باسم tblMealomat سنستخدم هذا الكود Dim sql As String sql = "DELETE tblMealomat.* FROM tblMealomat;" If MsgBox("هل تريد الحذف كافة السجلات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) DoCmd.SetWarnings (warningson) Me.Requery MsgBox "تم حذف كافة السجلات" Else MsgBox "تم الغاء العملية الحذف" End If اولا سنعطينا رسالة تأكيدية اذا ضغطنا على نعم سيحذف كافة السجلات ويعطينا رسالة تم حذف واذا ضغطنا على لا سيعطينا رسالة تم الغاء العملية تحياتي

السلام عليكم اذا اردت تكرار الامر علي عدد من اوراق العمل التي تختارها بمعرفتك عن طريق تحديد اسمها ، يمكنك تكرار الجزء الاوسط من الكود كما يلي: Sub SplitSpecificSheet() Dim xPath As String Dim SH As Worksheet xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False ' Sheet1 Set SH = Sheets("Sheet1") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' Sheet2 Set SH = Sheets("Sheet2") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

أخي العزيز محمد سلامة ، تحية طيبة أنا أريد برنامج أرشفة يعمل على أوفيس 2013 ، هل هذا ممكن؟ أرجو الإفادة والدعم شكراً جزيلاً

مرفق نموذج مصغر عما تريده مع الاكواد اللازمة لنقل البيانات من الصفحة الرئيسية الى كل الصفحات small_cope.rar

الان انا جربت وما فيه المشكلة لكن اظن لان الكود بيحذف مافي بالجدول وبعدين يضيف اللي في اكسل وهما نفس البيانات لذا تحسب انالكود لا يعمل

السلام عليكم ورحمة الله وبركاته تم التجربة عملت فورمات للجهاز ولحسن الحظ لا يتغير اي رقم منهما لا للمزربور ولا للمعالج تحياتي

ستستغرق العملية بضع ثواني cope.rar

اجمعين

السلام عليكم تفضل أخي هذا الملف بعد التعديل Desktop.rar

عاشت ايدك مضبوط

هلا والله ، والله يسلمك ان شاء الله يا جماعة ، اخذوا هذه النصيحة من تجارب سنين: كل جدول تعملة ، لازم تضع فيه هذين الحقلين ، الرقم التلقائي (مفهرس) والتاريخ التلقائي جعفر

وعليكم السلام اليك الاجابة بالصور . . . . . . . . جعفر 452.ترتيب سجلات التقرير نفس ترتيب سجلات النموذج الفرعي.mdb.zip

السلام عليكم أخي الفاضل الحمد لله أنا صممت شيت كنترول للمدارس الاعدادية علي الاكسيل وكذلك شيت كنترول للمدرسة الثانوية الفنية بنات والان انتهيت من تصميم شيت كنترول للمدارس الاعدادية علي الاكسس وهو بعون الله وتوفيق يوفر العديد من الامكانيات وهذه صورة البرنامج

السلام عليكم أهنئ جميع أعضاء و مشرفي و إداريي منتديات أوفيسنا بتحسن أوضاع المنتدى و التغلب على مشكلة تحميل الملفات في المنتدى ... بفضل الله ثم جهود الإداريين ... الآن يمكن للأعضاء تحميل الملفات بكل سهوله دون الحاجة إلى مواقع أخرى و أي ملاحظة أو مشكلة أرجو إبلاغ المشرفين بها ... و بإذن الله سنتخذ الإجراءات اللازمة ... أخوكم : Dream_Works

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