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

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

ربما هذا مطلوبك ...... 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 الاقسام قسم الإكسيل

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

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

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

السلام عليكم احيانا يكون عندنا مثلا مربع نص على النموذج تتغير القيم بداخله نحتاج احيانا ان نمرر هذه القيمة الى الرسالة احيانا حسب الحاجه كيف السبيل الى ذلك فى طريقة جلب الرسائل من سجل بجدول الرسائل من داخل 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 ، يعني رجاء ترفق الملف الصحيح 🙂 جعفر

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

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

جرب المرفق 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

عندي شغالة 100% ولم تظهر أي رسالة خطأ

بصراحة انا لم افهم ماذا تريد بالضبط ارجو وضع صورة بالنتائج المتوقعة(يدوياً) ولا تأخذ ارقاماً بالآلاف (فقط ارقام بسيطة من 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.رقم رجاء تغيير اسماء الكائنات في الكود لتتطابق مع اسماء الكائنات في برنامجك 🙂 جعفر

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

مثال اخر عن تنسيقات الخلايا في الملف المرفق 1- النطاق الأصفر يحتوي على بيانات (حدد اي خلية منه وانظر الى قيمتها في Formula bar) تنسيقه مخصص "Custom" كل خلية من خلاياه اذا كانت رقماً موجباً تكتب بشكل "OK" اذا كانت رقماً سالباً تكتب بشكل "Negative" اذا كانت صفراً تكتب بشكل "Zero" اذا كانت نصاً تكتب بشكل "Text" 2-النطاق الأخضر يقوم بضرب النطاق الأصفر بـــ 10 تنسيق الأخضر عادي "General" قم بتغيير القيم في النطاق الأصفر و انظر الى النتيجة كل هذا يحدث لان المعادلة تنظر الى محتوى الخلية وليس الى منظرها الخارجي Tansiq.xlsx

صديقي هشام هذه فكرة رائعة لتغيير المنظر الخارجي للخلية فقط وليس قيمتها (المنظر الخارجي 2.67 لكن قيمتها بقيت 2.666666) القيمة الحقيقية يمكن ان تراها (بعد تحديد الخلية) في Formula Bar لتأكيد ذلك اكتب هذه المعادلة في اي مكان و اسحب نزولاً ثم انظر الى النتيجة =D5*1000 2666.666 / 2555.555 وهكذا و ليس 2670 / 2560 (بمعنى اخر اي عملية حسابية على الخلية ،اكسل يعتبرها 2.66666) لان المعادلة تنظر الى محتوى الخلية وليس الى منظرها الخارجي (التنسيبق) هناك طريقة اخرى لتطبيق فكرتك (بيقى ذلك ضمن التنسيق وليس تغيير القيمة)

الملف مع المعادلة 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 وشكراا