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

الطريقة التي استخدمها أخي @عبد اللطيف سلوم ممتازة وبسيطه انظر هذه طريقة اخرى .... المتغير (1).accdb

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

اولا انا لست خبيرا كما تظن ويظن الخبراء بي ..... إنما أنا متعلم ثانيا ليس هناك تعب كما تظن ..... لأن هذا المنتدى وغيره أعطانا الكثير والكثير من أوقات الخبراء استفدنا منهم كثيرا ولازلنا نذكرهم رغم غيابهم .... فسال ما بدى لك ..... وواجب علينا أن نجيب في حالة معرفتنا للاجابة .... تفضل المرفق ..... المتغير (2).accdb كما ذكروا لك الأخوة @kha9009lid و @qassim-t نعم طريقتي لم تختلف كثيرا عن مرفقك السابق ..... ولكن التحديث أنت عملته عن طر يق استعلام وأنا استخدم ال vb فقط هو هذا الاختلاف

بارك الله فيك أخي @خالد عبد الغفار اشكرك ...

استكمالا هذه بعض المصطلحات المحجوزة من الكلمات المحجوزة: ADD - ALL - AND - BETWEEN - Count - CurrentUser - DATABASE - DATE - FROM - GROUP - INDEX - Level - Macro - Module - NAME - NUMBER - PRIMARY - Query - Refresh - Report - TABLE - Time - USER - Year - YES - YESNO.

أنظر الصورة ......

السلام عليكم جمعة مباركة على الجميع طلب مني أحد الاصدقاء برنامج صغير لتسجيل الاقساط الشهرية للقرض البنكي عملت برنامج وأحب أن اشاركه معكم للفائدة مفتوح المصدر للتعديل ديوني.accdb

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

ضع مثال لسرعة الرد ...

بالتوفيق ,,,,,,,,,

تفضل ..... nsba.rar

تفضل صباحي_ومسائي.accdb

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

تفضل عملتها عن طريق استعلام تحديث ومايكرو المتغير.accdb

تفضل عزيزي Khalf DateQueryCriteria (2).accdb

قصدك الحد السفلي لحقل الحجرة ... ام ماذا ؟؟

بالمرفق تقرير (ehsa_N_R) عبارة عن احصاء بعدد المتقدم والناجح ..... إلخ مصدره استعلام مخفى من جدول تم العد تمام ولكن النسبة المئوية مش تمام كما أن الإجمالى العام لم استطيع اظهاره رجاء الاطلاع على المرفق وبيان كيفية التعامل مع ايجاد النسبة المئوية بهه الصوره (40 %) على سبيل المثال وللجميع تحياتى nsba.rar

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

السلام عليكم لدي نموذج يحتوي على حقل (المتغير ) احتاج زر عند الضغط علية يتم تحويل كافة الحقل الى القيمة (A) مع اظهار رسالة تحذيرية قبل التغير المتغير.accdb

مخاولة للبخث والتعديل اعتقد ان البحث اموره تمام اما التعديل يتم التعديل لكن تبقى مشكلتين حذف الاسم الذي تم تعديله من مكانه الاول مشكلة التكرار تحياتي القسم11.xlsm

اخي عبد اللطيف.. هذا استعلام بلغة sql حتى تنفذ استعلام ما في الاحداث تكتبه بلغة الاس كيو ال

جزاكم الله عنا خيرا

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

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

أستاذ @عبد اللطيف سلوم احتاج الى شيء ابسط للتطبيقة على قاعدة بياناتي بدون استعلام شكرا لك انا الان وضعت هذا الكود me.المتغير ="A" لكن المشكلة يغير فقط اول سطر

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

تفضل اذا هذا مش طلبك ابشر معك لبكرة صباحي_ومسائي.accdb

شكرا جزيلا

وعليكم السلام ورحمة الله وبركاته تابع الصور واي استفسار لا تترد بعد الانتهاء من التطبيق تجد ملف اسمه أمان في المكان الذي اخترته من الصورة الأخيرة هذا الملف يتم استدعاؤه عن طريق وضع هذا الكود تحت زر امر في مكان خاص بك في أي نموذج DoCmd.RunCommand acCmdWorkgroupAdministrator بعد ذلك تضع الاسم الذي تم عمله به وهنا في الصور Khalf بعد الدخول نستطيع تعديل الاذونات كما نريد الصور تقريبا مرتبة حسب الخطوات 🙂

هلا بك اخى / عبد اللطيف سلوم افتح التقرير فى عرض التصميم وشاهد الكود أولا

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

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

