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

أخي ابا جودي ...... أنظر ...... أكوادك ....

برنامج وجدته على النت قبل فترة وهو مفتوح المصدر مضغوط نسختان 2002/ 2016 تمكين الشفت.rar

البناء يتم في بيئة 2003 لأول مرة بعد ذلك تعمل مع جميع الاصدارات سأرفق لك ملف تظهر فيه الاذونات في اوفيس 2007 وما فوق الفكرة انها تعمل في جميع الاصدارات ولكن البناء لأول مرة يحتاج الى بيئة اقل K.accdb

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

طيب اتفضل يا سيدى نسخة واحدة وتعمل على كل القواعد من منتديات اوفيسنا - فتح وإغلاق شفت.mdb

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

تفضل لك ما طلبت كشف استهلاك المواد.xlsx

استاذ عبد اللطيف اسمح لي قمت باجراء تعديل بسيط عند تنفيذ الاقساط بحيث اذا كان القسط منفذ تظهر رسالة ان الاقساط مجدولة ويلغى الامر واذا لم تكن مجدولة يتم التنفيذ اقساط.accdb

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

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

وعليكم السلام ورحمة الله وبركاته تابع الصور واي استفسار لا تترد بعد الانتهاء من التطبيق تجد ملف اسمه أمان في المكان الذي اخترته من الصورة الأخيرة هذا الملف يتم استدعاؤه عن طريق وضع هذا الكود تحت زر امر في مكان خاص بك في أي نموذج DoCmd.RunCommand acCmdWorkgroupAdministrator بعد ذلك تضع الاسم الذي تم عمله به وهنا في الصور Khalf بعد الدخول نستطيع تعديل الاذونات كما نريد الصور تقريبا مرتبة حسب الخطوات 🙂

السلام عليكم ورحمة الله وبركاته 🙂 في الواقع ، عرضت هذا الموضوع في منتدى الفريق العربي للبرمجة سابقا ، ولكني اعرضه هنا ، حتى تعم الفائدة ويستفيد منه الجميع. في بعض الاحيان نعمل برنامج بلغة معينة (العربية مثلاً) ، ثم لاحقا نريد هذا البرنامج لمستعملين بلغة اخرى (الانجليزية او الفرنسية مثلاً) ، مما يضطرنا ان نعمل نسخة اخرى من البرنامج 😞 اضع بين يديكم طريقة عمل برنامج بعدة لغات ، والطريقة هي الاحتفاظ بالمعلومات المطلوبة (ولا اقصد البيانات) في جدول. 1. هذه هي البيانات بلغات 3 ، العربية والانجليزية والفرنسية (والكلمات تم ترجمتها من الانجليزية الى الفرنسية عن طريق Google Translation): الخانات الموجودة بسيطة ومعرفة معناها لا يأخذ وقت ، اما تنسيق الحقل فهو:1. اسم الخط ، 2. حجم الخط ، 3. ثخانة الخط ، 4. منحني ، 5. تحته خط ، 6. لون الخط: 2. النموذج الرئيسي ، به واجهة البرنامج (والتي سنراها على الجهة اليمنى من الشرائح التالية) ، واول نموذج هو لعمل التغييرات على تنسيق الحقل ، وذلك بالنقر المزدوج في الحقل ، فتنفتح لنا نافذة اختيار الخط ، وعندما نطمئن لإختيارنا للخط ، يجب ان نحفظ هذا التنسيق ، وذللك للّغة التي نريدها: 3. اما النتائج المرجوة من البرنامج ، فتظهر لنا في هذا النموذج: باللغة العربية: باللغة الانجليزية: وباللغة الفرنسية: والكود الذي يقوم بجلب الكلمات والتنسيق هو التالي ، ولا يوجد حاجة الى تغيير الكود ، وانما العمل يكون بإضافة الخانات في الجدول: Private Sub Form_Load() On Error GoTo err_Form_Load mySQL = "Select * From tbl_Controls_Properties" mySQL = mySQL & " WHERE Form_Name='" & Me.Name & "'" mySQL = mySQL & " AND Language='" & Forms!frm_Main!Lang & "'" Dim rst As DAO.Recordset Dim x() As String Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst iTwips = 576 '576 twips/cm , 1440 twips/inch For i = 1 To rst.RecordCount Me(rst!ctl_Name).Caption = rst!ctl_Caption Me(rst!ctl_Name).Left = rst!ctl_Left * iTwips If Len(rst!ctl_Style & "") <> 0 Then x = Split(rst!ctl_Style, "|") With Me(rst!ctl_Name) .FontName = x(0) .FontSize = x(1) .FontWeight = x(2) .FontItalic = x(3) .FontUnderline = x(4) .ForeColor = x(5) If rst!Language = "A" Then '0=General '1=Left '2=Center '3=Right '4=Distribute .TextAlign = 3 Else .TextAlign = 1 End If End With End If rst.MoveNext Next i Exit Sub err_Form_Load: If Err.Number = 438 Or Err.Number = 13 Then 'ignor, Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وهذا الكود الذي يفتح لنا msgbox : Public Function aRemark(N) 'call the Arabic Remarks in Table tbl_Controls_Properties aRemark = DLookup("[Remark]", "tbl_Controls_Properties", "[Form_Name]='" & Me.Name & _ "' And [Language]='" & Forms!frm_Main!Lang & _ "' And [Remark_ID] = " & N) End Function هذا البرنامج برنامج بدائي ، والذي يمكن تطويره 🙂 جعفر MultiLanguage2.zip

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

