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

السلام عليكم 🙂 اهلا مرحبا بك بين زملائك في هذه المرتبة اخوي احمد @Ahmed.IQ 🙂 ولو ان المهندس قاسم قام بتزكيتك ، ولكنك كنت تحت المراقبة في ردودك ، دائما 🙂 جعفر

شكراً استاذ @jjafferr على هذه الفرصة التي تم منحها لي اشكر الاخوان في ادارة الموقع انتم بحق تستحقون ان يقتدى بكم لعلمكم وصبركم فا شكراً للجميع ان شاء الله اكون عند حسن الظن

السلام عليكم ورحمة الله أولا لا اعرف ان سبقني احد من الاخوة بهذه الفكرة ام لا لكن احببت ان شارككم ما توصلت الية من عمل من الممكن ان ينفع احد من الاخوة في المنتدى , ثانياً سوف اسرد لكم ما توصلت الية وهيا الاداة الاولى Admin Control هذه سوف تظهر لنا من يتصل بقاعدة البيانات واخر اتصال له ويظهر لدينا اسم جهاز الكومبيوتر الخاص به مع عدة معلومات . Computer Name : اسم جهاز الكومبيوتر المتصل بقاعدة البيانات Access Name : هنا المقصود صلاحية المتصل ودائماً تظهر انها Admin ولكن بصراحة احتاج الى مراجعة مصادر اخرى للتاكد منها Connected : حالة الاتصال بقاعدة البيانات suspect state : هنا لو حصل ضرر بقاعدة البيانات سوف تظهر كلمة True لكن في الوضع الافتراضي تأتي فاضيه لذا استبدلتها بكلمة False Last Time Connection : اخر وقت تم الاتصال به بقاعدة البيانات من قبل المستخدم Refresh في هذه الخانة سوف يتم تحديد وقت عمل لعمل تحديث بيانات اتصال اجهزة الكومبيوتر والحالة يوجد لدينا وقت وايضا دقائق او ثواني اما زر Close all DataBase عملة هو حذف جميع مسارات قواعد البيانات المخزونه لدنيا اما زر Open DataBase سوف يقوم بفتح نموذج جديد نحدد فيه مسار قاعدة البيانات وايضا وضع كلمة السر في حال ان قاعدة البيانات تحتوي على كلمة سر سوف اقوم بأضافته بعض الخيارات ان شاء الله في الايام القادمة للاستفادة اكثر من عمل الاداة اما الاداة الثانية Connected users account هيا فقط تقوم بعطاء عدد المتصلين الحالين بقاعدة البيانات ما فائدة هذه الاداتين ؟ الفائده هيا من الممكن ان تجعل الاداة برنامج مراقبة لمعرفة من اتصل بقاعدة البيانات واخر وقت تم الاتصال به ويصبح لديك بيانات لمعرفة من يستخدم القاعدة والوقت المستغرق وهذا ما انوي فعلة ان شاء الله و ان اجعل من البرنامج اداة حفظ بيانات الاتصال على شكل Log اما الاداة الثانية وهيا بصراحة جزء من نفس الكود للاداة الاولى لكن ابسط غرضه عمل عداد لمعرفة عدد المتصلين بالقاعدة حالياً , ماذا يمكن ان استفاد منها ؟ انا حسب حاجتي لها هيا نوعين من الاستفادة الاولى في حال اردنا ان نحدد عدد المستخدمين المتصلين بقاعدة البيانات وهنا سوف نضعة عند اقلاع البرنامج وسوف يتاكد من عدد المستخدمين وهل تم تجاوز العداد المسموح به , الاستفاد الثانية لو كنت تتعامل مع شركات ولديهم اكثر من جهاز فا موضوع ان نضع لكل جهاز سريال نمبر سيكون مشكلة لدينا لانهم في حالة تغير الاجهزة بستمرار , هنا يمكن ان يتم التعامل معهم على عدد المتصلين بقاعدة البيانات بنفس الوقت هناك نوع من التراخيص التي تعمل بهذا الشكل حيث التعاقد على انه يمسح لك بتصال 5 اجهزة بنفس الوقت لو اردت اكثر يجب ان تقوم بالدفع لاخذ الرخصة وهذه وحده من الفوائد , اتمنى من الاخوان لمن لديه فكرة واحب ان يطور في الاداة فله مطلق الحرية , الادة مفتوح يمكن الاطلاع على الكود وطريقة عمله. ملاحظة الاداتين تعمل لكشف عدد المتصلين بالقاعدة عن طريق نفس الجهاز او عن طريق الشبكة . اتمنى ان اكون قد وفقت بما طرحت . Connected users account.accdbAdmin Control.accdb

مبارك اخي @Ahmed.IQ تستاهل اكثر ...

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

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

نعم هذه احد الخطوات ، ولكن لعمل مربع واحد حول "الحقول التي تم جمعها" ، فهذا يحتاج الى كود 🙂 جعفر

