عمر ضاحى

هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز وهيكون مسار الحفظ فى الرجسترى هو [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 يوم سبت خلال هذه الفتره ) وهذا ما اريده

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

انا اريد ان افهم هذا وفعليا اريد ان اتعلمها لكن لما اجرب بالاقى بيدينى خطأ والدنيا بتقف لان الداله محتاجه شرح توضيحي اكثر قليلا اعتذر لكن انا مش فاهم نقطه هنا انا استبدل Date1 ب begdate عندي ؟ انا لا اريد ان تظهر النتيجه فى الفورم بل يحتفظ بها الاكسيس فى الذاكره للرجوع اليها ويحدث سبب وجودها وهو الداله التاليه التى سيكون بها العمليه الحسابيه

للاسف لم يعمل معي ايضا هل هو يعمل جيدا معك ؟ انا معايا اصدار 2019 هل لهذا تأثير محتمل ؟ وايضا اعتقد ان من الممكن ان يكون الخطأ فى هذا السطر "WeekdayName(weekday([HoliDays]),true)= 'Fri'" & _

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

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

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