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

السلام عليكم 🙂 ابسط انواع التشفير التشفير ، Code : هو تغيير حرف مكان حرف آخر ، يعني بدل تفاح ، ممكن يصير ثقبخ ، كيف : رجاء النظر في الجدول التالي: الحرف الاصل ورقمه : الحرف البديل ورقمه ت 1578 : ث 1579 ف 1601 : ق 1602 ا 1575 : ب 1576 ح 1581 : خ 1582 تفاح : ثقبح نلاحظ اننا اضفنا الرقم 1 (مفتاح الشفرة) الى قيمة الحرف الاصل ، لنحصل على قيمة الحرف البديل . في هذه الحالة لو غيرنا مفتاح الشفرة الى رقم آخر ، او جعلنا مفتاح الشفرة عبارة عن معادلة ، لأصبحت الشفرة اصعب 🙂 فك الشفرة ، DeCode : هو حذف مفتاح الشفرة من رقم الحرف الجديد ، حتى يرجع لقيمته السابق 🙂 فإذن قوة التشفير له علاقة بمفتاح الشفرة 🙂 لهذا السبب ، لا ترسل مفتاح الشفرة مع الرسالة 🙂 . ارفق لك هذا المثال . وهذه الوحدة النمطية التي تقوم بالعمل Public Function Code_it_T(txt As String, iKey As Integer) As String Dim i, L As Integer L = Len(txt) For i = 1 To L Code_it_T = Code_it_T & ChrW(AscW(Mid(txt, i, 1)) + iKey) Next i End Function Public Function DeCode_it_T(txt As String, iKey As Integer) As String Dim i, L As Integer L = Len(txt) For i = 1 To L DeCode_it_T = DeCode_it_T & ChrW(AscW(Mid(txt, i, 1)) - iKey) Next i End Function . . ويمكنك إضافة هذا المثال لمكتبتك ايضا 🙂 جعفر 1254.Code_Decode.mdb.zip

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

تم التعديل 1- اختر اسم الشيت المطلوبة من القائمة المنسدلة (F2 ) 2 -القائمة المنسدلة تتحدّث كلما أضفت شيت جديد او حذفت شيت Abou_Yousef_1.xlsm

شاهد هذا الفيديو https://www.youtube.com/watch?v=FzxsNLq3VCA&ab_channel=pcshastra

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

السلام عليكم مشاركه مع اخى واستاذى @kanory جزاه الله خيرا 💐 لعله يكون ما تريد Private Sub Form_Current() If Not Me.NewRecord Then Me.UserName = Me.UserName.OldValue Else Me.UserName = [Forms]![UserLogin]![n1] End If End Sub بالتوفيق 233.accdb

السلام عليكم تم تعديل 1- في الكود اسم الورقة sheet2 تم تعديله الى ورقة2 2- تم استبدال خانة القيد بالديانة لدقة الاحصائيات وتم استبدال كلمة مسلم بمسلمة ومسيحي بمسيحية في المعادلة الموجودة في f4 و f5 3- تم تعديل نطاق النسخ في الورقة , 4- تم ربط زر المعاينة بالكود وكذلك زر مسح وللعلم الكود يقو بهذين الامرين فلا داعي لاستخدامهما 5- ليس بمقدوري شرح الكود فهناك اشياء بالكود لا اعلمها 6- الكود بطئ جدا ولا اعلم السبب ولكنه يقوم بالامر المطلوب كنترول d2021.xlsb

في الملف هناك اقتباس لبعض المعادلات من مشاركات سابقة بهذا المنتدى ولم تذكر صاحب المعادلات مما اجده مخالفاً لأنظمة المنتدى وتعدياً على الملكية الفكرية 1- الملف عندك متشابك بشكل لا يمكن فهمه بسهوله هذا بالاضافة الى كثرة الالوان والتنسيقات التي تجعل ممن يريد المساعدة ينفر مما يراه 2- تم وضع هذا الملف (نموذج لما تريد) يمكنك نسخ الماكرو و التعدبل عليه كما تراه مناسباً Max_by_sum.xlsm

وعليكم السلام اتفضل اخى @ازهر عبد العزيز مثال من مكتبتى لعلك تنتفع به لاخى اكسير جزاه الله خيرا وجعله الله فى موازين حسناته وده موضوع لام عهود جزاها الله خيرا للاطلاع http://arabteam2000-forum.com/index.php?/topic/212835-التشفير-وفك-التشفير-لقواعد-البيانات-أو-اي-ملف-مهما-كانت-صيغته/ بالتوفيق مثال على تشفير النصوص باستخدام أكسس, طريقتين من عدة طرق.rar

حسب طلبك مع وجود شيتات كثيرة

جرب هذا الكود Option Explicit Sub All_uniques() Dim sh As Worksheet Dim F As Worksheet Dim Dic As Object Dim i%, Ro Set F = Sheets("Final") Set Dic = CreateObject("Scripting.Dictionary") For Each sh In Sheets If sh.Name <> F.Name Then Ro = sh.Cells(Rows.Count, 3).End(3).Row For i = 2 To Ro If IsNumeric(sh.Cells(i, 3)) Then Dic(sh.Cells(i, 3).Value) = vbNullString End If Next i End If Next sh F.Range("B:B").ClearContents If Dic.Count Then F.Cells(1, "B") = "All Uniques" F.Cells(2, "B").Resize(Dic.Count) = _ Application.Transpose(Dic.keys) End If Set sh = Nothing: Set F = Nothing Set Dic = Nothing End Sub الملف مرفق ( الصفحة Final ) Abou_Yousef.xlsm

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