السلام عليكم 🙂 مشاركتي هنا مو معناها اني أؤيد هذا الطريق ، وانما لأنه تم فتح هذا الباب ، فاريد ان اضع بعض نقاط تجربتي فيه 🙂 1. لا تستخدم ملف System.MDW ، وانما اعمل منه نسخة واستعمل النسخة ، 2. احتفظ بنسخة من ملفاتك الـ MDW معك في مكان امين ، لأنك ستحتاج لها اذا فقدت النسخة الاصل ، 3. بما انك تقدر ان يكون عندك اكثر من مجموعة (مجموعة لبرنامج المحاسبة ، ومجموعة لبرنامج الصادر والوارد ، وووو) ، يفضل ان يكون اسم ملف الـ MDW هو نفس اسم برنامجك ، 4. خلي ملف MDW نفس مجلد الجداول BE ، وعليه ، يجب ان تكون كل الاختصارات تشير اليه ، 5. في البرنامج ، علشان تعرف اسم المستخدم ، الامر هو CurrentUser ، 6. يجب ان تفتح البرنامج من المختصر Shortcut من على سطح المكتب (رجاء متابعة النقطة تحت) ، وتعمل مختصر لكل مستخدم ، 7. اذا تم فتح البرنامج بدون المختصر (او اذا لم يوجد ملف MDW) ، فإسم المستخدم سيكون Admin ، وهذه كارثة ، لذلك يجب ان تحذف اسم Admin من قائمة المستخدمين في ملف MDW ، 8. في اول سطر ، عند فتح قاعدة البيانات ، يجب ان تغلق البرنامج اذا كان المستخدم هو Admin : if currentuser= "Admin" then docmd.quit end if 9. المختصر على سطح المكتب هو كما اشار اليه اخي ابا جودي ، 10. يمكن إضافة اسم المستخدم في المختصر (بدل ان يختار اسمه عند فتح البرنامج) : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName 11. يمكن إضافة اسم المستخدم وكلمة السر في المختصر (بدل ان يختار اسمه عند فتح البرنامج ، وادخال كلمة السر) ، ولكن حذاري ، فقد يعرفها المخربون : "C:\Program Files\Microsoft Office\Office\msaccess.exe" /wrkgrp "\\TT\WorkgroupFile.mdw" "\\TT\Database.mdb" /user UserName /pwd Password جعفر

اتفضل http://www.boosla.com/download.php?f=programming_with_OOP.pdf

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

وإليك الحل ربما هناك من يستفيد منه ولكن ليس بدالة DSUM الحل عن طريق ماكرو والله ولي التوفيق sub_prev.accdb

