أمجد جمالي

هذا هو الكود فقط قم بتعديل المسميات MyVarValue = Forms!MyFormName!MyFieldName ابو نادر

السلام عليكم يوجد طريقة اخرى وهي عمل لينك للصورة من الهارد الى قاعدة البيانات ابحثي في المنتدى مستخدمة هذه الكلمات تحميل صورة upload picture زشكراً ابو نادر

تفضلي هذا مثال على الطريقتين اعتذر ليس لدي الوقت للشرح ابو نادر SumFunction.zip

ليش ما تقومين بتغيير امتداد الصورة فحجمها كبير جداً وليكن مثلاُ الى JPEG Image ابو نادر

تفضل وتدلل ابو نادر DisableCloseApplicationNew.zip

تفضلي TxtResult = MyTxt1 + MyTxt2 + MyTxt3 + MyTxt4 تفضلي اذا كانت العملية الحسابية في Form في ال FormFooter ضعي هذه الكود في ال ControlSource =Sum([MyTxt1]+[MyTxt2]+[MyTxt3]+[MyTxt4]) ابو نادر

اخ اسلامي الملف يعمل عندي تمام وجربته اكثر من مرة لكن يجب عليك ان تأخذ بالإعتبار لاتسمي المسميات في الجداول بهذه الطريقة My Field بل بهذ الطريقة MyField وانا عدلت خانة في اكثر من جدول وكويري ابو نادر

حياك الله

تفضل ابو نادر DisableCloseApplication.zip

sorry for late please note that copyright Proper function for Mr.Abu Hadi the solution attached with new form for this case and this case Amjad Jamali Abu Nader الترجمة : آسف عى التاخير برجاء ملاحظة ذلك أن المالك الحقيقي للكود هو الاستاذ أبو هادي الحل مرفق مع نموذج جديد لهذه الحالة ولهذه الحالة أمجد الجمالي أبو نادر 4officena.rar

السلام عليكم من بعد اذن الاخوان اخي الكريم الباشق1 1-ماهو اصدار الويندوز الحالي وماهو اصدار الويندوز قبل الفورمات 2-ماهو نظام الملفات الحالي Fat 32 or NTFS 3-ماهو حجم الملف الحالي وكم كان حجمه قبل الفورمات 4-حاول نسخ البرنامج وفتحه في ويندوز 98 عليه اوفيس 2000 جرب هذه الاحتمالات ومن ثم رد علينا ابو نادر

السلام عليكم ورحمة الله وبركاته من بعد اذن استاذنا جمال بالنسبة لهذا السؤال استخدم طريقة Ado للإتصال بقاعدة بيانات غير الحالية واذا كنت من المبتدئين راجع هذا الموضوع تحياتي ابو نادر

هل تعتبر هذه السطور إطالة :') طيب لو كان حبيت تختصر شو كنت عملت :@ أظن كنت قلت مرحبا شباب الرجاء حل مشكلتي وشكراً اخي الكريم قرأت موضوعك اكثر من 5 مرات ولم استوعب المطلوب فهل تريد كود يقوم بإنشاء فولدر جديد ويكون اسمه نفس اسم الحقل ام كود يقوم بفتح فولد في الأصل موجود في جهازك ومن ثم تقوم بنسخ قاعدة البيانات الى ذلك الفولدر ابو نادر

تفضل Between [Forms]![FrmMyFormName]![DateFrom] And [Forms]![FrmMyFormName]![DateTo] ابو نادر

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

حياك الله

اختي الكريمة الطريقة التي ذكرتها فيها لفة طويلة راجعي هذا الموضوع يمكن يساعدك شكراً