وعليكم السلام-والله تعبنا اوى .... فقد نبهنا كثيراً على هذا الأمر , أن لا تنتظر المساعدة من أحد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ... والا ستحذف المشاركة فلا يمكن العمل على التخمين وتجنباً لعدم اهدار واضاعة وقت كل من يطلع على هذه المشاركة دون جدوى أو أهمية!!!!!

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

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

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

ما هذا التناقض في المعطيات: من جهة الخليتين F2 و G2 بالأصل سوف يكون محتواهما إما 1 او فارغة من جهة احرى الخليتين F2 و G2 يوجد بها معادلات ودوال 1- اثناء العمل على ملفك تفحصت الحلايا و لم اجد اي معادلة في كل الصفحة 2 - ما الفائدة من مسح الخلايا تم استعادتها ؟؟؟

حياك الله اخى واستاذى ده نوركم ياغالى بارك الله لنا فيكم وجزاكم الله عنا كل خير 💐

ربما هذا المطلوب .... 233.rar

وعليكم السلام 🙂 تفضل : جعفر

يمكن عمل هذا لكن بيوزر ثاني غير الذي رفعته انت (مع الغلم اني لا أجب ان أعمل على اليورز فورم) 1- لإعادة ترتيب الأعمدة اضغط الزر Reset 2- لمسح TextBoxes والــــ Labels اضغط الزر Cancel 3-لاختيار اي ترتيب للأعمدة املأ الـــ TextBoxes بما تريد ( لا تقبل الا احرف من B الى G ) والــــ Labels تتحدّث اوتوماتيكياً عند الخروج من الـــ TextBoxe بواسطة Enter او Tab أو Arrow 4 - لترحيل البيانات حسب الترتيب الذي اخترته (ليس من الضروروة اختيار كل الاعمدة) اضغط الزر ترحيل يتم نقل فقط الأعمدة المختارة جرب هذا الملف (مع الدعاء لانتصار الثّورة اللّبنانيّة) Fathi_Extra.xlsm

تفضل التعديل اخي الكريم DoCmd.RunSQL " INSERT INTO (No_facture , prod_code, description, prod_quantity, total) VALUES ('"& fature &"', '"& code &"' , '"& description &"' , '"& quantité &"' , '"& total &"' ) ;" كان الخطأ في هذه الجزئية (fature, 0) الحل ان تضعها بين ' " & fature & " ' و تضع الصفر ضمن معادلة الترقيم افضل او اجعلها كتالي '"& IIF(IsNull(fature ),0,fature )&"'

جرب هذا data Validation.xlsx

تم معالجة الامر 1-تغيير اسماء الشيتات الى اللغة الأجنبية 2- الاظهار اليوزر Show User انقر الزر من الصفحة Baraka 3- لمعرفةكيفية التعامل مع اليوزر يمكن الاستعانه بهذه الصور الملف مرفق Phone_Numbers.xlsm

وعليكم السلام-يمكنك استخدام هذه المعادلة لجمع الأرقام الموجبة =SUMPRODUCT(--($A$2:$A$1500>-1),$A$2:$A$1500) وهذه المعادلة لجمع الأرقام السالبة =-SUMPRODUCT(--($A$2:$A$1500<0),$A$2:$A$1500) جمع المبلغ بالسالب1.xlsx

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

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

السلام عليكم 🙂 من تجربتي مع هذه الملفات ، للأسف الشديد ما ممكن عمل اصلاح لها ، وحتى اني رفعت احدها لأحد الشركات المتخصصة في استرجاع البيانات ، ولكن للأسف بدون فائدة !! نعم ، اذا كانت الجداول موجودة ، فهناك امل في استرداد البيانات بإستعمال برامج خارجية ، مثل هذه : جعفر

ارفع القاعدة على جوجل درايف وضع الرابط لتحميلها

وعليكم السلام .. تم تحرير عمود الكمية Y وفك تقييده , كما تم دمج المعادلات طبقاً للمطلوب بهذه المعادلة بعمود القيمة =IFERROR(IF($U5="نقلة",$Z5,IF(AND(Y5>=SUMIF(data!$A$18:$A$21,$AA5,data!$B$18:$B$21),$U5="طن"),($Y5*$Z5),$Z5*SUMIF(data!$A$18:$A$21,$AA5,data!$B$18:$B$21))),"") 12346.xlsm

أهلا بالجميع... من الممكن تطبيق الفكرة بواسطة أكسس بواسطة عناصر ActiveX القياسية المتوفرة ضمن عناصر التحكم.. في المثال المرفق استخدمت Picturelip و Image (عناصر ActiveX) من أجل تحقيق المطلوب يقوم العنصر PictureClip بتقطيع الصور بناء على عدد الأعمدة والصفوف التي يحددها المستخدم... بعد ذلك نقوم بإسناد الصورة المقطوعة إلى العنصر Image من أجل العرض.. عند النقر على رقم الصورة المعروضة يتم حفظها منفردة.. أترككم مع المثال ونناقش فيما بعد الحفظ التلقائي.. MSAccess With PictureClip.zip

طيب ارفق القاعدة خلينا نحاول معاك

انشئ قاعدة بيانات جديدة و حاول ان تستورد القاعدة الحالية

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

وعليكم السلام-من فضلك شوف هذا الفيديو https://www.youtube.com/watch?v=5FglGNvVcyY

اجعل المعادلة هكذا حتى تستطيع قراءة شهر 8 مثلاً =SUMPRODUCT((Sheet1!C2:C45<>"الغاء")*(Sheet1!F2:F45<>"محصل")*(Sheet1!D2:D45="معارض - Bmw")*(Sheet1!E2:E45)*(Sheet1!G2:G45=MONTH(S1))) Sum_pro1.xlsx