محمد التميمي

نعم اخي العزيز قمت بذلك دون فائدة

اخي العزيز بعد تنصيب الفونت والتشغيل لم يعمل وظهرت هذه الرسالة

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

جداً اسف استاذي القدير

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

وصلت الفكرة جزيل الشكر والامتنان

السلام عليكم بارك الله بجهودك القيمة اخي واستاذي صالح سؤال: ماذا لو كان التحديث يشتمل على نموزج او تقرير كيف سيكون العمل مع فائق الشكر والتقدير

السلام عليكم الف الف مبروك الترقية اخي الفاضل ابا جودي وجعلك الله ذخراً لهذا الصرح العظيم

السلام عليكم الف الف مبروك الترقية اخي الفاضل essam rabea وانشاء الله تكون حلقة خير ومحبة من سلسلة حلقات خبرائنا الاعزاء

كل الشكر والتقديرللاخ الكريم SEMO.Pa3x والى كل من ساهم بهذا بالموضوع واعمام الفائدة للجميع وجزاكم الله خير جزاء المحسنين ...

السلام عليكم مشكورين اخواني عبد اللطيف وابا جودي وهذا التعديل بالعربية وساعة بعقارب Desktop.rar

بارك الله بجهودك اخي aaaamido

وعليكم السلام قم بتطبيق هذا الدرس ستجد ما تبحث عنه

السلام عليكم شكراً اخي midomashakel الرابط كان مهم جداً وكان هو الحل المناسب شكراً اخي العزيز ابو ياسين شكرا اخي رمضان وبار الله بجهودكم القيمة

السلام عليكم الكد ادناه يعمل للتأكد من وجود البيانات وعدم تكرارها المطلوب التعديل على الكد عند الانتقال الى سجل جديد واكتب بيانات موجودة اريد من التعديل ان ينقلني الى السجل الذي اكتشفه كسجل مكرر لا ان يخبرني برسالة التكرار فقط وجزاكم الله خير الجزاء ' مفتاح اضافة موظف اخر لنفس القرار Dim strSQL As String Dim intHow_Many As Integer strSQL = "[KararNom]='" & Me.KararNom & "'" strSQL = strSQL & " And [KararYear]='" & Me.KararYear & "'" strSQL = strSQL & " And [CompID]=" & Me.CompId intHow_Many = DCount("*", "TblKararat", strSQL) If intHow_Many > 0 Then NameFd = Me.KararID MsgBox "لا يمكن تسجيل هذا الاسم بالنظام لانه مسجل مسبقا" End If 456.mdb

شكراً اخي واستاذي الكريم ابو خليل تم تجربة الكد وهو يعمل

السلام عليكم

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

السلام عليكم الحمد لله على سلامتك اخي ابا جودي ادعوا لك الله العلي القدير ان تكون في اتم الصحة والعافية ومن الله التوفيق

تسلم اخي الكريم أبو عبدالله الحلوانى والله ما خسر الي سماك خبير طبقت حسب رابط موقع مكروسوفت لان الفديو غير واضح ونجحت العملية واعطاني ترقيم تلقائي من ستة ارقام . وهذا الرابط ادناه الذي دخلت عليه في الرجستري وذهبت الى ثامن اختيار وقمت بفتحه وبدلت الارقام بثمانية احرف F Computer\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\Access Connectivity Engine\Engines\ACE تسلم وبارك الله بك وجعله في ميزان حسناتك

السلام عليكم بعد التحية والسلام لدي جدول بيانات بدون اي ترقيم فيه 600,000 ستمائة الف سجل وعندما اقوم بأنشاء ترقيم تلقائي للجدول لا يقبل ويظهر لي الرسالة ادناه لم اجد لها حل في (خيارات اكسس) ارجوا مساعدتي في انشاء اي نوع من الترقيم علماً اني لا استطيع تحميل الجدول الى المنتدى لانه يحتوي على بيانات حكومية ولكم مني فائق الشكر والتقدير

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

اسف انقطعت الكهرباء

تريد الكد على اي جدول بالتحديد

تفضل هذا الكد DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM [اسم الجدول]" DoCmd.RunSQL "DELETE * FROM [تستطيع تكرار الجملة لعدة جداول]" DoCmd.SetWarnings True End Sub ارجوا ان يكون هذا طلبك