أبو عبدالله الحلوانى

جرب هذا أرجو أن يكون مرادك Da (3).accdb

مشاركة مع أساتذتي الكرام أنا كذلك لا أستخدم العلاقات الا داخل الاستعلام أما عن الملاحظة: لماذا نوع المعهد مكتوب باللغة العربية اجعل تسميات الحقول جميعا باللغة الانكليزية واجعل التسمية باللغة العربية كيفما تشاء أقصد Name: property in English ===> Caption: property in Arabic هذا سيجنبك بعض المشاكل عند استخدام محرر الأكواد تمنياتي بالتوفيق

لم أفهم جيدا ما تقصد ولكن ربما تحتاج لصياغة المعادلات داخل مربع النص بالفورم الفرعي بشكل صحيح أو أنك تجمع حقل فارغ علي حقل ذي قيمة يمكنك استخدام الدالة NZ لتفادي تلك المشكلة =Nz(tx1)+nz(tx2)+nz(tx3) جرب هذا وان لم يتم حل مشكلتك حاول أن تقتص الجزء الذي به المشكلة وارفعه هنا ليستطيع اخوتك المساعدة تمنياتي بالتوفيق

أخي أبا ياسين لا داعي لاستخدام CurrentDirectory فـ Mypath تلتقط المسار الحالي للبرنامج

جرب الحل المقترح من مساعدة ميكروسوفت هنا https://social.msdn.microsoft.com/Forums/sqlserver/en-US/1178222d-23ba-49fa-9682-8a9bf7c8e701/you-dont-have-the-license-required-to-use-this-activex-control?forum=outlookdev

أنت اذا تحتاج الحصول علي قيمة الاجمالي من الفورم الفرعي لتعرضها بالفورم الرئيسي جرب استخدام هذا الكود مع تعديل ما يلزم من مسميات وفقا لما هو لديك me.subformName.form!n1 ضع في مصدر مربع النص علي الفورم الرئيسي

اطلع علي المرفق بالموضوعين التاليين لعلك تجد ما تريد والثاني

مجرد اقتراح من الممكن استخدام اسكربت كهذا لفتح البرنامج بدون رسائل الأمان وبدون الحاجة لتخفيض أمان الأكسس بالكلية الخطوات 1- تعديل اسم البرنامج داخل الاسكربت وتعديل كلمة المرور أو حذفها ان لم يكن للبرنامج كلمة مرور 2- نضع الاسكربت داخل الفولدر الحاوي للبرنامج وانشاء اختصار له علي سطح المكتب 3- نقوم بتشغيل البرنامج (البرنامج يعمل بأمان وأي ملف أكسس أخر يتم ايقافه باجراءات الأمان) RunProgram1.rar

فكرة علي سريعة علي حسب ما فهمت في حدث عند الفتح النموذج اجعل متغير عام وفي حدث عند الخروج من النموذج اسند قيمة n2 للمتغير العام في فتح النموذج وهكذا تكون القيمة معك تستخدمها من أي مكان خارج النموذج

أمهلني للغد ان شاء الله فقد نفدت البطارية واحتاج للشحن

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

طبعا ممكن ولكن كل ما عليك هو استخدام أمر الاستيراد والربط DoCmd.TransferDatabase acLink,"ms-access","Full name of source database",acTable,tableName in source,table name in current database,,"passward" أما عن الحاق البيانات بالجدول فيمكنك استخدام استعلام أو جملة sql لتقوم بهذا من داخل محرر الأكود vba

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

وعليكم السلام ورحمة الله وبركاته والله حقيقة بعد هذه الردود لا يصلح رد آخر ولكن بدأت بكتابة الرد وانشغلت ببعض الأمور فلا مانع من مشاركة الاساتذة بالأجر بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس اتبعي الخطوات بالرابط التالي اما وان كان لا بد من استخدام آداة فاليك هذا الاسكربت لتخفيض امان الأكسس. وان لم يعمل بشكل جيد انظر الي الشرح بالفديو لتعديل الكود بالاسكربت وفقا لمسار الرجستري الخاص بالاصدار 2019 فالاصدار لدي 2016 أما عن طريقة أستاذنا أبوابراهيم الغامدي في الأفضل ولا شك لكون البرنامج يعمل بأمان ولا ننزع أمان الأكسس عنه وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود واعتذر عن الاسهاب في الرد LowScuerity.rar

جرب هذا اذا ووافنا بالنتيجة Gm3ya.rar

