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

يبدو أنى تأخرت كثيرا ولكنى قد قمت بتجهيز هذا المرفق منذ فترة ولم أتمكن من رفعه وأحببت المشاركة لعله به فائدة TipsWithComd.rar

اكتب من الموبايل.... اعمل جملة شرطيه if احسب فيها السجلات التي تطابق الشرط باستخدام الداله dcount ضع الكود السابق اذا كان ناتج الجمله اكبر من صفر اما في else تضع رساله تبلغك بعدم وجود سجلات تطابق الشرط و تخرج من الاجراء exit sub سيناريو فقط لم استطع وضع كود من الموبايل بالتوفيق

اخى الكريم اضف هذا الحقل فى استعلام Elsayed والغى التجميع بحسب (الاجماليات) MotherName: ForSearch(Trim(Left([Copy Of BEIRUT]![اسم الام];InStr([Copy Of BEIRUT]![اسم الام];" ")))) & " " & ForSearch(Trim(Right([Copy Of BEIRUT]![اسم الام];InStr([Copy Of BEIRUT]![اسم الام];" "))))

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

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

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

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

الغاء ازرار النسخ واللصق في لوحة المفاتيح Ctrl+C , Ctrl+V Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If (Shift And 2) And (KeyCode = Asc("C")) Then KeyCode = 0 MsgBox "No Coping Allowed, Cheater!!!" ElseIf (Shift And 2) And (KeyCode = Asc("V")) Then KeyCode = 0 MsgBox "No Pasting Allowed, Cheater!!!" End If End Sub

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

تم ازالة الحماية (اين الإعجاب ....!!!!! ؟؟؟؟؟) تكرار الرقم salim1.rar

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

المعادلة المناسبة =IF(COUNTIF($A$5:$A$10000,$F$1)<ROWS($G$2:G2),"",INDEX($B$5:$B$10000,SMALL(IF($A$5:$A$10000<>"",IF($A$5:$A$10000=$F$1,ROW($A$5:$A$10000)-ROW($A$5)+1)),ROWS($G$2:G2)))) انظر المرفق (تم حماية المعادلات لعدم العبث بها عن طريق الخطأ) تكرار الرقم salim.rar

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

هذا تطبيق لكلام الاستاذ يوسف انظر اول سطر وللزر الوراء Private Sub Previous_Click() If DCount("*", "tblRealisation", "[Opérateur] =" & [txtSave]) = 0 Then MsgBox ("no records matched"): Exit Sub If Me.NewRecord Then Me.RecordsetClone.FindLast "[Opérateur] =" & [txtSave]: Me.Bookmark = Me.RecordsetClone.Bookmark: Exit Sub With Me.RecordsetClone .FindPrevious "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "أنت الآن في السجل الأول" Else Me.Bookmark = .Bookmark End If End With End Sub وهناك تنبيه اخر اخ ابو عبدالله لوكنت في السجل الثاني من النموذج ثم كتبت في مربع البحث 392 ثم نقرت للامام ستحصل على السجل صاحب الكود 65 ولن تعود ل 63 وهو يطابق الشرط بالتوفيق

السلام عليكم ورحمة الله تفضل سمارت كارت.rar

السلام عليكم و رحمة الله وبركاته اليك الملف التالى عله يفى بالغرض الكود ينجم عنه ملف باسم (Debits ) يعنى الديون أو الأقساط المستحقة + تاريخ اليوم والساعة والثانية التى تم فيها انشاء الملف الكود طويل نوعا ما لكنه سريع و يحقق ما تصبو اليه واذا توصلت الى كودا أسرع وأبسط سأرفعه لك ملحوظه مهمة : فى الكود يتم انشاء شيت جديد باسم الديون بنجمع فيه الديون هذا الشيت يتم نسخه الى الملف الجديد ثم يحذف يمكنك الابقاء على هذا الشيت فى الملف الأصلى للاطلاع على الديون بالغاء السطر الخاص بحذف الشيت . مع خالص تحياتى نمودج من اصناف Molhtar 1.rar

ربما يكون الحل سمارت كارت salim.rar

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

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

رحم الله والديك احمد امين وجزاك الله خيرا كثيرا

تفضل الملف جاهز معادلة vlookup_ونسبة الخطاء salim.rar

تفضل اخي الكريم حركة الخزينة22.rar

اخي ابو نادر وجدت المشكلة بالنموذج "الشاشة الرئيسية" عملت نموذج جديد form1 ثم سحب وافلات النموذج الفرعي وتركت الاسماء كماهي ثم اشرت للعنصر من خلال المربع بالتقرير وسترى المسار كامل والصحيح لعنوان المربع بالنموذج الفرعي وكل شي تمام وبدون اكواد واصبح المربع بالتقرير يقرا العنصر بالنموذج الفرعي مباشرة من التقرير بالتوفيق sss.rar

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

المرفق الجديد ولكن ارجو مراجعة الاسماء كاملا قبل البدئ فىالعمل به لان هناك اسماء لم تترجم ترجمة حرفية مثلا /كامل/ ترجمت الى Full beirut ifradi akeli.rar

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

مشكور أستاذنا الغالي رمهان الكود شغال 100 % للأسف أستاذنا الكريم يوسف أحمد الكود لم يشتغل بعد التعديل أصبح Criteria = "[Machine]='" & [cboMachine] & "'" _ & "And [LaDate] = #" & Format(txtDate, "mm/dd/yyyy") & "#" _ & " And [Opérateur] = " & [cboOpérateur] في السطر الثاني تم إضافة & وإشارة التنصيص أصبحت قبل And في السطر الثالث تم إضافة & وإشارة التنصيص قبل And وتم حذف إشارة التنصيص في آخر السطر وهو الآن شغال 100 % بارك الله فيكما ورزقكما من فضله ورفع قدركما في الدارين

بعد اذن الاستاذ يوسف جرب Criteria = "[Machine]='" & [cboMachine] & "' And [LaDate]=#" & Format(txtDate, "mm/dd/yyyy") & "# And [Opérateur] =" & [cboOpérateur] بالتوفيق

اخي الاستاذ ايمن في قراءة الكتب يتم وضع علامة عند السطر او الصفحة المراد الرجوع لها وهي قريبة لحد ما الى عمل ال bookmark فكاني اقول ضع الموشر بسجلات النموذج كما هو المؤشر لدى سجلات recodsetclone فانت تبحث وتذهب قدما ورجوعا في سجلات ا recordsetclone وعندما تستقر عند سجل معين تريد ان النموذج يظهر هذا السجل فتشير له بخاصية ال bookmark للنموذج ولابد ان تكون القيمة مناسبة فحتما سنسند قيمة ال bookmark ل recordsetclone لخاصية ال bookmark للنموذج وهنا سيظهر السجل الحالي في ال recordsetclone وهنا اوضح شي ما : كائن recodsetclone للنموذج ما هو الا كائن من نوع recordset وجميع خصائص وطرق كائن ال recordset يمكن تطبيق مع recodsetclone اتمنى ان الشرح مفهوم تحياتي

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

وجزيت خيراً بمثل ما دعوت لنا يا حاوي وبعدين فينك بقالك فترة مختفي عن الأنظار ..الفيس واخدك مننا

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

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