بالاعتماد على نفس الكود الذي وضعته لك في مشاركة سابقة مع بعض التعديلات تفضل Dim File_Path As String Dim File_Name As String Dim Name_Path As String Dim Fso As Object Dim NewPath As String Set Fso = CreateObject("scripting.filesystemobject") File_Path = Application.CurrentProject.Path & "\CONTACT\" NewPath = Application.CurrentProject.Path & "\CONTACT\Old\" File_Name = Dir(File_Path & "\*.*") Name_Path = File_Path & File_Name If InStr(File_Name, crn) > 0 Then MsgBox (" * تم ايجاد تطابق بين رقم كذا والملف - سيتم نقله * ") Fso.MoveFile Name_Path, NewPath Else MsgBox (" * لا يوجد ملفات لنقلها * ") End If MoveFile.mdb CONTACT.rar

لو تنزل مثال للتطبيق يكون افضل

تفضل عملت الطريقة من خلال استعلام ونموذج ورقة بيانات المهم وصلنا للنتيجة صباحي_ومسائي.accdb

أخواني عبد اللطيف سلوم و AlwaZeeR اليكم رابط للقاعدة بها التقرير المراد توضيح عدد الكلمات بالفترة الصباحية والمسائية لتعديل المطلوب شكرا مقدما http://www.mediafire.com/file/sfh2qf2dvf24f0u/%D8%B5%D8%A8%D8%A7%D8%AD%D9%8A+%D9%88%D9%85%D8%B3%D8%A7%D8%A6%D9%8A.accdb

تفضل واي استفسار لا تتردد 5555.pdf account.mdb

لك منى كل تحية وتقدير

تفضل تم عمل 90% من التأسيس لاحظ ان اسماء الطوابق والغرف ثابت ليس للمستخدم صلاحية عليها اما السرير فنحن نتعامل مع المعرف (الآي دي) وليس مع رقم السرير فهنا رقم السرير بمثابة اسم السرير وكل مستخدم يمكنه تسمية السرير بما يفهمه هو فمثلا بالمثال قمت بتسمية السرير بثلاثة ارقام تمثل من اليسار : الطابق/ الغرفة / رقم السرير عملت استعلام اختبار لاظهار المتاح من الأسرة شروط المتاح حسب التالي : 1- ان يكون خيار متاح مفعل 2- ان يكون حقل تاريخ البداية فارغ // أو // يوجد تاريخ في حقل النهاية واعذرني مستقبلا فيما لو لم ابادر بالرد لأني احتاج لنقل المثال بسبب الاصدار الى جهاز آخر sakan.accdb بقي ان تضيف حقل (نعم/لا) بجانب حقل نهاية التاريخ فحين يتم ادخال تاريخ الخروج يتم ايضا التعليم على حقل : نعم بحيث نضعه ايضا ضمن المعايير حتى لا تظهر الاشغالات المنتهية السابقة

السلام عليكم ورحمة الله و بركاته كيف يمكن ظهور صور محددة عندما لا يكون للموظف صورة على الجهاز و الصورة مرفقة No وجزاكم الله خيراً Photo.rar

لأخواني الأفضل وكذلك لزميلي العزيز SEMO.Pa3x احيية على جهدة في فكرته الجميلة لكن يوجد في اكسس تثبيت الخطوط بدون ادوات خارجية وبدون تحديد مسار يكفي وضع الخطوط في مجلد Fonts مع قاعدة بيانات ويتكفل الكود بتثبيتها بدون وسائط او ادوات خارجية، وبالطبع مع كتابة اسم الخط في الكود وقد عملت ملف قبل نصف سنة بهذا الامر ، وهذا مثال للكود الموجود بالملف res = AddFontResource(CurrentProject.Path & "\fonts\DS-DIGI.ttf") مرفق ملف إضافة الخطوط للويندوز.rar

أنت بحاجة إلى إنشاء صورة بالامتداد BMP وتسميتها بنفس اسم مشروعك وفي نفس مجلد المشروع. للملاحظة.. ينبغي أن يكون حجم الصورة مقبولا لكي لا تتأخر في الظهور.

للرفع

يثبت عدم عجز الاكسس كما يتخيل البعض اعجبنى جدا جدا جدا احببت مشاركتكم اياه https://github.com/krishKM/Modern-UI-Components-for-VBA

بيان الأرباح والخسائر.xlsm

اخي وجيه مشكور علي كلماتك ومرورك تحياتي

أهلين أخي العزيز جعفر عودة ميمونة إن شاء الله نعم لقد وجدت ذلك. شكرا جزيلا على المساعدة و هذا هو الكود المسؤول عن إنشاء ملف أكسس جديد : mdb_Path_Name = CurrentProject.Path & "\ddd.accdb" Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet) If Dir(mdb_Path_Name) <> "" Then Kill mdb_Path_Name Set dbsNew = wrkAcc.CreateDatabase(mdb_Path_Name, dbLangGeneral) dbsNew.Close wrkAcc.Close

وعليكم السلام اخي صالح 🙂 مسقط التصفح يعمل ملف اكسس جديد ، ويعمل جدول بحقوله ، ونموذج بكائناته وكود لها : . جعفر

هذا الشعار New Bitmap Image (5).bmp

وعليكم السلام تفضل . والنتيجة . جعفر 321.New Microsoft Access قاعدة بيانات (6).accdb.zip