السلام عليكم اولا كل الشكـر والتقدير لمن تفضل وتكرم بالمرور والتجربة اما استاذى العزيز وأخى الحبيب الاستاذ @kanory لم ادخل سباق او تحدى انه لن يستطيع احد جلب الاكواد او فتح القاعدة كلنا نعلم تمام العلم انه لايوجد حماية مطلقة فقط قدمت افكار لمنع النسخ ليس الا اخى الحبيب واستاذى الفاضل استاذ @عبد اللطيف سلوم دعنا نفكك المرفق اولا الماكرو autoexec اذا وضعت باى قاعدة ماكرو بهذا الاسم هو اول ما يتعامل معه الاكسس لينفذ الاكواد بداخلة وفى مررفقنا هذا يحتوى اولا على ap_DisableShift() هذا السطر يستدعى كود لايقاف عمل زر الشيفت الموديول الذى يحتوى على هذه الاكواد باسم UsysmodShift السطر الثانى داخل الماكرو StartForm() هذا السطر يستدعى الكود الخاص باخفاء اطار الاكسس هذا الكود موجود داخل موديول باسم UsysmodHideAccessFream وأخيرا بعد ايقاف الشيفت وبعد اخفاء اطار اكسس فتح النموذج UsysfrmSplash فى هذا النموذج تم وضع كود عند الفتح ليمنع المستخدم من تغيير اسم القاعدة If CurrentProject.Name = "DontCopyDB.mde" And Len(CurrentProject.Name) = 14 Then Else MyNo = " - : 0123456789" MyMesg "يجب عدم تغيير إسم البرنامج لتكون قادر على تشغيله" & vbCrLf _ & "لذلك سوف يتم إغلاق البرنامج حتى يتم تصحيح الإسم أو يجب عليك الإتصال بمصمم البرنامج..", vbOKOnly, "للإتصال بالمبرمج " & MyNo DoCmd.Quit End If وهنا قمت بتغيير الامتداد فقط للتمويه من mdb الى mde وعند عداد الوقت استخدمت هذا الكود Call MacAddressDon وهذاا يقوم بالنداء على كود داهل موديول باسم UsysmodGetMacAddress وهذا الكود المستهدم بداخله Public Function getMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant 'if no computer name is passed then use the name of the computer running the code. If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") 'Win32_ComputerSystem For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then 'Debug.Print oMac.MacAddress getMacAddress = oMac.MacAddress End If Next End Function لكل جهاز بصمة مثل اصابع ايداينا والتى لا تتشابه تستخدمها الحكومات للوصول الى اجهزة الهاكرز MacAddress ان اردت القراءة اكثر عنها https://ar.wikipedia.org/wiki/عنوان_التحكم_بالنفاذ_للوسط وحتى لا اطيل عليك فقط قمت بعمل حيلة صغيرة قمت بعمل موديول باسم UsysmodDon'tCopy من خلاله انشئ جدولا مخفيا عند الفتح للقاعدة لاول مرة يتم حفظ الماك ادرسس به مما يستوجب انك لابد ان تذهب للعميل وتعطه النسخة بعد فتحها للمرة الاولى من خلالك انت وليس قبل فتحها فاذا تم تسجيل الماك ادرس تبع جهازه انتهى الموضوع لن يتم نسخها لاننى وضعت اكواد تقوم بمقارنة الماك ادرس الحقيقى مع الموجود داخل الجدول كلها حيل يا عزيزى مجرد حيل وليست تأمين بمعنى الكلمة وكل يبدع بافكاره طبعا الماك ادرس لا يتغير بعد الفورمات ولن يفرق معه مكان وجود القاعدة طالما انها على نفس الحاوسوب تعمل اما اذا رزقكم الله باحد المحترفين مثل الاستاذ @kanory فكل ما سبق ينتهى بغضون ثوان قليلة لذا ان اعجبتك افكارى وقمت بتطبيقها لابد ان تكتب على القاعدة عند الفتح الاستاذ @kanory ممنوع الاقتراب والاستخدام من فضلك اغلق القاعدة

