figo82eg

ممكن اخى الكريم الملف بصيغة 2003

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

أشكرك أخر استاذى الكريم هو المطلوب بالفعل والمناسب للقاعدة التى أعمل عليها

أشكركم جميعاَ اساتذتى الكرام على إهتمامكم طبقت المثال أستاذى محمد أبو عبدالله ولكن ظهر مشكلة لدى مرفق مثال لما قد حاولت تنفيذه Desktop.rar

المشكلة اخى الكريم ان الملف المرقم المراد نقله مرتبط بجدول أخر له نفس الترقيم فلا يجوز تغير أسمه إلا بنفس الأسلوب الذى ذكرته مثل ١_١ و ١_٢ و ٢_١ و ٢_٢وهذا

قام الأخ الكريم @أبو ابراهيم الغامدى بتعديل هذا الكود المرفق والخاص بنقل ملف من مكان الى أخر Sub CopyFile() Dim rs As DAO.Recordset Dim fso, sSourceFile, sDestinationFile Set fso = CreateObject("Scripting.FileSystemObject") Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE") If rs.RecordCount = 0 Then Exit Sub End If rs.MoveFirst Do Until rs.EOF sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf" sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old\" '-- تحقق من أن الملف موجود قبل إجراء عملية النسخ If fso.FileExists(sSourceFile) Then fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile End If rs.MoveNext Loop End Sub ولكن فى حالة وجود ملف بنفس الإسم فى الفولدر المنقول اليه يتم حذف الملف الموجود هل فى امكانية لنقل الملف مع وضع إسم أخر له مثال : الملف المراد نقله أسمه 1 اريد عند وجود ملف بنفس الإسم فى فولدر أولد يتم تسميته 1_1 وعند وجود ملف إسمه 1_1 يتم تمسه الملف المنقول الجديد 1_2 وهكذا

ارجو المساعدة من الأعضاء الكرام

اشكرك اخى ابو ابراهيم على ردك واعذرنى لتأخرى فى الرد على مشاركتك نظرا لضعف النت لدى الكود السابق أتم حل جزء الأول من مشكلتى جزاك الله عنى خيراَ ولكن فى حالة وجود ملف بنفس الإسم فى الفولدر المنقول اليه يتم حذف الملف الموجود هل فى امكانية لنقل الملف مع وضع إسم أخر له مثال : الملف المراد نقله أسمه 1 اريد عند وجود ملف بنفس الإسم فى فولدر أولد يتم تمسته 1_1 وعند وجود ملف إسمه 1_1 يتم تمسه الملف المنقول الجديد 1_2 وهكذا

ارجو المساعدة فى تعديل أحد الأكواد التى أحاول إستخدامها : عند وضعها فى حدث ضغط على زر تظهر الرسالة التاليه Dim rs As DAO.Recordset Dim fso Set fso = VBA.CreateObject("Scripting.FileSystemObject") Set rs = CurrentDb.OpenRecordset("SELECT crn FROM BASIC_DATE") If Not (rs.EOF And rs.BOF) Then rs.MoveFirst Do Until rs.EOF = True sSourceFile = Application.CurrentProject.Path & "\CONTACT\" & rs!crn & ".pdf" sDestinationFile = Application.CurrentProject.Path & "\CONTACT\old\" fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile rs.MoveNext Loop End If

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

Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then With Forms!البيانات الرئيسيه! If Len(.ZDate & "") = 0 Then .krd = 0 .numKrd = 0 .kst = 0 End If End With End If End Sub هو المطلوب أخى الكريم أحمد وتم تنفيذه على قاعدة البيانات لدى بالفعل ولكن واجهتنى مشكلة هى أن إسم النموذج الأساسى باللغة العربية فلا يستطيع الكود التنفيذ لوجود فاصل فى إسم النموذج فهل يوجد حل دون تغيير إسم النموذج

ارجو المساعدة أخوتى الكرام حيث لدى نموذج به بيانات معينة أريد تعديل خانة بالنموذج بناء على شرط معين بناء على قيمة خانة أخرى ومرفق مثال لما اريد New Microsoft Office Access Application.rar

للرفع

هل يوجد افكار كبداية من خبرائنا الكرام

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

ارجو المساعدة حيث قمت فى مثال سابق ساعدنى فى الحل الأخ محمد ابو عبدالله بهذا الكود العظيم وهذا فى حالة اضافة ايام وسنوات على تاريخ معين. Private Sub start_date_Exit(Cancel As Integer) Dim i As Date Dim j As Date i = DateAdd("YYYY", 7, [start_date]) j = DateAdd("d", 1, i) end_date = j End sub ما اريده هو الأن هو العكس اريد ان احذف ايام وسنوات من تاريخ معين

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

New Microsoft Office Access Application.rar ارجو المساعدة حيث اريد عند كتابة تاريخ إصدار بطاقة الرقم القومى يتم كتابة تاريخ الإنتهاء تلقائى وهو إضافة 7 سنوات + 1 يوم على تاريخ الإصدار ومرفق مثال لما اريد

هو المطلوب أستاذى الكريم جعله الله في ميزان حسناتك

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

بارك الله فيك أستاذى الكريم على تعبك ومجهودك وجعله الله فى ميزان حسناتك

ارجو المساعده عند تحدد نوع العميل منزلى يتم إستخدام جدول الأقساط البنكية الخاصه بالعملاء المزلى وعند اختيار نوع العميل تجارى يتم إختيار جدول الأقساط البنكية الخاصة بالعملاء التجارى لأن فوائد النشاط تختلف ومرفق مثال لما اريد Root650.rar

بارك الله فيك أستاذى الكريم هو المطلوب فعلاَ

مرفق مثال يوضح ما اريده Desktop.rar

ارجو المساعدة فى هذه الفكرة حيث لدى قاعدة بيانات اكسس بها خانة قيمة القرض و عدد الاقساط وقيمة القسط. ولدى جدول اكسل به مبالغ القروض من مبلغ ١٠٠ جنيه وحتى ١٠٠٠٠ جنيه مقسم سنوات ١٢ شهر ، ٢٤ شهر حتى ٨٤ شهر كل شهر قيمة القسط. ما اريده هو عند ادخال قيمة القرض وعدد الاقساط يتم كتابة القسط تلقائى بنموذج الاكسس وفق للجدول المرفق. مع العلم ان الجدول محفوظ على شكل ملف اكسل يتم تغييره كل فترة .