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

هههههههههههههه اولا السلام عليكم ورحمة الله وبركاته اعتذر لانى لم استطع اليوم تجربة المرفق فى العمل على احد الحواسيب ذات الاوفيس 2007 لضغط العمل الكثير ام بخصوص السؤال إختلاف أصدار الاوفس أم قد يكون رقم الـ Value لأزرار لوحة المفاتيح يختلف في الحاسوب الله اعلى واعلم اضحك لانى لا اعرف ولابد من التجربة ولكن اختنا الكريمة فى المرفق الاول وضعت لك نموذج باسم frmKeyCodeConstants واعيد رفع المرفق مرة اخرى بهذا النموذج فقط حتى لا اشق عليكم بمجرد الضغط على الزر تعرفين كود هذا الزر Key Code Constants (1).rar

الجواب باين من العنوان ☺ Create New DB And Expor Tables With Password ☺.rar

اعتذر انا فهمت انه لا يريد ان يعطي نتيجة بالسالب لكن الحمد لله انت عملت التعديل اذن سيد @محمود _ المصري لا استخدم Abs في كود ب تحياتي لكم

كم انتما رائعين تحياتي الي الاستاذ / شيفان وتحياتي الي الاستاذ / يوسف علي التعديل الاكثر من رائع

بارك الله فيك استاذ شيفان ... و لا يهمك نحن مكملين لبعض و شرف لي مشاركتك في اي موضوع استخدام الدالة ABS هو الحل ... و عندي فقط تعديل بسيط على معادلة الكرتونة A A: IIf([TOTAL]<0;Int(Abs([SH_TOTL]-[B_TOTL])/[t])*-1 & " " & "كرتونة";([SH_TOTL]-[B_TOTL])\[t] & " " & "كرتونة") بالتوفيق للجميع

اذن استخدم Abs مع الكود هكذا للكارتون A: Int(Abs(([SH_TOTL]-[B_TOTL]))/[t]) & " " & "كرتونة" وهذا للقطعة B: Abs([total]) Mod [t] & " " & "قطعة"

اتفضلى التعديل كما ينبغى ان يكون الاجازات.rar

IIF([MyNumber] >= 1 And [MyNumber] <= 10 ;5;IIF([MyNumber] >= 11 And [MyNumber] <= 20;15;0)) انا کتبت اذا كان رقمي بيكون بين 1 الى 10 حينئذ هذا الحقل خلي بيكون 5 واذا رقمي بين 11 الى 20 حينئذ هذا الحقل خلي بيكون 15 واذا رقمي لا يطابق مع شروطي اي بين 1 الى 20 حينئذ خلي بيكون هذا الحقل يساوي صفر

السلام عليكم ورحمة الله تعالى وبركاته اولا: عملية ربط قاعدة بيانات بمسار محدد توضع حيث يتم وضع قاعدة البيانات التي تحتوي غلي الجداول في نفس مجلد قاعدة الواجهة Autolink Path.rar ---------------------------------------- ثانيا :عملية الربط التلقائي بدون تحديد المسار حيث يتم البحث عن قاعدة البيانات المطلوبة لربط الجداول اينما كانت Autolink Table.rar ---------------------------------------- ثالثا :عملية ربط قاعدة الواجهة باكثر من قاعدة link MultiDB.rar مع اطيب وارق الامنيات بالاستمتاع

