ابو عارف

و عليكم السلام تفضل اليك التعديل Random.accdb

المشكلة كانت مي ماكرو للزر Z1 من قائمة وضع بيانات كانت قيمة مختارة (اضافة) حين عدم رغبة مستخدم فتح نموذج للاضافة جديدة فقط يجب تركها فارغا و كذالك الكود: DoCmd.OpenForm "09_Marry_T" يفتح نموذج بشكل عادي او جعله فتح نموذج بشكل خاص كما كان في الماكرو:

ممكن تفضل 01 (1).rar

وعليكم السلام و رحمة الله و بركاته اخي عبدالله غير كود حدث عند تحميل النموذج على: Dim Pt As String Pt = Dir(SelectImage(1, jpg)) Me.Picture = IIf(Pt = "", "", SelectImage(1, jpg)) بتوفيق،،،

اخي saladen تم تعديل المثال بالكود و حسب ما فهمت من السؤال طلب المساعدة.accdb

بعد اذن الاخي و الاستاذ فارس بني هلال عدلت مثال على معايير تالي عند فراغ حقل picFile2 او سجل جديد ، لا يظهر شئ عند وجود مسار في حقل picFile2 و الصورة محذوفة او تغير اسم الصورة ، يظهر صورة (صورة غير موجودة) و غير ذالك يظهر الصورة كما في مسار حقل picFile2 Photo.zip

سيفتح الفورم حسب المطلوب (عرض + اضافة)

وعليكم السلام الحمد لله على حصولك الحل

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

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

شكر لله حاضر ، على قدر مستطاع ان شاء الله تقصد مكان حفظ الملف مكان غير مسار قاعدة ؟

نعم ممكن ان شاء الله اليك المثال ، بعد ضغط على زر الثالث ستجد ملف اكسل او csv اذا حبيت بتنسق آخر ، غير csv الى xls او txt او doc في سطر التالي Outfile = CurrentProject.Path & "\LostRecords.csv" abx.accdb

الحمد لله على نجاح تجربة و بارك الله فيك ايضا. للاستفسار ، هل عرفت اين كانت مشكلة !! على ما اعتقد سبب المشكله لا علاقة لها باصدارات اوفيس لان الملف اساسا بتنسيق 2007 المشكلة ربما كانت في تسميات ازرار الجديدة ، و سبب الحل هو مع اعادة تنصيب اوفيس 2007 ربما اخترت لغة نظام المحلي System local عربيه و حلت المشكلة ، حبذا لو جربت المثال السابق مرة اخرى على اوفيس 2007 دون نسخ اكواد. و لك مني اجمل تحيات.

حسب تجربتي عمود واحد بستوعب على حدود خمسة ملايين سجل تقريبا نظرا لعدد تسلسلات مفقودة بالملايين عدلت على المثال تسلسلات مفقودة مسلسلة من الى و المنفردة نفس رقم المفقود اضغط على زر "احسب" فقط abx.accdb

و جزاك بمثله تفضل اخي TEST_1.mdb

اخي جربه الان 000 - Copy (1).rar

تفضل اخي حسين TEST_1.mdb

وعليكم السلام و رحمة الله تفضل آخی التعدیل حسب فهمی 000 - Copy (1).rar

الحمد لله ولكن انت ما قلت تاريخ هجري

تنسيق مربع نص في نموذج تاريخ ام نص

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

الحمد لله وبارك الله فيك

تفضل اخي الكريم للازالة مسافة بين اسماء Function hr_Sps(MyText As String) As String Dim txt, txtA For Each txt In Split(MyText) If Len(txt) Then txtA = txtA & " " & txt Next hr_Sps = Trim(txtA) End Function ()Private Sub Cnm01_Click Dim DB As DAO.Database Dim rst As DAO.Recordset Set DB = CurrentDb Set rst = DB.OpenRecordset("table") rst.MoveFirst Do Until rst.EOF rst.Edit rst!Xname = hr_Sps(rst!Xname) rst.Update rst.MoveNext Loop MsgBox "تم تحديث بيانات بنجاح" End Sub و للمسافات زائدة استبدل سطر الرابع If Len(txt) Then txtA = txtA & " " & txt على If Len(txt) Then txtA = txtA & "" & txt واخيرا اضافة مكتبة

العفو اخي الكريم Trim([Xname]) ازالة مسافة فبل كتابة الاسم في خانة الاسم و مسافة بعد اسم الكامل مثلا " احمد محمود ابراهيم " الى "احمد محمود ابراهيم" RTrim([Xname]) ازالة مسافة يمين فقط " احمد محمود ابراهيم " الى "احمد محمود ابراهيم " و LTrim " احمد محمود ابراهيم " الى " احمد محمود ابراهيم" Expr1: Replace(Replace(Replace(Replace([Xname]," "," ")," "," ")," "," ")," "," ") هذا دالة تعيد من واحد لغاية خمسة مسافات الى مسافة واحدة، اذا كانت مسافات اكثر من خمسة اضف replace آخر tp.rar

شكر لله حاضر ساشرح الكود بقدر مسنطاع رغم انني لا استحسن شروحات بشكل مطلوب rst.recordset معروف هو مجموعة سجلات جدول absent على معايير محددة (0)rst ارجاع قيمة الموجودة في عمود الاول مجموعة سجلات و (1)rst في عمود الثاني و هكذا MonthNum = rst!shaher تعين قيمة متغير MonthNum هو قيمة حقل الشهر علما بان غيرت تنسيق حقل الشهر من نص الى رقم Dt = DateSerial(rst!YR, MonthNum, 1) تعين قيمة متغير Dt تاريخ، سنة من حقل YR و شهر من shaher و يوم 1 EachMonth = DateDiff("d", Dt, DateAdd("m", 1, Dt)) تعين قيمة متغير EachMonth حساب عدد ايام بين DT و DT+شهر، مثلا 1/سبتمبر/2018 و 1/اكتوبر/2018 For i = 1 To EachMonth حلقات تكرار متغير (i) حسب عدد ايام شهر تبدء من 1 لان عمود 0 "NUm" لا علاقة لنا به If rst(i) > 0 Then اذا كان قيمة عمود الثاني اي اول يوم الشهر اكثر من 0 ، AbsCount = AbsCount + rst(i) القيمه يجمع مع متغير AbsCount (هنا يحسب غياب متواصل) و الا ، يقرأ قيمة AbsCount اذا وصلت اكثر او يساوي 15 يقوم بوضع القيمة في مربع نص اسفل نموذج ثم Exit Sub و اذا كان اقل من 15 ، يغير قيمة AbsCount الى 0 ثم ينتقل الى عمود الثاني و هكذا حتى آخر شهر و حلقة تكرارية الاخيرة لـ i ثم ينتقل الى سجل التالي حتى نهاية مجموعة سجلات.