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

بارك الله فيك أخي @خالد عبد الغفار ولك بمثل ما دعوة .... جزاك الله خيرا .... بالتوفيق

ربما هذا مطلوبك ...... K_1.rar

ربما كان المطلوب Select_Month.xls

وعليكم السلام 🙂 في الواقع في امور ما يحتاج ان نعطيها اكثر من حجمها ، وإلا ، فالإحتمالات لا تنتهي !! هذا الجدول مثله مثل اي جدول ، Users مثلا ، اذا تم حذف هذا الجدول فماذا سيحصل للبرنامج !! هناك طريقتين بسيطتين بأتون على بالي الآن: 1. اول ما تفتح البرنامج ، تأكد عن وجود الجدول (الجداول الاساسية) ، اذا ما موجود ، اخرج من البرنامج بعد اعطاء رسالة بعدم وجود الجدول الفلاني الذي يعتمد عليه البرنامج ، بس المستخدم المسكين شو ممكنه يعمل!! 2. وبما انني اعرف انك لن تقبل بالطريقة اعلاه ، فاليك طريقة ثانية ، وهي ان تجعل هذا الجدول كما هو ، وتستعمله كل مكان في البرنامج ، وتعمل منه نسخة اضافية يبدأ اسمه Msys حتى يكون مخفي ، ولما تفتح قاعدة البيانات ، تتأكد من وجود الجدول كما هو ، وإلا ، فتقوم بنسخه من الجدول الاحتياط 🙂 طبعا بدلا عن جدول الاحتياط ، تقدر يكون عندك ملف txt تحتفظ به في البرنامج بطريقة Blob او كمرفق ، ولما يفتح البرنامج ، تستخدمه للتأكد من بيانات الجدول ، او وجود الجدول. قد تكون هناك طرق اخرى ، ولكني دائما اميل الى البساطة 🙂 جعفر

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

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

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

السلام عليكم لدى قاعدة بيانات اود فى حالة تكرار البيانات فى نفس الخلية فى النموذج او فى نفس العمود فى الجدول ان يظهر ليى اشعار او لون لكى اعلم بتكرار هذا السجل مرة اخرى المراد التطبيق علية فى المرفق هو خلية po فى FORM ( MASTTR FORM ) , عمود po فى جدول ( Mastr Table ) ،،،،،ولكم جزيل الشكر المبيعات.rar

اعرض الملف قاعدة دكتور قاعدة بيانات لدكتور ☘السادة الأفاضل☘ يسعدنا وجودكم معنا في جروب "هيا بنا نتعلم" على تليجرام يضم الجروب اخصائيى التطوير التكنولوجي على مستوى الجمهورية والمدربين و المهتمين ويقدم مادة تعليمية متكاملة من الشرح والفيديوهات التعليمية والتدريبات فى شتى المجالات اليكم رابط الجروب 👍🏻انضم قبل ان يكتمل العدد👍🏻 https://t.me/technologyeduM صاحب الملف محمد جابر محمد عبدالرحيم تمت الاضافه 23 يول, 2019 الاقسام قسم الإكسيل

اعرض الملف حساب الاقدمية من تاريخ الدرجة فى تاريخ معين حساب الاقدمية من تاريخ الدرجة فى تاريخ معين صاحب الملف محمد جابر محمد عبدالرحيم تمت الاضافه 23 يول, 2019 الاقسام قسم الإكسيل

اعرض الملف حساب السن اول اكتوبر محمد جابر - حساب السن اول اكتوبر وتاريخ الميلاد - الترتيب من الاكبر الى الاصغر للصف الاول ابتدائي او حضانة ☘السادة الأفاضل☘ يسعدنا وجودكم معنا في جروب "هيا بنا نتعلم" على تليجرام يضم الجروب اخصائيى التطوير التكنولوجي على مستوى الجمهورية والمدربين و المهتمين ويقدم مادة تعليمية متكاملة من الشرح والفيديوهات التعليمية والتدريبات فى شتى المجالات اليكم رابط الجروب 👍🏻انضم قبل ان يكتمل العدد👍🏻 https://t.me/technologyeduM صاحب الملف محمد جابر محمد عبدالرحيم تمت الاضافه 23 يول, 2019 الاقسام قسم الإكسيل  

