محمد التميمي

بارك الله بجهودك اخي 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 ارجوا ان يكون هذا طلبك

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

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

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

نعم فعلاً هذه الخاصية لا تعمل على اكسس 2003 اليكم الملف المرفق لمن يحتاج اليه اكسس 2013 يعمل بصورة جيدة بالتوفيق PDF تصدير التقرير بصيغة.accdb

اخي ارسل ملف مرفق ليتم مساعدتك نعم اخي ابو ياسين ولاكن يعمل مع استعلام التقرير ( في رقم الفاتورة) [Forms]![فاتورة البيـع].[رقم الفاتورة]

بارك الله فيك يا اخي واستاذي الكريم وجعله الله في ميزان حسناتك وجدت هذا الكد ادناه ايظاً في فديو انكليزي مع استعلام بسيط وقمت بترجمته وتطبيقه ونجح Dim FileName As String Dim FilePath As String FileName = Me.[اسم المشتري] & "رقم" & Me.رقم_الفاتورة FilePath = "C:\Users\Mxm\Desktop\" & FileName & ".pdf" 'DoCmd.OutputTo acOutputForm, "فاتورة البيع", acFormatPDF, FilePath DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, FilePath MsgBox "تم حفظ التقرير بصيغة PDF بنجاح", vbInformation, "رسالة تنويه" مع فائق شكري واحترامي....

تفضل اخي ابو ياسين هذا الملف المرفق الكد الحالي يقوم بتصدير جميع الفواتير الى pdf والمراد تصدير فاتورة واحد فقط والشكر لك فاتورة.accdb

السلام عليكم استاذ ابو ياسين المحترم انا غيرت بالكد تغيير بسيط ولاكن لم افلح على امل ان يقوم بتصدير فاتورة من اختياري ولاكن قام بتصدير جمبع الفواتير لملف pdf واحد وحسب ما فهمت من الكد المكتوب نقوم بادخال رقم الفاتورة وانا اوريد اختيار اي فاتورة عشوائيا من خلال الضغظ على زو يقوم بتصديرها الى pdf ارجوا التصحيح وجزاكم الله خير الجزاء Dim RepName As String RepName = "[رقم الفاتورة]=" & Me![رقم الفاتورة] DoCmd.OutputTo acOutputReport, "وصل بيع", acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False

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

اخي واستاذي kanory رأيت الاضافة سلمت يداك ولاكن الكد يقوم باضافة قيمة جديدة للحقول المراد لها الاضافة ويحذف القيم القديمة اذا كانت موجودة سؤالي ماذا يكون شكل الكد لو اردنا اضافة قيم الى قيم موجودة سلفا بدون استبدالها او حذفها مجرد الزيادة عليها مع فائق الشكر والتقدير emp.accdb

السلام عليكم عذراً تم تغيير المداخلة الى مشاركة