الف مبروك 💐

ربي يبارك فيك اخي الكريم @Eng.Qassim وشكرا لك على التوصيلة الجميلة بحقي كلنا اخوان هنا ان شاء الله وانت دبل اخ ولا تزعل 😅

الف مبروك للاخ العزيز ابن بلادي @Ahmed.IQ..ولو ان كل بلاد العرب هم بلادي شكرا للاستاذ الرائع ومعلمنا الكبير @jjafferr وارجوا ان تجعلوا الاخ @TQTHAMI تحت المراقبة ايضا 😄

مبارك عليك مرة أخرى أخي أحمد @Ahmed.IQ 🙂 وعسى التوفيق حليفك دائما وأبدا 😊🌹

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

لم أفتح المرفق وحسب فهمي بشكل سريع ربما أنت تحتاج استخدام خاصية Hide Duplicates من خصائص الحقل.

وعليكم السلام ورحمة الله وبركاته 🙂 ضع هذا السطر على زر الأمر : CurrentDb.Execute "Update Tbl_re1 set w = 0" Msgbox "تم الاستبدال"

وكذلك نبارك لزميلنا @Ahmed.IQ حصوله على لقب "خبير" وعساكم ع القوة.

اخونا احمد له موضوع خاص لتهنئته ، فلا تبخلوا عليه الزيارة والتهنئة 🙂 جعفر

تحية طيبة وتهنئة حارة للإخوة الأعزاء @ابو البشر و @kkhalifa1960 و @Ahmed.IQ 🙂 🌹 وجعلكم الله خير معين .. وزادكم الله من واسع فضله ..

وعليكم السلام.. لانك وضعت المعيار [work_lagnah]="رئيس لجنة".. واذا لم يكن رئيس لجنة فيعطيك فراغ ولهذا تظهر لك العناوين فارغة ..والحل ان تذهب للاستعلام وتضع تحت حقل work_lagnah المعيار رئيس لجنة

الف مبروك لاخوانى @ابو البشر و @kkhalifa1960 و @Ahmed.IQ واعانكم الله على مساعده اخوانكم بالتوفيق اخوانى

الف مبروك و الي الامام دائما باذن الله 💐

جواب على قد سؤالك هو هذا Private Sub TextBox2_Change() If TextBox2 > 0 Then TextBox3.Value = Val(TextBox1) End If End Sub

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

شكرا اخي قاسم على توصيتك الجميلة شكرا جزيلاً لك ومبارك للاخوان @ابو البشر والاخ @kkhalifa1960 الترقية الى خبراء نسئل الله لهم ولنا التوفيق

شكرا لك الاخ العزيز حسين مامون

الف مبروك للاخوة @ابو البشر و @kkhalifa1960 ومزيد من الابداع والتقدم لخدمة منتدانا الرائع بصراحة استاذ جعفر @jjafferr انا عيني على الاخ @Ahmed.IQ فهو شخص مبدع

حفظ صفحه

وعليكم السلام ورحمة الله وبركاته اين رابط الموقع او يمكنك حفظ صفحه ال html ورفعها هنا بعد ان يتم ضغطها باي برنامج ضغط

السلام عليكم اخواني جميعا ورحمة الله وبركاته عملت هذه القاعدة منذ زمن وتوقفت لانشغالي بالعمل والسفر الدائم . بإختصار شديد الهدف من البرنامج هو للبحث في جميع جداول وحقول القاعدة . لقد رايت هذا الموضوع هنا .. لا اعرف اذا كان هذا البرنامج يفي بالغرض ام لا. للامانة العلمية بعض الاكواد استعنت بها من الانترنت وحقوق الاشخاص والاكواد محفوظة. يوجد بعض الجداول في القاعدة وفيها بيانات قليلة . أتمنى من الجميع التجربة وموافتي بالنتيجة تحياتي للجميع Search All Tables 2020 New.accdb

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

الحمد لله تم حل الموضوع باستبدال التقسيم بعنصر تحكم التنقل

السلام عليكم اخي العزيز استخدم الكود التالي في الاستعلام Num: DCount("[ID]","[tblNames]","[ID]<=" & [ID]) تحياتي

السلام عليكم ورحمة الله اخواني كنت قد شاركت بعض الاخوة مشروعا بسيطا لتسديد الفواتير سواء مبيعات اومشتريات وكان المشروع غير مكتمل البنية احببت ان ارفق لكم ما حاولت به لاجعله مقبولا وقابلا للاستخدام 737.rar

غير في هذا السطر العمود الذي تريد If WorksheetFunction.CountIf(.Range("C2:C" & Last), CStr(.Cells(R, "c"))) > 1 Then .Cells(R, "A").Resize(1, 7) من العمود a الى g سبعة اعمدة غير العدد سبعة الى اي عدد تريد اذا غيرت الى 20 سيكون من العمود a الى t تحياتي