اعرض الملف برنامج شئون عاملين مدرسة برنامج شئون عاملين مدرسة ☘السادة الأفاضل☘ يسعدنا وجودكم معنا في جروب "هيا بنا نتعلم" على تليجرام يضم الجروب اخصائيى التطوير التكنولوجي على مستوى الجمهورية والمدربين و المهتمين ويقدم مادة تعليمية متكاملة من الشرح والفيديوهات التعليمية والتدريبات فى شتى المجالات اليكم رابط الجروب 👍🏻انضم قبل ان يكتمل العدد👍🏻 https://t.me/technologyeduM ملحوظة: ♦شروحاتنا الاساسية يتم نشرها على احد منصات التواصل الاجتماعي الهامه وهو (تليجرام) على الرابط التالي : https://t.me/technologyeduM ♦ال ماعندوش التطبيق على موبايله او الكمبيوتر اليكم رابط التطبيق للتليفون: https://play.google.com/store/apps/details?id=org.telegram.messenger&hl=ar رابط التطبيق للكمبيوتر: https://web.telegram.org 👍🏻👍🏻👍🏻👍🏻👍🏻 صاحب الملف محمد جابر محمد عبدالرحيم تمت الاضافه 24 يول, 2019 الاقسام قسم الإكسيل

أخي الكريم .... أولا : ما الهدف من هذه الطريقة .... يمكن لو عرفنا نجد لك طريقة أخرى ثانيا : يمكن عمل ذلك عن طريق استعلام

أحسنت استاذ سليم عمل ممتاز جعله الله فى ميزان حسناتك

السلام عليكم احيانا يكون عندنا مثلا مربع نص على النموذج تتغير القيم بداخله نحتاج احيانا ان نمرر هذه القيمة الى الرسالة احيانا حسب الحاجه كيف السبيل الى ذلك فى طريقة جلب الرسائل من سجل بجدول الرسائل من داخل V .01.mdb

اصل الموضوع من هنا . اخي امير ، يجب ان تعطينا معلومات علشان نقدر نرد عليك بالطريقة الصحيحة !! 1. شو اسم النموذج الرئيسي ، 2. شم اسم حقل البحث ، 3. شو اسم النموذج الفرعي ، 4. شو مصدر بيانات النموذج الفرعي ، 5. شو المعيار اللي عندك للبحث ، 6. شو اسم الحقل اللي يقوم عليه البحث؟ جعفر

نفس الطريقة اعلاه ، ولكن بتغيير في الوحدة النمطية التالية: Public Function MyMesg(Mesgtxt As String, _ Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional ByVal Title As String = "Judy", _ Optional ByVal HelpFile As Variant, _ Optional ByVal Context As Variant, _ Optional ByVal AdditionalInfo As String) As VbMsgBoxResult Mesgtxt = Replace(Mesgtxt, "& Strxx", AdditionalInfo) MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) End Function حعفر 1102.الرسائل من داخل V .01.mdb.zip

المرفق فيه وحدة نمطية اخرى اسمها Update_Each تعمل للحقل الذي نغير فيه القيمة فقط 🙂 جعفر

هممم ، يعني في اعضاء آخرين ، غير صاحب الموضوع ، يقراؤن اجاباتي 🙂 جعفر

تفضل الشرح 🙂 . . . جعفر 1101.تجربة تقرير.accdb.zip

