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

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

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

السلام عليكم اعتذر من الاساتذة الافاضل استاذ محمد واستاذ ابا جودي واسمحوا لي بالمشاركة والذي حفزني على المشاركة (د.ع) اخت ام ناصر هذه قاعدة مصغرة لبرنامج رواتب ارجو ان تفيدك مع ملاحظة اني تصرفت بقاعدة بياناتك علما اني قد راعيت ترحيل البيانات لكل الموظفين او لموظف واحد ملاحظة العمل يتم على نموذج (FEmployee) update1.rar

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

كيف تجعل القائمة المنسدلة تحدد لك القسم الذي تريده من الجدول مع عدة خيارات : 1- من البداية حتى اسم معين في الجدول 2-من اسم معين حتى نهاية الجدول 3- بين اسمين في الجدول عسى ان ينال الاعجاب special_data_validation.rar

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

استأذن من استاذنا @ابوخليل و @رمهان لا اعرف هذه الاكواد من صتع اي من اخواننا اولا سيعمل لك فولدر باسم باك اب في قرص دي وايضا يعمل باك اب للجداول والعلاقات اتفضل اليك الصق هذا في وحدة نمطية Option Compare Database Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long Public Function ExportNew(myfile As String) ' إنشاء ملف جديد Dim wrkDefault As Workspace Dim dbsNew As Database Dim mydb On Error GoTo gv mydb = Dir(myfile) If mydb = "" Then Set wrkDefault = DBEngine.Workspaces(0) Set dbsNew = wrkDefault.CreateDatabase(myfile, dbLangArabic) Call exportTbl(myfile) GoTo gv1 Else Call exportTbl(myfile) GoTo gv1 End If gv: Resume gv1: End Function Public Function exportTbl(myfile As String) 'تصدير نسخة لجميع الجداول الموجودة' Dim tdfCurr As TableDef Dim strBackupDatabase As String strBackupDatabase = myfile For Each tdfCurr In CurrentDb().TableDefs If (tdfCurr.Attributes And dbSystemObject) = 0 Then DoCmd.TransferDatabase acExport, "Microsoft Access", _ strBackupDatabase, acTable, tdfCurr.Name, _ tdfCurr.Name End If Next tdfCurr End Function Function ExportRelations(DbName, DbName2 As String) As Integer 'الحاق العلاقات بالجداول المنسوخة Dim ThisDb As dao.Database, ThatDB As dao.Database Dim ThisRel As dao.Relation, ThatRel As dao.Relation Dim ThisField As dao.Field, ThatField As dao.Field Dim Cr As String, i As Integer, cnt As Integer, RCount As Integer Dim j As Integer Dim ErrBadField As Integer Cr$ = Chr$(13) RCount = 0 Set ThisDb = DBEngine.Workspaces(0).OpenDatabase(DbName2) Set ThatDB = DBEngine.Workspaces(0).OpenDatabase(DbName) For i = 0 To ThatDB.Relations.Count - 1 Set ThatRel = ThatDB.Relations(i) Set ThisRel = ThisDb.CreateRelation(ThatRel.Name, _ ThatRel.Table, ThatRel.ForeignTable, ThatRel.Attributes) ErrBadField = False For j = 0 To ThatRel.Fields.Count - 1 Set ThatField = ThatRel.Fields(j) Set ThisField = ThisRel.CreateField(ThatField.Name) ThisField.ForeignName = ThatField.ForeignName On Error Resume Next ThisRel.Fields.Append ThisField If Err <> False Then ErrBadField = True On Error GoTo 0 Next j If ErrBadField = True Then Else On Error Resume Next ThisDb.Relations.Append ThisRel If Err <> False Then Else RCount = RCount + 1 End If On Error GoTo 0 End If Next i ThisDb.Close ThatDB.Close ExportRelations = RCount End Function Public Sub autobackup() Dim datefile As Date Dim timefile As Date Dim pro As String datefile = Date timefile = Time pro = Mid(CurrentProject.Name, 1, (Len(CurrentProject.Name) - 4)) & " " & _ Format(datefile, "yyyy-mm-dd") & " " & Format(timefile, "hh-nn-ss") Path = "D:\Backup\" x = Path Select Case x End Select MakeSureDirectoryPathExists Path & "\" Call ExportNew(x & "\" & pro & ".dat") Call ExportRelations(CurrentProject.FullName, x & "\" & pro & ".dat") MsgBox "تم انشاء نسخة احتياطية بشكل آلي بنجاح في المسار" & vbCrLf & "D:\Backup\", vbInformation End Sub وفي نموذج خلف زر اكتب هذا Call autobackup

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ملف لادارة شؤون الموظفين وهو طلب الاخ / ايوب صابر اكواد من هنا وهناك واخص بالاشارة الاستاذ الكبير / علي السحيب التعديل الاخير : اضافة ورقة جديدة تعديل في فورم البحث حذف ورقة تنقل بين الاوراق ( من اعمال الاخ assher) وحبيت ان يكون في مشاركة منفصلة لتعم الفائدة للجميع ولان بالامكان تغييرة لاي عمل آخر جمعة مباركة ودمتم في حفظ الله وسلامته. تحياتي وسلامي اخوكم/ خبور ____________________.rar

