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

الطريقة التي استخدمها أخي @عبد اللطيف سلوم ممتازة وبسيطه انظر هذه طريقة اخرى .... المتغير (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

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

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

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

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

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

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

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

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

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

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

السلام عليكم شكرا أخي ابوسليمان شكرا أخي ابن الجنوب الملاحظة1 : إذا قام أي شخص بإيقاف وحدات الماكرو فإنه لن يستفيد من البرنامج يعني يجب أن يحتوي البرنامج على أكواد أخرى تسهل عمل المستخدم وهذا الكود هو للحماية فقط الملاحظة2 : يمكن أن تظهر بعض المشاكل في الكود من خلال تكرار العمل على البرنامج , فعند ظهور أن مشكلة الرجاء طرحها هنا حتى يتم حلها تحياتي للجميع

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

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

شكرا جزيلا

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

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

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

جزاك الله خيراً أستاذى برنامج جميل

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

بالاعتماد على نفس الكود الذي وضعته لك في مشاركة سابقة مع بعض التعديلات تفضل 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

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

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

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

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

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

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

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

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

أهلين أخي العزيز جعفر عودة ميمونة إن شاء الله نعم لقد وجدت ذلك. شكرا جزيلا على المساعدة و هذا هو الكود المسؤول عن إنشاء ملف أكسس جديد : 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

انظر الصورة