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

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

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

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

أستاذ @kanory

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

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

شكرا جزيلا

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

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

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

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

السلام عليكم قمت بعمل استعلام و في معيار حقل التاريخ Between [Begin] and [End] 0 حيث وضعت أسماء حقول البحث في النموذج ضمن القوسين المنكسرين و بعد تنفيذ الاستعلام يقوم بعرض النتائج المطلوبة و لكن عند خلو حقول المعايير في النموذج يظهر الاستعلام خالياً ما هي الطريقة التي يمكن للاستعلام بها عرض السجلات كافة عند خلو حقول المعايير؟ و شكراً

جزاك الله كل خير هو المطلوب @qassim-t الشكر موصول إلى أخي الحبيب @عبد اللطيف سلوم

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

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

أخواني عبد اللطيف سلوم و 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

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

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

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

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

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

للرفع

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

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

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

حسب فهمي للمطلوب، جرب المرفق لعل فيه ما تريد... بن علية حاجي WHAT IF.xlsx

السلام عليكم و رحمة الله تعالى و بركاته لقد قمت بكتابة كود يقوم بإنشاء ملف أكسل جديد و آخر يقوم بإنشاء ملف وورد جديد و هذه هي الأكواد. كود إنشاء ملف أكسل: Dim xlApp1 As Object Dim xlWB1 As Object curPath = CurrentProject.Path & "\salah88.xlsx" Set xlApp1 = CreateObject("Excel.Application") xlApp1.Visible = False Set xlWB1 = xlApp1.Workbooks.Add xlWB1.SaveAs curPath xlApp1.Quit Set xlWB1 = Nothing Set xlApp1 = Nothing MsgBox "لقد تم إنشاء ملف أكسل بنجاح" كود إنشاء ملف وورد: Dim wdp As Word.Application Dim doc As Word.Document FilePath = CurrentProject.Path Set wdp = New Word.Application Set doc = wdp.Documents.Add wdp.Visible = True wdp.ActiveDocument.SaveAs FilePath & "\s1988.doc" ', wdFormatDocument wdp.Quit Set doc = Nothing Set wdp = Nothing MsgBox "لقد تم إنشاء ملف وورد بنجاح" السؤال: كيف يمكن إنشاء ملف أكسس جديد بنفس الطرق السابقة حاولت كثيرا و كل المحاولات باءت بالفشل. هناك طرق أخرى مثل نسخ ملف ثم حذف كائناته أو تصدير جدول أو نموذج ثم مسحه و ترك الملف فارغا. لكن أنا أريد معرفة طريقة الإنشاء بالطرق السابقة

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

وعليكم السلام أخي كرار هاي ما كانت سهلة لازم تستخدم الزر اللي في النموذج ، والكود حقه: Private Sub cmd_Combine_Click() 'delete the old data mySQL = "Delete * From tbl_PP" CurrentDb.Execute (mySQL) Dim rstpp As DAO.Recordset Dim rst As DAO.Recordset Set rstpp = CurrentDb.OpenRecordset("Select * From tbl_PP") '1 Set rst = CurrentDb.OpenRecordset("Select * From sh Order By tash") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'add all the records For i = 1 To RC rstpp.AddNew rstpp!iDate = rst!tash rstpp!Purchase = rst!mbsh rstpp.Update rst.MoveNext Next i '2 Set rst = CurrentDb.OpenRecordset("Select * From ts Order By tats") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'we should check if the date is available, then we should use it For i = 1 To RC rstpp.FindFirst "iDate=#" & rst!tats & "#" If rstpp.NoMatch Then rstpp.AddNew rstpp!iDate = rst!tats rstpp!Payment = rst!mbts rstpp.Update Else rstpp.Edit 'rstpp!iDate = rst!tats rstpp!Payment = rst!mbts rstpp.Update End If rst.MoveNext Next i rstpp.Close: Set rstpp = Nothing rst.Close: Set rst = Nothing DoCmd.OpenQuery "qry_PP" End Sub . وهذه النتيجة: جعفر 231.الرصيد.accdb.zip

انظر الصورة

ضع المشيرة في نهاية الصفحة الأولى في سطر جديد من شريط الأدوات اذهب الى ادراج / فاصل سيظهر لك مربع حوار من مربع الحوار ومن فاصل مقطعي اختر الصفحة التالية ثم موافق .. ستنتقل المشيرة الى بداية الصفحة الثانية من شريط االادوت .. عرض / اختر رأس وتذييل الصفحة سيظهر رأس الصفحه وسيظهر أعلاه كلمة : ( كالسابق ) طبعا سنزيل هذه الكلمة كيف ؟؟ الشريط الخاص برأس وتذييل الصفحة سيكوت ظاهرا امامك وستجد ضمنه ايقونة مضيئة أو مفعلة على شكل مستندين متجاورين عملها الارتباط بالسابق .. انقر عليها ستلاحظ اختفاء الكلمة المذكورة وهذا يعني انفصال المستند من الصفحة الثانية عما قبله الآن تستطيع أن تضع المشيرة في بداية الصفحة التالية وتدرج اطار يختلف عن الذي قبله ، وهكذا ،،، . لاحظ : عندما تفتح حدود وتظليل / حد الصفحة : هناك مربع تحرير وسرد في اسفل الصفحة الى اليسار اسمه " تطبيق على" اختر من القائمة " المقطع الحالي " ودمتم بخير .