استاذي الفاضل محمد النجار لقد توصلت لحل لما قد سألتك عن امكانية تعديل الاستعلام ليشمل التحديث جميع البيانات الخاصة بالموظف الذي تم اختيار الـ ID الخاص به وذلك بتعديل الشرط الذي اورده الاستاذ ابا جودي مشكورا ً في امثال شاكرة تعاونكم ربي يزيدكم علماً وتوفيق update new.rar

السلام عليكم اخى ناصر ان كنت تقصد الفورم المسمي Form_Search يمكنك ان تستبدل هذا الجزء If Mycell Like "*" & CM_TextFind.Text & "*" Then بهذا السطر عله طلبك If Mycell Like CM_TextFind.Text & "*" Then

تفضل اخي العزيز ارجو ان يكون فيه طلبك سيتم اغلاق نموذج(Main) بعد دقيقة ثم بعدها بدقية ثانية سيتم اغلاق قاعدة البيانات asd.rar

برنامج رهييب بارك الله فيك

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

جزاك الله خيرا.. وجاري التجربة

هل تقصد هذا ؟ https://www.gulf-up.com/do.php?img=322660 Invoices (2).rar

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

جزاك الله خير استاذنا الفاضل سيتم التجربة ان شاء الله

صعب لأنه فيه خواص فى 2003 غير موجودة فى 2010 مثل شريط القوائم مثلا وبعدين حتى لو انت شغال على اصدار 2010 ستظل القاعدة 2003 تعمل بطريقة عادية فما من داعى لتحويلها بالتوفيق

استاذي الكريم صالح تحية طيبة ورمضان كريم عليك ان شاء الله وبعد .. ممكن ترفق لنا نسخة تعمل على اوفيس 2007 لان التي ارفقتها سابقاً اظنها تعمل على اوفيس 2010 .. وارجو ان تكون النسخة مفتوحة اذا امكن كما لي اقتراح بسيط بالنسبة للعنوان .. اعتقد انك لو اضفت عبارة هدية رمضانية في بداية العنوان فستكون اكثر جاذبية للقارئ وحتى لاتكون هذه المشاركة المميزة حالها كحال بعض المشاركات التي يطلب فيها مجموعة اسئلة دفعة واحدة وفي الغالب تسبب نفور القارئ تحياتي

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

هذا مثال على نقل مؤشر الماوس في أي جزء من النموذج Moving mouse pointer anywhere in Ms. access form. Move mouse by vba.rar

امتناني لك استاذي العزيز

أخى الكريم حسام نتيجة جميلة جدا وفكرة اكثر من رائعة وايضا وجدت فكرة للأستاذ @Gamal.Saad ارجوك انظر عليها فكرة احترافية وتناسبنى اكثر وذلك لأنها تعمل على الجدول مباشرة عن طريق Function وبدون الاستعانة بنماذج او ما شابه وبالتالى كلا الفكرتان حلوا المشكلة جزاكم الله عنا خير وتقبلوا فائق احترامى

السلام عليكم اخ عمر اعتذر لانه قد اشتبه علي الامر فلا اعلم هل نفعك التعديل السابق ام لا المهم هذا تعديل على التعديل السابق ارجو ان يكون فيه طلبك asd2.rar

عجيب جدا كل ملفات الموقع تفتح معي الا ملفاتك المرفقة وملفات الأخ elkareee

جرب هذا الشيء محاوله salim.rar

السلام عليكم ورحمة الله كل عام وانتم بخير الاستاذ سليم موضوعاتك مميزة دائما كالعادة لا تحرمنا من ابداعاتك

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

السلام عليكم جرب المرفق التالى وابدي ملاحظاتك listbox_2.rar

