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

السلام عليكم ورحمه الله وبركاته هدية لأعضاء المنتدى الكرام برنامج أرشفة الخطابات و الوثائق .. الأرشفة الالكترونية مفتوح للعمل عليه غير محدد المدة ومش تجريبي مغلق المصدر (الاكواد) وتعديل النماذج تحياتي user 1234 1118021174_Archivesopen18-1-2021.rar

في الملف المرفق تجدون برنامج أعجبني كثيرا جربوه لن تخسروا شيئا، يحلل كل محتويات قاعدة البيانات و في النهاية تجد ملخص لقاعدة البيانات يمكن أن يكون وسيلة عمل للتعامل مع قاعدة البيانات الشرح المفصل تجدونه في الموقع التالي أضغط هنا لزيارة الموقع Analyzer_2K_081113_16_9p__MDE_PPS_DOC_TXT.zip

هدية للموقع برنامج الجمعيات الخيرية الرقم السرى 1515 جنتى المعدل بنك الدم.rar

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

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

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

لم افكر في طريقتك .... راحت من فكري تماما ... =MFAvrg(Nz([a1]);Nz([a2]);Nz([a3])) جزاك الله خيرا على التنبيه

فكرة جميلة ما شاء الله جزاك الله خيرا

طيب جرب الثلاث مواد الاولى واعلمنا بالنتيجة علما ني غيرت بعض مسميات مربعات النص لسهولة كتابة الكود 1 (2).rar

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

السلام عليكم عرض التقرير لا يناسب الورق المحدد في اعدادت الطباعة A5 بل يناسب ورق A1 واليك مقاسات الاوراق بالسم A1 = 59.4 × 84.1 A2 = 42.0 × 59.4 A3 = 29.7 × 42.0 A4 = 21.0 × 29.7 A5 = 14.8 × 21.0 A6 = 10.5 × 14.8 اليك التعديل بعد جعل الورق A4 عرضي وازالة الزيادات ايجار معدات للغير1.rar تحياتي

وعليكم السلام اخى الفاضل @seeef غير فالنموذج اسم الحقل name الى txtName مثلا وعليه يتغير الكود الى Private Sub Command18_Click() Dim X As String X = Me.txtName & ".pdf" DoCmd.OutputTo acOutputReport, "FBEA2", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End Sub وذلك لان الاشاره بـ me.name فهى لاسم النموذج بالتوفيق

في خصائص الحقل في وضعية التصميم اختر اللغة الانجليزية،

جزاك الله خيرا اخى واستاذى @biskra 💐

بارك الله فيك ونفع بعلمك

بارك الله فيك استاذ عبد الله الملف يعمل معى جيداً والنظام لدى 64 بت بارك الله فيك

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

لم تنقل الدالة صحيحة الى ملفك كما اخبرتك لا يمكنني التجربة لان جهازي يعمل على 32 بث تم اظافة الكود السابق لملفك على الفورم1 ويشتغل على جهازي بكفاءة جرب الملف وان لم يشتغل نتمنى من لديه نظام 64 تقديم المساعدة برنامج صلاحيات المستخدمين اصدار (3).xlsm

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

شكر وتقدير واحترام من اخيك

تسلم ايدك. شكرا ربنا يكرمك يارب

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

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

اذن تريده هكذا .... شوف الحسبة صحيحة ام لا .... للثلاث مواد الاولى

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

ما شاء الله تصميم جميل فعلا. وعمل متعوب عليه. طابت نفسا جادت بمثل هذا جعله الله بموازين حسناتكم.

ممكن توضح اكثر .... لاحظ الصورة اليس هذا هو المطلوب أم ماذا ؟؟؟؟

ماشاء الله مجهود وعمل رائع أستاذ محمد سلامة

شكرا لك اخي جاري التجربة

user 1234

لو سمحت اليوزر و الباسورد لانه مشفّر

انظر للمواد الثلاثة الاول وطبق لبقية المواد الاحرى ملاحظة : لي تحفظ على اسلوب تصميم الجدول ؟؟؟ 1 (2).rar

اخي الكريم من سياستي عدم تناول اكثر من جزئية عندما تقوم بنشر سؤال وجب عليك يتوضح فيه جميع متطلباتك نبهت عليه كثير من الاعضاء هذه المرة ساتجاوز ذلك في ملفك لايوجد قيم حيث تلوين الخلايا على حسب ما فهمت اذا كان هناك قيم التي تقابل كلمة بنزين بمجرد تلوينها تريد مسح محتوياتها ضع هذا السطر r2.ClearContents اسفل r2.Interior.color = vbBlue

السلام عليكم ورحمة الله وبركاته ادخل على الرابط ..

اخي الكريم بمجرد ان تخفي شاشة الاكسيس فانت قمت بحماية بنسبة كبيرة وحماية الجداول وقاعدة البيانات لها اكثر من طريقة اكتب في محرك البحث حماية ستظهر لك نتائج كثيرة https://www.officena.net/ib/search/?q=حماية&quick=1&type=forums_topic&nodes=89 اعتقد ان المشكلة التي معك حاليا كيفية حماية مجلد المرفقات تحياتي

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

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

بارك الله فيك استاذنا الفاضل ونفع الله بك تحياتي

اكتب بنزين وسيتلون وفي حالة مسحه سيختفي اللون color.xlsm