أولا- مرحبا بك بالمنتدي. ثانيا- بطبع مشاركة قواعد البيانات متاح سواء علي استضافة أو من خلال استأجار السرفر (ولكن هذه الحلول مكلفة ولا شك) وهناك بدائل أقل تكلفة منها كمشاركة الباك اند (BE) علي سرفر محلي (جهاز داخل الشركة) يخصص لرفع قاعدة البيانات عليه ومشاركته مع الجميع وهذه ستتيح لك حتي 20 مستخدم حسب امكانات الأكسس المتاحة والسرفر الموجود عليه الأكسس أو من خلال تكبير قاعدة البيانات (BE) وتحويلها الي SQL- server ومشاركتها من أي موقع وهذه ستتيح لك عدد أكبر من المشاركة علي ما أذكر الي ما يزيد عن 16000 مستخدم تقرييبا وبالنسبة للأول والثاني فهذا لن يكلفك اشتراكات شهرية ولا سنوية بخلاف تكلفة الاتصال بالانتر نت والتيار الكهربائي واليك روابط ستفيد بهذا الأمر من منتدانا أوفيسنا 1- تحويل قاعدة البيانات الي الاسكيوالسرفر 2012 والاتصال بها 2- رفع قاعدة البيانات علي استضافة مجانية 3- اجعل جهازك سرفر واتصل به محليا وعن بعد وغيرها الكثير لوقمت بالبحث قليلا تمنياتي بالتوفيق

نعم اطلعلت علي المخطط ولم استوعب ما تريد فعله بالضبط (صعيدي بقي ) نعم أعلم ان المخزن سيستقبل ويرسل الأصناف لم نختلف علي هذا سؤالي كان: 1- 2- لكل المخازن والسؤال الثالث الذي لم اذكره: هل سيكون الصنف موجود بكلا من المخزن ( أ) و (ب) في حالة منفذ البيع واحد لكل اسلوب هيكلة معينة بالعمل وشاكر لك سعة صدرك

أخي في الغالب لديك فورم يعمل بالخلفية وبه مؤقت فكود التيمر يظل يعمل ويعيقك أثناء كتابة الكود كل ما عليك هو ايقاف الفورم الذي به المؤقت (أو حدث عند المؤقت) On timer ثم افتح شاشة المحرر واعمل بدون مقاطعة ان شاء الله

مبدأيا قم بهذا الحل ان لم تجري الأمور بعده علي مايرام أخبرنا للنتقل للحل التالي ان شاء الله

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

لا يوجد (زعل ولا شيء ) وانما الأمر متعلق بسعة الوقت وفرصة فراغ يقتطعها أحدهم ليتفرغ لدراسة مرفقك وتقديم ما يستطيع من مساعدة لا تغضب وانما اصبر (وحاول مساعدة نفسك حتي ييسر الله لمن لديه الوقت الكافي للرد) (خلصنا رخامة نيجي للجد) فكرة حضرتك خطوة خطوة (علشان أخوك صعيدي وفهمي علي قدي ) أولا- عندنا أكثر من مخزن (تمام) ثانيا- هل طريقة البيع تعتمد علي نقاط بيع يعني كل مخزن مستقل بعمليات البيع والشراء أم أن منفذ البيع واحد فقط ويتم الصرف من المخازن حسب كميات البيع الصادرة (يعني ببيع 10 وحدات من الصنف أ عند الصرف للعميل وجدنا 3 فقط في المخزن الموجود به منفذ البيع فنقوم بسحب باقي الكمية من المخزن 2 مثلا).

أعتذر عن المشاركة بغير استئذان - وانما الشكر لكم استاذي علي ما تقدمونه لنا من علم أما عن أمر الخط فكل ما يحتاجه أخونا @at_aziz هو اجراء تعديل كهذا lbl.Font.Size = 9 <=== غير في الحجم هنا كما تريد lbl.Font.Bold = True <==== أضفت هذا ويمكن الاستغناء عنه ولكن العجيب أن الليبل له خصائص مختلفة تماما عن ليبل الأكسس فله خاصية صورة وخواص أخري كثير ما هذا الليبل؟!!

في هذا السطر من الكود يأخذ الليبل لونه بطريقة عشوائية lbl.BackColor = RGB(Int(150 * Rnd), Int(150 * Rnd), Int(150 * Rnd)) غيره الي هذا ليصبح باللون الأحمر مثلا lbl.BackColor = vbRed

نعم واعتقدت أن تثبيت موضع الصورة علي الفورم سيعمل علي توحيد موضع المؤشر ولكن يبدو ان الأمر سار علي خلاف ما أتوقع نعم أخذت نقطتي الـ X & Y من اطار الصورة ولكن يبدو ان المشكلة ان الصورة تتمدد مع تمدد الفورم ولا أدري هل تثبيت موضع الصورة علي الفورم سيحل المشكلة أم لا؟! قم باظهار مربع النص علي الفورم الذي يلتقط موضع المؤشر وفعل الكود في حدث عند تحريك الفأرة للصورة وعدل مواقع النقاط في الجدول وفقا لأرقامها الجديدة عندك ولكن لا أنصحك بفعل كل هذا ففي مرفق أستاذنا @أبو إبراهيم الغامدي الغنية عن كل هذا ان شاء الله فعند تجربة المرفق تبين لي أنه يصلح للادخال وعرض البيانات من خلال النقر علي الصورة في آن واحد (وهذا هو الابداع المنتظر من الاساتذة )

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