السلام عليكم ورحمة الله تعالى وبركاته دعت الحاجة فى عملى الى عمل كود للتأكد من الاتصال بالشبكة المحليه وفكرت بعمل الكود على الشكل الاتى If Dir("\\192.168.1.2\test\tbl.mdb") = "" Or Dir("\\192.168.1.2\test\tbl.mdb") = Null Then Me.Check_ConnectionGood.Value = False lbl_ResultConnect.Caption = "لم ينجح الاتصال بالشبكة المحلية ولن يتم الاتصال بقاعدة البيانات" Exit Sub Else Me.Check_ConnectionGood.Value = True lbl_ResultConnect.Caption = "تم الاتصال بقاعدة البيانات بنجاح" End If مرفق فاعدة بيانات للتجربة اولا : اطلب من اساتذتى الافاضل على استحياء ابداء ارائهم فى فاعلية هذه الفكرة بذلك الكود وان كان هناك طريق افضل مما سلكته ثانيا : لو ان هناك احد الاشخاص يدخل على جهاز السيرفر من خلال الاي بي الاتى مثلا \\192.168.1.2 باكثر من اسم لدخول الشبكه وباختلاف اسم الدخول تختلف كلمات المرور وهذا لاختلاف صلاحيات واذونات كل من الاسماء فى التعامل مع الملفات والمجلدات لذلك لن يستطيع عمل تذكير لكلمة مرور او اسم دخول هل يمكن عمل كود ليمرر اسم مستخدم محدد بكلمة المرور الخاصة به عند فتح قاعدة البيانات ؟! على سبيل المثال بيانات الاتصال بالشبكة كالاتى \\192.168.1.2 اسم الدخول للجهاز : user كلمــــــة المــــــرور : user ----------------------------------------------------------------------------------------------------------- نسيت أن أذكر ان القاعدة الامامية هى التى تحمل اسم app.mdb وقاعدة الجداول هى التى تحمل اسم tbl.mdb test.rar

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

شکرا لک استاذ @أبو إبراهيم الغامدي اتفضل اخي @sandanet الیک طريقة اخرى Dim strName As String Dim strFile As String Dim strPath As String Dim MyFileNam As String Dim SplFile MyFileNam = "*.jpg" strPath = "C:\Users\MyShiv\Desktop\Newfolder\" ' مسار الفولدر اللی بھا صور strFile = Dir(strPath & MyFileNam) Do While Len(strFile) > 0 SplFile = Split(strFile, "_") strName = SplFile(2) & ".jpg" ' لان عندنا فی اسماء الصور اثنين من ( _ ) ونريد اللي بعده Name strPath & strFile As strPath & strName strFile = Dir Loop واذا تريد راح ارفع لك القاعدة على ذلك لكن هناك ملاحظة : لا يجوز ان يكون هنالك اكثر من صور في اخره اي بعد ( _ ) الثاني بنفس الاسم او رقم

الاخ / عمرو المطري عمل جميل جدا وتنسيق في منتهي الروعة نرجو المزيد من هده الابداعات جعله الله في ميزان حسناتك

up

بعد إذن أستاذ شيفان.. عملت مثال بسيط، على المطلوب.. في الحقل PNCO اكتب القطعة التي تريد إزالتها.. باقي الحقول أظنها واضحة بعد تحميل الملفات سوف تري كيف يكون عليه اسم الملف في العمود New file name تنبيه.. تأكد من الدليل المدرج في File Dir ينتهي بالشارطة الخلفية FileManager.zip

جزاكم الله حيرا استاذ @ابو زاهر ولكن الحلقة لم تكتمل بعد فى انتظار اساتذتنا الكرام فى مد يد العون

الإختيار الثانى اعتذر كنت على عجله من امرى ورفعت قاعدة تحت التجربة

ابد انا ما انتبھت من الاشارات \ / شكرا لك

بارك الله فيكم اخواني ممكن ايضاً الاستغناء تماماً عن استخدام الدالة int و التعويض عنها باستخدام علامة القسمة الصحيحة ( \ ) كالتالي : A: IIf([TOTAL]<0;Abs([SH_TOTL]-[B_TOTL])\[t]*-1 & " " & "كرتونة";([SH_TOTL]-[B_TOTL])\[t] & " " & "كرتونة")

اتفضل Dim strName As String Dim strFile As String Dim strPath As String strPath = "C:\Users\MyShiv\Desktop\" strFile = Dir(strPath & "2017-10-10_09.42.27_11.jpg") strName = "11.jpg" Name strPath & strFile As strPath & strName strFile = Dir

اعتذر عن التدخلي في الموضوع اولا هناك سؤال هل العدد 100 هو عدد كمية الشراء ؟ و العدد 154 هو عدد البيع ؟ اذا نعم ، كيف يجوز ان نبيع شيء اكبر من اللي عندنا ؟

