عمر ضاحى

مش فاهم ايه نوع الملف الذى تريد فتحه وحذفه صور ام قاعدة بيانات ام ماذا ؟

استاذ @محسن سرحان الملف شغال تمام ربما المشكله عندك جرب ان تغير نسخة البرنامج لاصدار 2007 او اعلى

فى نقطه حضرتك اعتقد انك مش واخد بالك منها انا مبتدأ يعنى انا مش فاهم الكود كله 100% فى حاجات فهمتها وحاجات محتاجه شرح ليه اتكتبت كده وليه الارقام دي وغيره 😌 ويبدو ان حضرتك بتكلمنى على انى محترف ابدا والله 😁 دا انا مسكين 😇 يعنى ايه ال ممكن اكتبه مثلا

الفكره ال انا كنت عاوزها تتلخص فى سطر زي كده me.img= "\img\" & [No_D] & [.jpg] بس مش عارف كيف انفذها هنا بقول للبرنامج روح للفلدر اسم img وابحث عن ملف الصوره يكون اسمه مطابق لاسم No_D وبامتداد .jpg الفكره قريبه من الموضوع الاستاذ @محمد أبوعبدالله بارك الله فيه

وهذا ملف للعمل عيه 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