v[hx jvtr hglvtr hgwpdp ، يعني رجاء ترفق الملف الصحيح 🙂 جعفر

السلام عليكم و رحمة الله و بركاته اخي الكريم ترتيب تاريخ صحيح كما قال الاستاذ kha9009lid حاليا الا اذا كتبت تاريخ اقدم مما تم كتابته مسبقا مثلا في سجل الاول كتبت 12/12/2019 و في سجل الثاني كتبت 12/11/2018 لهذا جعلت مصدر النموذج منشئ استعلام و بنسبة بحث برقم تليفون اليك التعديل اذا كتبت اسم او جزء من الاسم يظهر نتائج على حسب الاسم و اذا كتبت رقم تليفون في نفس خانة يرجع نتايج على حسب رقم تلفون بتوفيق Database18.rar

جزانا الله واياكم خير الجزاء ولكن اخى الحبيب هذا فضل الله ليس لى من الامر اى شئ فالعلم كله لله تعالى سبجانك لا علم لنا الا ما علمتنا انك انت العليم الحكيم

جزاك الله خيراً أستاذى @ابا جودى تم الوصول الى الحل بفضلك وكما قلت أن الجهاز عندما يكون مغلق فأنه يهنج بعض الوقت ( فتم دمج التأكد من الاى بى فى زرار و احد اذا يعمل يتم الامر و اذا كان مغلق تأتى رسالة الجهاز غير متصل ) Ip.rar

بسيطة ولا تزعل اتفضل 'هذا الكود فى وحدة نمطيه Public Function FileExist(strpath As String) As Boolean On Error GoTo ErrHandler If Dir(strpath) <> Empty Then FileExist = True Else FileExist = False ErrHandler: If Err Then Exit Function End Function '-------------------------------- 'هذا الكود فى النموذج Private Function Go() هنا كود الحدث الذى تريده End Function '--------------------------------- 'هذا الكود على حدث النقر على زر امر If FileExist("\\192.168.1.2\Pro\IP.mdb") Then Call Go Else MsgBox "sorry, update not available now"

أنا لا أرى ان هذه أصلا مشكلة

'هذا الكود فى وحدة نمطيه Public Function FileExist(strpath As String) As Boolean If Dir(strpath) <> Empty Then FileExist = True Else FileExist = False End Function '-------------------------------- 'هذا الكود فى النموذج Private Function Go() هنا كود الحدث الذى تريده End Function '--------------------------------- 'هذا الكود على حدث النقر على زر امر If FileExist("\\192.168.1.2\Pro\IP.mdb") Then Call Go

ليس هناك حل سوى هذا

جرب المرفق 5.accdb

جرب المرفق Database18.rar

وعليكم السلام-تفضل تم الغاء هذا السطر من الأكواد Application.ScreenUpdating = True صندوق� 2019.xlsm

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

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

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

الملف بالمرفق BuySal-20190723T053343Z-001.zip

في هذا الملف يوجد ما طلبته بالضبط حول الرقام 2.4841 >>>>> 2.49 25.36457 >>>>> 25.37 87.324 >>>>> 87.33 24.6359 >>>>> 24.64 85.5635 >>>>> 58.56 المعادلة =ROUND(A1,2)+IF(MID(ROUND(A1,2),FIND(".",A1)+1,2)+0<50,0.01,0) CREASY_ROUND.xlsx

معاي شغاله مافيها مشاكله تاكد من من اعدادات الجهاز من لوحة التحكم - التاريخ والمنطقه SA.bmp

بصراحة انا لم افهم ماذا تريد بالضبط ارجو وضع صورة بالنتائج المتوقعة(يدوياً) ولا تأخذ ارقاماً بالآلاف (فقط ارقام بسيطة من 1 حتى 20) حتى نعرف مسار المعادلات

استبدل الفاصلة " ," بفاصلة منقوطة "; " (حسب اعدادات الجهاز عندك) لتبدو المعادلة بهذا الشكل =IF(C9="";"";SUM($C$9:$C9)-SUM($D$9:$D9))

استاذ ابراهيم تكفي هذه المعادلة =COUNTIF($C$5:C5,C5)+VLOOKUP(C5,{"اعدادي",19100;"ثانوي",19200},2,0)-1 (مع مراعاة الفاصلة والفاصلة المنقوطة)

استعمل هذا المعادلة =IF(C9="","",SUM($C$9:$C9)-SUM($D$9:$D9))

تفضل كود فتح نموذج تعديل كلمة السر On Error GoTo Err_Orders1_Click Dim x As Integer x = DLookup("SN", "users_T", "deCode([UName],'User')='" & Trim(MyUser.USERNAME) & "'") DoCmd.OpenForm "UsersChangePassword_F", , , , , acDialog, x Exit_Orders1_Click: Exit Sub Err_Orders1_Click: MsgBox Err.Description Resume Exit_Orders1_Click وهذا الكود لتعديل كلمة السر بعد التأكد من المطابقة If IsNull([paas]) Then MsgBox "أدخل كلمة المرور hgshfrm", 48, "نقص بالإدخال" Exit Sub ElseIf Me.paas <> Me.Pww Then MsgBox "كلمة المرور السابقة غير مطابقة", 48, "خطأ بالادخال" Exit Sub ElseIf IsNull([PW]) Or IsNull([CPW]) Or [PW] <> [CPW] Then MsgBox "كلمة المرور الجديدة غير متطابقة" + vbCr + "أو أنها فارغة" + vbCr + "الرجاء إعادة كتابة كلمة المرور", vbOKOnly + vbMsgBoxRight + vbExclamation, "خطأ بالإدخال" Exit Sub ElseIf [CPW] = [Pww] Then MsgBox "كلمة المرور الجديدة" + vbCr + "هي نفسها كلمة المرور القديمة " + vbCr + "أدخل كلمة مرور مختلفة ", 48, "خطأ بالادخال" Exit Sub ElseIf Len([CPW]) < 4 Then MsgBox "يجب أن تتكون كلمة المرور " + vbCr + "من أربعة ارقام او حروف على الاقل", 48, "ادخـال خـاطـئ !" Exit Sub Else DoCmd.RunSQL "UPDATE Users_T SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' WHERE ( SN=" & Str(UNUM) & ");" MsgBox "تم تغيير كلمة المرور بنجاح", vbInformation, "تنفيذ" DoCmd.Close End If تم عمل مربعي نص غير منظمين إليك المرفق ::بالتوفيق:: Kaser906 صلاحيات المستخدمين.rar

وعليكم السلام 🙂 بما انك لم تعطنا معلومات كافية ، فاليك الطريقة ، وانت قم بالباقي: 1. نفترض ان اسم النموذج الذي فيه "معلومات الكتاب" اسمه frm_Letter 2. في النموذج الفرعي الذي في الصورة اعلاه ، اعمل حدث على "النقر المزدوج" على الحقل "رقم" (اول حقل على يدك اليمين في الصورة) ، والحدث يكون لفتح النموذج frm_Letter بالرقم الذي نقرت عليه: docmd.OpenForm "frm_Letter",,,"[رقم]=" & me.رقم رجاء تغيير اسماء الكائنات في الكود لتتطابق مع اسماء الكائنات في برنامجك 🙂 جعفر

ديه كده مشكلتك انت فلا احد يستطيع مساعدتك بهذه الطريقة فلابد من رفع الملف

الملف مع المعادلة celing_fuction.xls

لنفرض ان الرقم عندك في الخلية A1 اكتب هذه المعادلة (للتقريب الى الاعلى) =IF(ISNUMBER(A1),CEILING(A1,0.05),"") و هذه المعادلة (للتقريب للاسفل) =IF(ISNUMBER(A1),FLOOR(A1,0.05),"")

يمكنك تحميل هذا البرنامج -هيساعدك في فك كلمة السر ان شاء الله Passware Passware Kit Forensic.v13.5.8557.x32-BRD تفضل هذا هو رابط البرنامج http://www.mediafire.com/file/dra8c3as8fb2dnf/Passware_Passware_Kit_Forensic.v13.5.8557.x32-BRD.rar/file

السلام عليكم 🙂 جعفر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم أحبتي في الله اليوم هديتي لإدارة ومشرفي وأعضاء وزوار منتدانا الرائع هدية كبيرة الحجم قليلا (فأنا معروف بسلسلة ما خف وزنه وغلا ثمنه "الماس" ) برنامج أوفيس 365 وهو تحديث أوفيس 2016 بأحدث إصدار 16.0.8431.2110 بصيغة img وهي مثل iso تحميل مباشر من موقع ميكروسوفت (يعني أصلية ومش ملعوب فيها) ويوجد روابط اللغتين اللغة العربية O365ProPlusRetail_ar.img واللغة الإنجليزية O365ProPlusRetail_en.img حجم الاسطوانة الوهمية img حوالي 2.5 جيجابايت والآن مع روابط التحميل اللغة الإنجليزية http://swiftation.com/9612849/mso365en2018 اللغة العربية http://swiftation.com/9612849/mso365ar2018 وفي الأخير لو بخل بهذه المعلومة غيرك ما وصلت إليك فلا تبخل على غيرك بما عرفت وشارك هذه الصفحة قدر استطاعتك فلا خير في كاتم علم ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة

اخوانى الاعزاء مشرفين واعضاء المنتدى اقدم ايلكم برنامج الاقساط البارع من تصميمى يعمل فى 12 شركه لتقسيط الاجهزه الكهريائيه انه برنامج بسيط وسهل وانا اليوم رفعت نسخه تجربيه من البرنامج وارجو ان تعجبكم البرنامج فى المرفقات user : admin password : 1234 وشكراا