تسلم اخي يوسف انا لاحظت ان المشكلة تكمن اذا كان الرقم بالسالب كما هو موضوح بالصورة لاحظ ان الاجمالي -54 الكرتونة بها 20 الصحيح ان يعطي لي -2 كرتونة ، -14 قطعة لو امكن نظبطها ياريت ولو ما امكن ما فيها شئ وسلمت يداك وحضرتك ظبطها تمام وهبقي اخلي العميل يركز بقي في تسجيل الشراء علشان متلخبطش معايا SOBAR.rar SOBAR.rar

بارك الله فيك اخي العزيز محمود اسأل الله ان اكون عند حسن ظنكم بي ما طلبته اعتقد بأنه محقق بالمعادلات السابقة ... ( انا جربت بتعديل القيم ) .. لأن المعادلة مرتبطة بقيمة حقل المجموع total جرب و ضع نفس القيم و اخبرني بالنتيجة .. او ارفق ملفك به القيم المطلوبة بالتوفيق

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

و عليكم السلام و رحمة الله و بركاته اخي العزيز محمود للحقل A استخدم التعبير التالي : A: Int(([SH_TOTL]-[B_TOTL])/[t]) & " " & "كرتونة" و للحقل B استخدم التعبير التالي : B: [total] Mod [t] & " " & "قطعة" تفضل ملفك بعد التعديل بالتوفيق MM.rar

رائع جدا.. ماشاء الله استاذنا @ابوخليل

تفضل myback_accdb.rar

اتفضل فكرة تانيه برنامج إنشاء قوائم منسدلة PopUp.rar

اتفضل تجريب.rar

تفضل حمل البرنامج من هذه المشاركة https://www.officena.net/ib/topic/77701-حماية-قاعدة-بيانات-الاكسس-من-النسخ/?do=findComment&comment=499262 بعد تحميل الملف ستجد بداخله ملف اسمه key_maker_new هذا يجب ان تبقيه عندك ولا تعطيه للمستخدم كما انه يجب عليك تغيير الرقم التالي 12345 الى رقم خاص بك في كلا الملفين الموجودين في الرابط حتى تختلف ارقام تسجيل نسخك عن غيرك وبالتالي لايمكن لأحد التلاعب فيه تحياتي

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

يؤسفني عدم تمكني من فتح المرفق لاني اعمل الآن على جهاز يحتوي على اصدار 2003 ولكن تكفي الصورة الظاهرة لتحكي عن جمال التصميم لدي ملاحظة : وهي يفضل ادراج كلمة في ( نسخة كل ) لتصبح (نسخة جديدة كل ) لان النسخة الاحتياطية حاصلة بالفعل عند كل ضغطة زر

انا عامل قاعدة بيانات على MS Access 2003 و قريت هنا انى لو عاوز القاعدة دة اشغلها على شبكة داخلية يبقى اقسم القاعدة الى جزئين الجزء الاول BackEnd والجزء دة بيبقى فية Tables الجداول فقط --> ودة بيتحط على السيرفر الرئيسى للشبكة داخل شركة مثلا والجزء التانى بيبقى FrontEnd ودة الى بيبقى فية النماذج والاستعلامات و و و و هكذا طبعا ً كل جهاز ف الشركة بيبقى عندة ملف النماذج والاستعلامات وبنعمل ربط او Link بين النماذج دة و الـ Tables الجداول الى على السيرفر الرئيسى دلوقتى كلة تمام .. شبكة داخلية و جهاز سيرفر رئيسى وحطيت الجداول على الشير وعملت لينك بالنماذج وكلة تمام وشغال بسرعة دلوقتى الشركة فتحت فرع تانى .. فى مكان تانى---->> مبقتش جوة الشبكة الداخلية طبعاً .. :) قلت اجرب أعمل شبكة VPN ونعمل ربط مشكلة الحركة دة انو بطئ جدااااااااااااااااااااااااااااااااااااً فى عملية الربط وعملية التعامل ممكن الطريقة بالتفصيل .. عربى او إنجلش واكون شاكر جداً

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

السلام عليكم و رحمة الله أخي أنور يمكنك إخفاء القيمة الصفرية بإستخام تنسيق الخلايا من مخصص ضع الرموز التالية 0.000;-0.000;