التعديلات التى تمت والاضافات - زر امر واحد لتسجيل الدخول / تسجيل الخروج - تحويل الاوبشن جروب الخاص بالدور الى كمبوبوكس يضفى مرونة أكثر اذا ذادت الادوار -اضاقة كمبوبوكس برقم الغرفة الان يتم من داخل النموذج الفرز والتصفية بناء على الطابق - رقم الغرفة -بأخر نموذج التسكين عدد الاسرة اجمالا وتفصيلا حسب التصفية والفرز -اخفاء اطار اكسس -توسيط النماذج -تصغير القاعدة بجوار الساعة وتغيير الايقونة كما تريد -فى حالة عدم وجود الايقونة المخصصة يتم استبدالها بايقونة الاكسس دون التقييد بنسخة الاكسس ومساره - منع الدخول الى محرر الأكواد من خلال ايقاف عمل الضغط على الأزرار Alt + F11 من لوحة المفاتيح الزبدة فى حالة فتح القاعدة عند عدم اضافة الاسرة يجبر المستخدم على اضافة الاسرة تلقائيا هى دى الزبدة لا لا لا لا لا لسة الزبدة جاية نموذج اضافة الأسرة بسهولة ومرونة بتحديد الطابق اولا قم تحديد رقم الغرفة ثم كتابة عدد الأسرة إجمالا المفترض تواجدها لهذه الغرفة ويتم لو اردت وضع 99 سرير بالغرفة دفعة واحدة الزتونه ان كانت الغرفة تحتوى على 5 اسرة واريد ان يكون مجموع الاسرة 15 يعنى نريد اضافة عدد 10 من الاسرة نكتب العدد الاجمالى 15 ههههههه نعم يضيف الفارق من الاسرة بين العدد الاجمالى الحالى والعدد الاجمالى الجديد فقط دون ادنى مشكلة مع الحفاظ على الترقيم بالالية التى وضعها معلمى الجليل واستاذى القدير و والدى الجبيب الاستاذ @ابوخليل وبهذا تم تلبية طلب اخى وحبيبى الدكتور @حلبي بعمل شاشة لاضافة اجمالى الاسرة دفعة واحدة وما سبق تعديله واضافته هو هدية منى تعديل المرفق dbskn(3).zip

احسنت أستاذ عبد اللطيف بارك الله فيك ورحم الله والديك

السلام عليكم تفضل الملف المرفق وفيه ما تريد... نسخة من المصنف01.xlsx

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

تفضل اقساط.mdb الله يعطيك العافية وجزاك الله خيرا

رائع أستاذ مجدى بارك الله فيك وزادك الله من فضله

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

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

السلام عليكم-ما قمت بعمله ليس مضبوط حسابيا فالمعادلة تعمل بشكل دقيق حيث ان : الشيكات المستحقة بعد 5 أيام اى يوم 13/07/2019 ,لا يوجد شيكات لهذا التاريخ والشيكات المستحقة بعد 10 أيام اى يوم 18/07/2019 ,لا يوجد شيكات لهذا التاريخ أما الشيكات المستحقة بعد 11 يوم فأكثر فهم ثلاثة شيكات وقيمة الشيكات كما أخبرتك في المعادلة سابقا 991778 عليك التأكد بنفسك ومراجعة ما تم عمله سابقا

حبيبي الوزير لله درك .. وينك يابو ابراهيم

استاذ عبد اللطيف في نموذج 3 عند عداد الوقت تجد الكود واعتمد على مربعات خانة من 1 الى 100 وتكون لكل خانة حالتان الاولى اخفاء والاخرى اظهار

تم الاعلان عنه في وحدة نمطية عامة من اجل يكون معروف في جميع زوايا اكسس .. حلوة زوايا هذه في الاستعلامات والماكروات والنماذج والتقارير وحتى في الوحدات النمطية العامة نفسها وهنا في برنامجنا يتم التعامل معه من داخل جميع النماذج طبعا ستكون قيمته الافتراضية صفر لان نوعه بايت في نموذج frmain : اخبرناه انه اذا تم النقر على حقل الاسم : اذا كان خالي اجعل قيمة المتغير 1 والا اجعلها 2 وعملناه لعيون النموذج frmchang لاننا بحاجة لفتح النموذج في خاصيتين مختلفتين : واحدة نفتحه لاضافة ساكن جديد والثانية لتسجيل خروج ساكن وطبعا تختلف خصائص النموذج حسب هذا النوع من الفتح حيث اخفينا بعض الحقول في احدها وغيرنا في الاخرى حسب الحاجة ولو فتحت النموذج frmchang على التصميم وفي حدث عند التحميل وجدت ان فيه شروط على الحقول تتحقق حسب قيمة هذا المتغير ايضا فيه شرط عند الفتح هو نفسه الموجود عند الغلق في نموذج frmain وهذا الشرط من اجل نمنع فتح النموذج frmchang الا من خلال النموذج frmain التفسير : جعلنا قيمته صفر عند غلق النموذج frmain ، فلما يجي احد يفتح frmchang لوحده يمتنع لاننا وضعنا شرطا عند الفتح : اذا كان صفر اغلق

