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

3 ساعات مضت, ابوخليل said:

اعجبني فوق احترافيته ، الجمال في بساطة وتناسق التصميم

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

شكرا لك كتبه الله لك بموزين حسناتك

السلام عليكم ورحمة الله وبركاته

بعد اذن استاذنا عصام ربيع 

وضعت لك كود خلف زر لاستيراد البيانات من فورم الأصناف كما بالصورة اضغط علي الزر وانظر النتيجة ولا تنسانا من دعوة بظهر الغيب

ملاحظات: 

1- اجعل شيت الاكسل في نفس مجلد البرنامج 

2- عدل اسم العمود ipage_ID في شيت الاكسل ليتناسب مع اسم العمود بالجدول ليصبح ipage فقط

3- لا تنزعج من رسالة تأكيد الاستيراد للبيانات 

ImportFromExcel.rar

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

لو قمت بالبحث بالمنتدي لوجدت الكثير والكثير مما تريد 

19 ساعات مضت, احمد الفلاحجي said:

اى طريقه قمتى بتجربتها ؟

بالموضوع مجموعة من الاجابات والأفكار المختلفة أي شىء جربته ولم يفلح معك علي 2013 نرجو التوضيح

في ٢٧‏/٢‏/٢٠٢١ at 20:23, الأمير هشام said:

ارجو مساعدتى لحاجتى لهذا التقرير

هل جربت المرفق بمشاركتي السابقة وماذا كانت النتيجة

عودا أحمد أستاذنا عصام ربيع (طولت الغيبة علينا) 

مساهمة مع أستاذنا عصام

جرب هذا المرفق لعله يقترب مما تريد

EditData.accdb

أرجو أن يكون هذا قريب مما تريد

Employee.accdb

21 ساعات مضت, محمدفتاح said:

المشكلة الكود يقوم فعلا بانشاء النموذج ولكن كيف اقوم بكتابة الاجراء المراد تنفيذه داخل زر الامر

فقط استدعي الدالة هكذا من زر الأمر أو من أي مكان تريد 

creat_form
أو
call creat_form

39 دقائق مضت, ناقل said:

ممكن مرفق صغير لما تقول للتجربة

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

جرب هذا أرجو أن يكون مرادك

Da (3).accdb

مشاركة مع أساتذتي الكرام 

أنا كذلك لا أستخدم العلاقات الا داخل الاستعلام 

أما عن الملاحظة: لماذا نوع المعهد مكتوب باللغة العربية اجعل تسميات الحقول جميعا باللغة الانكليزية واجعل التسمية باللغة العربية كيفما تشاء 

أقصد Name: property in English  ===>   Caption: property in Arabic

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

تمنياتي بالتوفيق

منذ ساعه, moataz2030 said:

لا يظهر نتائج لانة مكتبس من اجراء معدلات من مربعات نص اخري فما هو الحل جزاك الله كل خير

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

أو أنك تجمع حقل فارغ علي حقل ذي قيمة يمكنك استخدام الدالة NZ  لتفادي تلك المشكلة

=Nz(tx1)+nz(tx2)+nz(tx3)

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

تمنياتي بالتوفيق

45 دقائق مضت, ابو ياسين المشولي said:

mypath & CurrentDirectory

أخي أبا ياسين لا داعي لاستخدام 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  للمتغير العام في فتح النموذج

وهكذا تكون القيمة معك تستخدمها من أي مكان خارج النموذج

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

2 ساعات مضت, أبو إبراهيم الغامدي said:

عندما يوجه إليك من يكبرك سنا وقدراً تلميحاً بعمل شيء ما،، لا يمكن أن تفهم من هذا إلا يكون طلبا ملزماً..

12 ساعات مضت, ابوخليل said:

ومع ذلك نحن نتزاحم بالركب إلى أمثالك  .

والله مازلنا نتعلم منكم الأخلاق الكريمة أكثر من الأكسس 

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

3 دقائق مضت, ابو فتحى said:

هل ممكن بكود مش يدوى 

طبعا ممكن ولكن 

9 دقائق مضت, أبو عبدالله الحلوانى said:

ولو فتحت موضوع مستقل لسؤالك لوجدت اجابات اكثر تفصيلا وافضل من هذه 

كل ما عليك هو استخدام أمر الاستيراد والربط 

DoCmd.TransferDatabase acLink,"ms-access","Full name of source database",acTable,tableName in source,table name in current database,,"passward"

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

14 دقائق مضت, ابو فتحى said:

جزاك الله خير وبارك فيك

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

الموضوع سهل ان شاء الله ولكن لا علاقة له بموضوع النسخ الاحتياطي لقاعدة البيانات

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

ولو فتحت موضوع مستقل لسؤالك لوجدت اجابات اكثر تفصيلا وافضل من هذه 

أو لوبحثت عن كلمتي المفتاح الذي اعطيتك اياه (استعلام الحاق واستيراد جدول) بالمنتدي أو غيره لوجدت الكثير والكثير 

وعليكم السلام ورحمة الله وبركاته

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

بامكانك أن تغيري اعدادات الأمان من اعدادت الاكسس

اتبعي الخطوات بالرابط التالي

اما وان كان لا بد من استخدام آداة 

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

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

وهذا الرابط لأستاذنا جعفر ينفذ طريقة أستاذ أبو ابراهيم ولكن عن طريق الكود 

واعتذر عن الاسهاب في الرد 

LowScuerity.rar

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

Gm3ya.rar

أولا- مرحبا بك بالمنتدي.

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

كمشاركة الباك اند (BE) علي سرفر محلي (جهاز داخل الشركة) يخصص لرفع قاعدة البيانات عليه ومشاركته مع الجميع وهذه ستتيح لك حتي 20 مستخدم حسب امكانات الأكسس المتاحة والسرفر الموجود عليه الأكسس

أو من خلال تكبير قاعدة البيانات (BE) وتحويلها الي SQL- server  ومشاركتها من أي موقع وهذه ستتيح لك عدد أكبر من المشاركة علي ما أذكر الي ما يزيد عن 16000 مستخدم تقرييبا

وبالنسبة للأول والثاني فهذا لن يكلفك اشتراكات شهرية ولا سنوية بخلاف تكلفة الاتصال بالانتر نت والتيار الكهربائي

واليك روابط ستفيد بهذا الأمر من منتدانا أوفيسنا

1- تحويل قاعدة البيانات الي الاسكيوالسرفر 2012 والاتصال بها

2- رفع قاعدة البيانات علي استضافة مجانية

3- اجعل جهازك سرفر واتصل به محليا وعن بعد

وغيرها الكثير لوقمت بالبحث قليلا

تمنياتي بالتوفيق