تم حل المشكلة المشكلة كانت في عمود timestamp تغير الداتا تايب واصبج varbinary

وعليكم السلام-وذلك من خلال خصائص الفورم كما بالصورة كيف تقول هذا- شوف بنفسك هل اطلعت على الملف أم تتكلم بدون رؤية الملف ؟!!! اهذا ما تريد ان يكون المؤشر اتجاه اليسار الملف1.xlsm

ياهلا باستاذنا الفاضل جعفر الحقيقة انا ماجربت جميع الاوامر لقفز البارامترات ولكن جربت البعض منها وعملت معي مثلا فتح فورم بشرط المدينة في الفورم الاول تساوي المدينة في فورم2 تكتب في العادة DoCmd.OpenForm "frm_6", , , "city='" & Me.city & "'" ويمكن التصريح بالشرط وقفز البارامترات لتكون هكذا DoCmd.OpenForm "frm_6", WhereCondition:="city ='" & Me.city & "'" تحياتي

ما كنت ادري اذا صرحت بالامر ، يمكنني قفز المتغيرات المطلوبة من الامر !! شكرا اخوي خالد على هذه المعلومة 🙂 ، وهل بإمكاننا المضي على هذا المنوال بالنسبة لبقية الاوامر كذلك؟ جعفر

ماشاء الله عليك يا ابا عبد الله احيانا استخدم OpenArgs ولكني اصرح بذلك في الامر ليكون DoCmd.OpenForm"frm_4", OpenArgs:=Me.Name او DoCmd.OpenForm"frm_4", OpenArgs:=Me.Caption للتسمية الخاصة بالنموذج

وعليكم السلام 🙂 وههلا وسهلا بك في المنتدى 🙂 للإستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى : https://www.officena.net/Tips/Questions.htm الطرق الاسهل: 1. استخدم الامر OpenArgs لإرسال اسم النموذج ، عند فتح النموذج Z02_Load_File ، هكذا : DoCmd.OpenForm "Z02_Load_File",,,,,,me.name او لإرسال الرقم 123456 DoCmd.OpenForm "Z02_Load_File",,,,,,"123456" وفي اي من احدات النموذج Z02_Load_File ، يمكنك قراءة هذه القيمة بإستعمال me.OpenArgs ، وطبعا تقدر ترسل اي عدد من القيم بهذه الطريقة ، الشرط ان القيم تكون بين "" ، مثل : DoCmd.OpenForm "Z02_Load_File",,,,,,"123456|Finance_Department" ثم في النموذج Z02_Load_File ، تستعمل الامر Split لتفرق بين هذه القيم. 2. ان تعمل متغير في وحدة نمطية مستقلة ، هكذا : Option Compare Database option explicit Global myValue as string او public myValue2 as integer ثم لم تعطي القيمة قبل ان تفتح النموذج Z02_Load_File ، هكذا: myValue = "This is a test" DoCmd.OpenForm "Z02_Load_File" او myValue = 998877 DoCmd.OpenForm "Z02_Load_File" وفي اي من احدات النموذج Z02_Load_File ، يمكنك قراءة هذه القيمة بإستعمال اسم المتغير myValue او myValue2 ، 3. او نفس طريقة #2 ، ولكن باستعمال TempVar جعفر

كان ردى بناء على ما فهمته من ردك وانك سوف تحسب تسلسله يدويا ثم تضعه بحقل اتسلسل ثم تزيد 1 على هذا الرقم لكل مابعده يعنى مثلا عندما يتم اعطاء رقم 6 لسعود وفى الاساساس سعيد ابراهيم يحمل رقم 6 فيصبح سعيد ابراهيم رقم 7 وهكذا وماذا بعد الفرز لانه لم نفهم مطلوبك ولا ع اى اساس سوف يتم الترقيم لان بمثالك لا يوجد سوى حقلين حقل الاسم والتسلسل نرجوا التوضيح اكثر وان شاء الله تجد ما تريد بالتوفيق اخى

برنامج_مخازن_جديد.xlsm

تسلم اخي اشتغل معي على 2013 في جهاز اخر هناك مشكلة في جهازي الف الف الف شكر لك ولكل من عمل على مساعدتي

اخوتي الكرام السلام عليكم ورحمة الله وبركاته العنوان ينطق بالمعنى كيف يعمل مستخدمون كثيرون ضمن نموذج واحد ولكن كل حسب صلاحيته وتطبيقه على ارض الواقع في البرنامج المدرسي حيث يتسنى لكل معلم ادخال درجات طلابه لا يشاركه في ذلك احد الا المسؤول عن البرنامج وهو جزء من درس احببت افراده ارفقت مثال بسيط عبارة عن جدولين ونموذجين يشتمل على 13 معلما ومسؤول واحد كلمات المرور للمعلمين تبدأ من 101 وحتى 113 وكلمة مرور المسؤول = 222 بيت القصيد والذي تدور عليه العمليه هو حقل رقم المعلم ويوجد مخفيا في حقل داخل النموذج لللاستزادة ورؤية التطبيق من هنا http://www.officena.net/ib/index.php?showtopic=55142&page=4#entry350160 آمل ان تجدوا الفائدة myUser.rar

اخي الغالي انا لست معترض على كلامك واتفق معك ففي عالم لغة الالة لعبة القط والفأر والتطور مستمر ولكننا نحاول