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

وعليكم السلام مشاركة مع الاساتذة تفضل التعديل =IIf(Format([التاريخ],"yyyy/mm")<Format(Now(),"yyyy/mm") And [تم الدفع]=0,"قسط متأخر",IIf(Format([التاريخ],"yyyy/mm")>Format(Now(),"yyyy/mm") And [تم الدفع]=0,"لم يحن وقت السداد",IIf(Format([التاريخ],"yyyy/mm")=Format(Now(),"yyyy/mm") And [تم الدفع]=0,"جاهز للسداد"," تم السداد"))) 182.accdb

من منا من لم تحدث له هذه المشكلة وهي تعليق قاعد البيانات في الذاكرة فلا تفتح ولا تقفل مما يضطر البعض إلى إعادة تشغيل الجهاز إليكم هذه الطريقة البسيطة لتجاوز هذه المشكلة 1- اضغط على ctrl+Alt+Delet فيظهر أمامك إطار إدارة المهام افتح على تبويب التطبيقات كما في الصورة اليمنى ثم أشر عل قاعدة بياناتك فستلاحظ أن زر إنها المهمة أصبح فعالا فانقر عليه لإنهاء تشغيل القاعدة . 2- إذا لم تجد قاعدة بياناتك في هذا التبويب فافتح تبويب العمليات كما في الصورة اليسرى ولاحظ الاسم الذي تم التأشير عليه فهذا الاسم خاص بقواعد بيانات أكسس أشر عليه ثم اضغط انهاء العملية في الأسفل . مسألة صغيرة أرجو أن يكون نفعها أكبر ،،،

تفضلوا الملف بعد الفتح Mahdi'sBell (AccessFIX).rar

إذا أردت الشهور للسنة الناقصة (غير المكتملة) فاستخدم المعادلة كالتالي: Me.tmonth = DateDiff("m", Me.Date1, Me.date2) Mod 12

السلام عليكم الحساب في الكود الاول (الصورة الاولى) صحيح تفضل جرب هذا الملف او توضح طلبك بصورة اكثر حساب عدد الاشهر.accdb

انا مثلك لم اسمع بها ............... بالرغم ان النسخة الموجودة لدي لنفس البرنامج واحدث انظر ....

هذه اول مرة اسمع ببرنامج يُرجع النماذج والتقارير والكود ، وكله يعمل تمام !!

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير استبدل الكود اللى فى زر فتح التقرير بالتالى Dim sWhere As String If Len(Me.Combo170 & "") = 0 Then sWhere = "Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere Else sWhere = "DoctorName ='" & [Forms]![frmCalendar_Large]![Combo170] & "'" sWhere = sWhere & " And Month([ApptDate])= " & intPubMonth & " AND Year([ApptDate]) = " & intPubMyYear DoCmd.OpenReport "rpt_qry", acViewPreview, , sWhere End If بالتوفيق

بالعكس ، هذا موضع استعمال الاستعلام مباشرة ، وليس استعماله من الكود 🙂 ثانيا: اضف Not الى الكود ، هكذا IIf(Not IsNumeric(Left([Nass],1)),-1,Null) . اذا اول حرف من اليسار (يعني من بداية الجملة) رقم IsNumeric ، اذن اكتب لي -1 ، وإلا اجعل الحقل Null. اضافة الامر Not معناه اذا اول حرف لم يكن رقم. . ثالثا: جرب هاي IIf(InStr(10,[Nass],Chr(10)),-1,Null) . لاحظت انك لما تكتب الجملة ، فكلامك مستمر ، الى ان توصل الى نهاية الجملة وتتوقف. بينما لما تريد اضافة رقم ، فانت تنتقل الى سطر جديد (رمز التعرف على انك ضغطت على زر Enter على لوحة المفاتيح هو Chr(10) ) ابدا البحث في الجملة عن هذا الرمز ابتدأً من الحرف رقم 10 (اعطيتك مجال اذا الارقام عندك وصلت الى 10 خانات 😁) ، . فيصبح الاستعلام: UPDATE book SET book.check_Page = IIf(Not IsNumeric(Left([Nass],1)),-1,Null), book.check_No = IIf(InStr(10,[Nass],Chr(10)),-1,Null); . . جعفر

ملف آخر حصلته ومن فضلك وافني بالرد حق اتوقف عن البحث أو استمر agenda.rar

البرنامج لارشفة السجلات وحفط المستندات يحقظ المستندات داخل البرنامج بدون مسار للمحفوظات يمكن نقل البرنامج لائي برتشن او مجلد او اي جهاز دون فقد المحفوظات المحفوظات.accdb

جرب هذا ..... If Me.تم_الدفع = True Then MsgBox "تم السداد" DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdSaveRecord End If

السلام عليكم الأمر يتعلق بعدم وجود المجلد ASHRAF- في المكان الذي قمت بتنفيذ الكود فيه... لأن الماكرو يقوم بإنشاء ملف مسمى بتاريخ اليوم والتوقيت في هذا المجلد... ما عليك إلا إنشاء مجلد جديد بالتسمية ASHRAF-

السلام عليكم 🙂 لأني مستعجل فما اقدر اعطيك تفاصيل ، اليك هذا استعلام التحديث : UPDATE book SET book.check_Page = IIf(IsNumeric(Left([Nass],1)),-1,Null), book.check_No = IIf(IsNumeric(Left([Nass],1)) And InStr(10,[Nass],Chr(10)),"-1",Null); . اعمل استعلام جديد ، لا تختار اي جدول او استعلام ، انقر بالفأرة اليمين واختار اول اختيار SQL view ، ثم الصق الكود فيه ، وشغل الاستعلام 🙂 جعفر

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

SAND.xlsm

كلامك صحيح استاذي @AbuuAhmed لكني افترضت ان ادخال التواريخ يومي او عامل Ascending للتاريخ تبقى DMax افضل تفاديا للاخطاء احسنت استاذ

السلام عليكم ورحمة الله تم استبدال الدالة VLOOKUP بالدالة OFFSET والاستغناء تماما عن النطاق بالتسمية DATA في الملف المرفق... دليل اللجان بالغلاف.xls

عليكم السلام اولا : الطريقة التقليدية : يجب عليك اولا تنفيذ بعض الخطوات يدويا 1- الارتباط بالجداول في القواعد الثلاث 2- انشاء استعلام توحيد يجمع بين الجداول المرتبطة انظر الصورة ملحوظة : عدلت على مثالك بعد ان وضعته على قرص C كل ما عليك هو ان تنسخ المثال الى قرص C وتنظر النتيجة اذا اطلعت على النتيجة واعجبتك الفكرة يمكنك تطبيقها في اي مكان من الحاسب بشرط اعادة ربط الجداول من المكان الجديد datas.rar

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

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