تفضل أخي الكريم Public Function Ap_CheckRecordStatus() Dim RstCheckRecordStatus As New ADODB.Recordset RstCheckRecordStatus.Open "TblMyTable", CurrentProject.Connection, adOpenDynamic, adLockOptimistic Select Case RstCheckRecordStatus.EditMode Case adEditAdd MsgBox "New Record Has Been Created", vbInformation, "Info MSG" Case adEditDelete MsgBox "One Record Has Been Deleted", vbInformation, "Info MSG" Case adEditInProgress MsgBox "Record Edit In Progress", vbInformation, "Info MSG" Case adEditNone End Select RstCheckRecordStatus.Close End Function يقوم هذا الكود بالتحقق من حالة السجل بطريقة Ado يتحقق اذا كان احد يعدل في السجل او يحذف سجل او يضيف سجل جديد اذا تحقق هذا الشرط سوف تظهر رسالة مع وصف لحالة السجل لتجربة كل حالة على حدا 1-الحالة الأولى اذا كان شخص ما يعدل في سجل معين Public Function Ap_CheckRecordStatus() Dim RstCheckRecordStatus As New ADODB.Recordset RstCheckRecordStatus.Open "TblMyTable", CurrentProject.Connection, adOpenDynamic, adLockOptimistic RstCheckRecordStatus!MyFieldName = "Amjad N. Jamali" Select Case RstCheckRecordStatus.EditMode Case adEditAdd MsgBox "New Record Has Been Created", vbInformation, "Info MSG" Case adEditDelete MsgBox "One Record Has Been Deleted", vbInformation, "Info MSG" Case adEditInProgress MsgBox "Record Edit In Progress", vbInformation, "Info MSG" Case adEditNone End Select RstCheckRecordStatus.Update RstCheckRecordStatus.Close End Function 2- الحالة الثانية اذا كان شخص يحذف سجل Public Function Ap_CheckRecordStatus() Dim RstCheckRecordStatus As New ADODB.Recordset RstCheckRecordStatus.Open "TblMyTable", CurrentProject.Connection, adOpenDynamic, adLockOptimistic RstCheckRecordStatus.Delete Select Case RstCheckRecordStatus.EditMode Case adEditAdd MsgBox "New Record Has Been Created", vbInformation, "Info MSG" Case adEditDelete MsgBox "One Record Has Been Deleted", vbInformation, "Info MSG" Case adEditInProgress MsgBox "Record Edit In Progress", vbInformation, "Info MSG" Case adEditNone End Select RstCheckRecordStatus.Close End Function 3-الحالة الثالة وهي التي حضرتك طلبتها اذا أضاف شخص ما سجل جديد Public Function Ap_CheckRecordStatus() Dim RstCheckRecordStatus As New ADODB.Recordset RstCheckRecordStatus.Open "TblMyTable", CurrentProject.Connection, adOpenDynamic, adLockOptimistic RstCheckRecordStatus.AddNew Select Case RstCheckRecordStatus.EditMode Case adEditAdd MsgBox "New Record Has Been Created", vbInformation, "Info MSG" Case adEditDelete MsgBox "One Record Has Been Deleted", vbInformation, "Info MSG" Case adEditInProgress MsgBox "Record Edit In Progress", vbInformation, "Info MSG" Case adEditNone End Select RstCheckRecordStatus.Close End Function ولك تحياتي اخي الكريم كان بودي ان ارفق مثال لحتى سهل عليك الموضوع اكثر من ذلك لكن اعذرني فلا املك الوقت لذلك وادعوا لنا بالتوفيق ابو نادر

good morning Mr Islami i'll handle it insha allah هذه هو مثال الاخ اسلامي من بعد تعديل الثغرة الأولى وسوف اقوم بإرفاق ملف ثاني يتضمن التعديلات الأخرى تحياتي للجميع الترجمة : صباح الخير السيد اسلامي ان شاء الله سأتكفل بها 4officena.rar

خبرتي قليلة في الاستعلامات لكن بقول الي اعرفه ًWhere تستخدم لتحديد قيم معينة للعرض مثلاً اذا عندي جدول فيه موظفين بعدة جنسيات وحبيت اعمل تقرير بالموظفين الذين يحملون الجنسية السورية WHERE (((TblUsers.Nationality)="Syrian")); او تعرض كل الجنسيات ما عدا الجنسية السورية WHERE (((TblUsers.Nationality)<>"Syrian")); هذا الي اعرفه وافسح المجال لإهل الخبرة ابو نادر

سؤال ماهي الطريقة التي تنتقلين فيها بين السجلات اذا page up or page down عند التعديل على البيانات سوف تظهر الرسالة من دون الإغلاق الزبدة: تظهر هذه الرسالة عند التعديل البيانات في حال إغلاق النموزج او الانتقال بين السجلات

سوف يظهر فقط عند الإغلاق اختي الكريمة وللتنبيه يوضع الحدث في الفورم وليس في حدث after update للخانة

في حدث بعد التحديث او After Update للفورم ضعي هذه الكود وهي على شكل رسالة وتظهر للمستخدم في حال التعديل فقط MsgBox "Attention, Record Updated Sucessfully", vbInformation, "Data Updated" ابو نادر

لا حول ولا قوة الى بالله انا شو الي خلاني رد على الموضوع ما بعرف أحرجتيني بصراحة من خلال عملي لم يمر علي ابداً شي اسمه تنسيق شعر او إزالة تشكيل من نص معين لكن رح حاول ساعد قدر الإمكان ارفقي ملف فيه مثال بسيط من خلال مواقع الإستضافة المجانية وهي ياهو او جيران او ارسلي الملف الى ايميلي Ajamali@acts-alsarh.com مع شرح وافي للحالة وان شاء الله خير

هذا هو المغزى تركناك لحتى تكتشفي الحل بنفسك :d