أنا أيضا أرحب بفكرة أن الإكسل أفضل البرامج في عمل الكنترول موفقين يارب

انا بالخدمة اخ hh88

وعليكم السلام ورحمة الله وبركاته واهلا بك في منتداك منتدى اوفـــيســــــــــــــــــــــــــنا بسيطة ان شاء الله ... وشكرا لانك وضحت مكان المشكلة بالدقيق وسبب هذا يرجع ل عمل كروب وفرز في التقرير وما عندك حقل لكي يتم الفرز عليها لذلك عملنا 1- حقل جديد في الجدول تابل 2 باسم اي دي ونوعيته ترقيم تلقائي 2- و اضفنا ذلك الحقل الى استعلام اللي هو مصدر التقرير 3- وفي التقرير عملنا فرز حسب حقل اي دي كما مبين في الصورة سببه يرجع لاضافة صورة العدسة في خلفية النموذج القي نظرتا الى النموذج واسم الصورة ما عليك الا ان تحذف الصورة واتفضل اليك قاعدتك تم العمل على كلا من المشاكل تقبل تحياتي شفان ريكاني واعتذر من السيد @Gamal.Saad لا ارى مشاركته الا بعد اضافة ردي cheque.zip

معلش كنت مستعجل شويه لانى كنت نازل على الشغل الطريقة الاولى بالاكواد - تنبيه لو تاريخ استحقاق البداية غير موجود وكذلك لو تاريخ استحقاق النهاية - لو تم ادراج السجلات الجديده يظهر رسالة تفيد بنجاج الادارج وبعدد السجلات - لو لم يتم الادراج يظهر رسالة تفيد بعدم تمام العملية بنجاح طبعا لو تم الضغط على زر الامر اكثر من مره لن تتكرر السجلات وذلك لانى عدلت على الجدولين T2 , T3 انظرى الى المفاتيح التى تم عملها على الحقول وفى الاخر انا عملت القاعدة بالطريقة دى على حسب فهمى وانا فهمى على اد حالى اتمنى على الله ان يكون ده طلب حضرتك ان شاء الله

::: تفضلي ارجو ان اكون فهمت طلبك . بالتوفيق Update_UP.rar

::: تفضل اخي طلبك ..لا تنسى التقييم . Db 32_UP.rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تصفيه ارقام وأسماء مكررة في عمود تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف و الشرح ___________________.rar و مشاركة اخرى بالمعادلات من الفاضل ا / نزار سليمان عيد مرفق الملف و الشرح ________________________.rar و مشاركة اخرى مساعدة لدمج البيانات و تم الحل من الفاضل _ أ / أبو تامر_عمر الحسينى مرفق الملف و الشرح Omar_1.rar و حل اخر من الفاضل ا / أبوعبد الله مرفق الملف و الشرح subtotal.rar و لا تنسونا من صالح الدعاء تحياتى

يمكن تجربة هذا الملف (ماكرو) Tarhil1.rar

السلام عليكم تم معالجة الأمر بمعادلة جديدة ولأجل الفائدة اليكم الملف الملف.rar

عمل رائع بارك الله فيك اخي الغالي ارجو منك مساعدتي لبناء واجهة ادخال لملف اكسل جاهز فقط يحتاج الى اكواد ومعادلات ولاني جديد في عالم الاكسل ارجو منك مساعدتي بهذا الموضوع واكون شاكر لك المجهود الرابط الذي فيه الموضوع والتفاصيل http://www.officena.net/ib/index.php?showtopic=58566

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

بسم الله الرحمن الرحيم بمناسبة حلول العام الهجري الجديد وبعد الاستفادة من : تقويم أم القرى ، ونموذج التقويم ( النتيجة ) وبإشراف من الأستاذ أبو هادي يسرني أن أضع هذا البرنامج لإنشاء وطباعة التقاويم المقارنة بالخيارات التالية : 1 - إنشاء تقويم مقارن من تقويمين حسب اختيار المستخدم ( أم القرى - هجري - ميلادي ) . 2- تحديد الإجازات والمناسبات الخاصة . 3 - تحديد نهاية الأسبوع . 4 - تحديد لغة الطباعة . أرجو أن يستفيد منه الجميع . وأنتظر ملاحظات الرواد عمومًا . حقوق النشر والتوزيع متاحة للجميع ؛ شريطة الإشارة للموضوع هنا ... الحقوق الفكرية محفوظة لمنتديات أوفيسنا . أخوكم أبو سليمان . Calendar.rar