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

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

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

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

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

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

أستاذ @kanory

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

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

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

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

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

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

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

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

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

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

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

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

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

تفضل عملت الطريقة من خلال استعلام ونموذج ورقة بيانات المهم وصلنا للنتيجة صباحي_ومسائي.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

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

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

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

للرفع

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

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

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

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

وعليكم السلام أخي كرار هاي ما كانت سهلة لازم تستخدم الزر اللي في النموذج ، والكود حقه: 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

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