عمر ضاحى

وهذا ملف للعمل عيه Report.rar

علشان كده طلبت منك ان ترفع ملف من عندك يتم التطبيق عليه ويسهل علينا ما تريد بسم الله ما شاء الله ابداع بس ممكن اطلب اضافه صغيره لو فرضنا ان هناك مجلد اسمه img مع ملف قاعدة البيانات وان فى جدول الطلبه رقم جلوس 123456 و فى ملف الصور img هناك صورة اسمها 123456.jpg كيف اربط بينهم تلقائي بدون ما كل مره اذهب لوضع مسار الصوره

ممكن ترفع ملف يكون فيه الفورم علشان نطبق عليه الكود

الف الف شكر ربنا يجازيك عنا كل خير ويحفظك من كل سوء الف شكر

اولا احب اشكرك بشده على العمل الرائع بسم الله ما شاء الله ابداع هل يمكننى ان اطلب طلب اضافى ان فى حال ملف INI غير موجود يقوم بأنشاء الملف وادخال القيمه فيه

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

هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز وهيكون مسار الحفظ فى الرجسترى هو [HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option] بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى مرفق ملف للتوضيح Project3.accdb

للتوضيح وللفيده لغيري انا عملت الموضوع ده بربط النموذج بجدول انشأته لحفظ الاعدادات وشغال تمام لكن اريد ان اقوم به ك كود VBA والملف المرفق للتوضيح ما فعلته Project2.accdb

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

فعلا هذه النقطه لم انتبه لها فى هذه اللحظه واذا زاد حجم البيانات هيزيد بالتالى الضغط على المعالج (مشكله) انا كنت ابحث عنها ظانن انها جيده ( ولكى اعرف كيف افعلها لغرض التعليم) اشكرك شكرا جزيلا على المعلومه

هذا هو بارك الله فيك ويعطيك الف الف صحه

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

لم يعمل معى

السلام عليكم كما هو واضح من العنوان اريد ان اضيف معادلة فى حقل (استخدمه كعملية تسلسليه اريد ان اجعل حقل معين فى جدول يعطي كود تسلسلى رقم + حرف مثل E100001 E100002 وهكذا هل يمكن فعل هذا ؟ واذا كان نعم ينفع كيف افعل هذا حاولت ب دالة =Nz(DMax("[FileNo]";"TblEmpl");100000)+1 لكن اعطانى مجموعة اخطأ زي ان Nz متنفعش وغيرها

يمكن استبدالها ب rs.Update ولا ايه رأيك استاذ @محمد أبوعبدالله

طيب لو انا عاوز اخلي الكود يحذف السجل اغير فقط السطر ده من rs.Edit الى rs.Delete ?

السلام عليكم بعد اذن حضرتكم كنت محتاج اصلح كود تعديل بيانات فى جدول Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID = cbjobNo") rs.Edit rs.Fields(ArNatiName) = [txtArJobName] rs.Fields(EnNatiName) = [txtEnJobName] rs.Update rs.Close Set rs = Nothing الخطأ بيحيبه لى فى السطر Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID = cbjobNo") وشكرا جزيلا

هل يمكن تحديث البرنامج للعمل على نوات 64 بت ؟

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

لما باحاول احفظه لاصدار 2003 بيرفض بسس ان هناك اكود ودوال تعمل على نظام احدث او هكذا

يا جماعة الخير مش عارف اقول ايه بس عرفة فين الغلط حاجه لم اكن اتوقعها ابدا الا وهي التسميه ( السبت الجمعه ) فى الكود كانت مكتوبه بالانجليزي ولما كتبتها عربي اشتغلت مش عارف اقول ايه بس دى نقطه الى حد ما تقلق شوي لان معني هذا ان الكود يعمل او لا يعمل طبقا للغة جهاز المستخدم فهل يمكن ان نعمل شئ حيال هذا الامر sat_Days = DCount("[HoliDays]", "tblHoliDays", _ "WeekdayName(weekday([HoliDays]),true)= 'السبت'" & _ " and [HoliDays] between #" & begdate & "# and #" & enddate & "#") Debug.Print "sat_Days:--->" & sat_Days

انا بالفعل فكرت فيها (ف هي فكره عبقريه من المهندس قاسم ) بارك الله فيه لكن مش متأكد على كيفيت التنفيذ هل اعمل جدول خاص بهذا الاختيار ومنه يستمد الكود المعلومه ولا فى حاجه اسهل

لا اكذب عليك لم تكن هكذا رؤيتى للبرنامج كنت اريد ان اجعل هذا الاختيارات بعيد عن المستخدم لان هذا سيكون سيستم لا يمكن ان يكون بشكل مع موظف وبطريقه اخرى مع موظف بل كنت اريد ان اجعل النظام من الكود نفسه اى اذا اردت ان اجعل النظام يحسب يوم الجمعه فقط او الجمعه والسبت او بدون كله فى هذا السطر Netholidyas = holidaysdat - Fri_Days - sat_Days حيث ان لكل عنصر من الثلاثه داله خاصه به holidaysdat بيستمد معلوماته من جدوله Fri_Days يستمد معلوماته من عدد ايام الجمعه بين التاريخين sat_Days يستمد معلوماته من عدد ايام السبت بين التاريخين فكيف اعيد الصياغه من جديد مع الشرح علشان افهم ليه انا هختار الداله دي واترك الداله دي هذا اذا كان لن يتعبكم فانا اشعر بالاحراج انى اتعبت كل العمالقه امثالكم

انا حملت النموذج وهو شغال تمام انا لى طلبين من حضرتك 1- لو حابب اكتب هذا الكود ب VBA علشان احاول اطبقه عندي افعلها ازاى 2-استأذن حضرتك ان تنظر الى الملف المرفق وتنظر الى الاكواد وتشوف الاليه التى يعمل بها الكود واستسمحك ان يكون صبرك معي طويل حبه حبتين كده 😁 وانظر الى نتيجة الكود الخاص ب holidaysdate = هتلاقيه شغال تمام لكن فى الكود التالى والذى لا يعمل

If begdate <= enddate Then begdate = begdate - 1 Else enddate = enddate - 1 End If Date1 = Fix((begdate + (7 - WkDay)) / 7) Date2 = Fix((enddate + (7 - WkDay)) / 7) CountWkDay = Abs(enddate - begdate) هذا بعد التعديل للعمل عندي والنتيجة اخرجلى عدد 18 وانا اريد عدد يوم الجمعه خلال الفتره يعنى مثلا اليوم تاريخ 20/07/2021 ولو قولت ليوم 27/07/2021 هنا هيكون النتيجه هي ( 1 يوم جمعه و 1 يوم سبت خلال هذه الفتره ) وهذا ما اريده