أحسنت استاذ سليم معادلة ممتازة

تفضل تم الغاء الحماية نهائيا للتمكن من وضع كود التايمر وكود الحروف الكبيرة-واعتقد ايضا ان ملفك به فيروس timer.xlsm

وعليكم السلام ...... تفضل مستحقات.xlsx

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

السلام عليكم أخي الكريم @ابا جودى لقد استفدت من دالتك كثيراً في مشروعي الأخير - لقد جربتها اليوم بالذات و أعطت النتيجة المطلوبة- ، فقد اختصرت علي وقتاً وجهداً كبيراً لعمل شيء يشابهها، بعد أن حصلت على نصيحة باستخدام كود الرقم و الحرف من أحد المواقع دون أن أحصل على الدالة النهائية. لقد دعوت لك من كل قلبي لما كان من عملك من تيسير و حل للمشكلة في المشروع. جزاك الله كل خير و جعله في ميزان حسناتك.

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

وعليكم السلام-تفضل فرز حسب الحالة - نقص صف.xls

ربنا يزيدك علما وفضلا استاذي ابو خليل

ما شاء الله تبارك الله إضافات جميلة من مبرمج محترف سلمت يمناك ,,, ألا حظ عدم وجود نموذج خاص بإضافة موظف والاكتفاء بالجدول ، هل يرجع ذلك إلى رغبة المستفيد من البرنامج بإضافة الحقول المناسبة له !!

عطلة سعيدة ان شاء الله استاذى الجليل ومعلمى القدير

الله يبارك فيك استاذ عبداللطيف سلوم جزاك الله خيرا

وعليكم السلام 🙂 جوابك قد تحصل عليه في احد هذه الروابط . . . جعفر

ما في الا نموذجين فقط

استعمل هذه المعادلة للتنظيف من الفراغات الزائدة في الخلية F2 مثلاً واسحبها نزولاً =SUBSTITUTE(A2,32,"")

معادلة ممتازة استاذى الكريم بارك الله فيك

أحسنت أستاذ مجدى بارك الله فيك

وعليكم السلام تفضل لك ما طلبت بيان.xlsm

وعليكم السلام كان عليك من البداية استخدام خاصية البحث في المنتدى تفضل https://www.officena.net/ib/topic/50240-برنامج-حضانة/?tab=comments#comment-307830 https://www.officena.net/ib/files/file/259-سجل-قيد-التلاميذ-لجميع-المراحل-رياض-أطفال-ابتدائي-إعدادي/ https://www.officena.net/ib/topic/80536-برنامج-تسجيل-بيانات-لروضة-أطفال-الاصدار-الثاني/

تفضل https://www.officena.net/ib/topic/42985-برنامج-الحسابات-العامة-والضرائب-excel-vba/?tab=comments#comment-247636

السادة الافاضل الكرام السلام عليكم ورحمة الله وبركاته ،،، من خلال تجربتي البسيطة فى هذا الموضوع توصلت الى الاتـــــــــــــي :- 1 - الاساس هو عمل الجداول فى السيكوال وعمل العلاقات والربط وكل شيء داخل السيكوال اى ان انك لا تحتاج الي ربط الجداول فى الاكسس لانها مربوطة بالفعل فى قاعدة السيكوال 2 - عمل Link لهذة الجداول الموجودة بالسيكوال عن طريق ODBC . حتي تستطيع ادخال البيانات بها عن طريق الاكسس اى ان الاكسس عبارة عن interface او واجهة لادخال البيانات الى جداول السيكوال كنت حابب رفع فيديو يشرح طريقة الربط ولكن الملف كبير شوية عموما ممكن البحث عنه علي النت بعنوان How to Configure ODBC to Access a Microsoft SQL Server - YouTube بالتوفيق ,,,