essam rabea

أ.سراج_مهمة هو الحل قدمه اليك أ.محمد ابوعبد الله ولكن انت عندك تكرار دورة 3 فى جدول store عدلها الى دورة 2 وهتظبط معك إن شاء الله

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

أستاذنا kha9009lid .. أ.حسين العربى أعزكم الله .. ولكن لى طلب بعد إذنكم .. يعنى بالمصرى اللى سؤاله إتجاوب يفوت أى حاجة مش كله شكر شكر شكر .. مفيش دُعا ..🥰

أ.حسين العربى عسى أن يكون المطلوب test.accdb

أ.محمد صلاح1 فك الضغط .. شغل .. سيتم إنشاء فولدر على المسار التالى C:\Users\Public\Way to Heaven وستجد بداخله RenameDB.cmd به كود التحقق من إسم الملف وإمتداده برمجيا جرب ورد Test.zip

طب ايه رأيك تنزل بالمثال على طول

الحمد لله أ.f16 عفواً إقرأ آخر أربعة أسطر من بداية سؤالك

أ.محب الاكسس ممكن لو سمحت ترفق مثال لكى يرى أعضاء المنتدى حلا للمشكلة

DoCmd.GoToRecord , , acNewRec

أخى عبدالعزيز محمد هل هذا ما تريده؟ Database1.accdb

مش عارف اقولك ايه فى مثالى افتح التقرير فى وضع التصميم ستجد lab1 و lab2 هما مخفيين .. اظهر واحدة منهم وافتح التقرير وشوف هتظر ولا لأ .. إن لم تظهر حاول تغمق اللون الرمادى وجرب فى انتظار الرد بالتوفيق

أعتقد والله أعلم أن أضعف حماية لبرامج قواعد البيانات كانت من نصيب الأكسيس رغم أنه فى رأيي _ الذى لا يعتد به وسط هذا الصرح _ من أشملها كما أعتقد أيضا أن هذا القصور متعمد وإلا فلن نجد لبرامج فيجيوال استوديو من مبرمجين. ولنرجع الى الوراء قليلا وبالتحديد أكسيس 2003 أى منذ 16 عاما كان به إضافة فريدة رائعة سهلة تكاد تضاهى ماكان فى فيجيوال بيسك وقتها ألا وهى Shortcut Menu والتى تم إزالتها من الإصدارات التاليه والإستعاضة عنها بـعمل كود طويل عريض تقريبا بلغة XML لا أتذكر بالضبط حيث أنى حاولت العمل به والحمد لله فشلت 🤣🤩 .. ولنسأل أنفسنا ما هى الإضافات الجوهرية التى تم إضافتها الى الأكسيس منذ 2007 حتى 2019 غير التغيير فى الواجهات .. سنجد أنها قليلة جدا أعظمها فى نظرى تغيير حجم القاعدة من 1 الى 2 جيجا.ولذا نجد بيننا الى الآن من يعمل على أكسيس 2003. ما أقصده أنه يوجد إتجاه الى تحجيم قدرات الأكسيس لصالح منتجات قواعد البيانات الأخرى حيث أنه فى الأساس كان الأكسيس مصمما للإستخدام المنزلى والمشاريع متناهية الصغر ولكن أظهر ما لم يكن متوقعا من إنتشار وثبات وقوة. وبالنسبة لسؤالك أخى rey360 سأقول لك مختصر الطرق المغلقة فى الحماية المطلقة .. كان فيه واحد إسمه David Dworken دا كان لسة طالب فى كلية من كليات الحاسبات والمعلومات إخترق البنتاجون لمدة 15 ساعة تقريبا. لما يبقى فيه حماية مطلقة أمال الهاكر هيكلو عيش منين كل ده مجرد رأى ... أما الاستاذ @محمد صلاح1 فبقله .. واخد الموضوع على فين يا أبو الصلح وصلنا لتانى صفحة , 412 مشاهدة , 34 رد .... أكمل ولا هتقول انى منفسن 😍

أ.عمار @f16 ياريت حضرتك نريحنا وتقول هل هذا ما تطلبة أم هناك مشكلة أخرى خالص تحياتى

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

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

أ.ayman14 ماهو احنا لاعارفين أسماء النماذج ولا التقارير ولا الحقول ولا فيه مثال جميل جمال .. شوف الكود التالى وعدل الأسماء حسب ما عندك DoCmd.OpenReport "Report1", acViewNormal, , "[Field1]=[Forms]![form1]![Field1] And [Field2]=[Forms]![form1]![Field2]"

الأخ figo82eg وزيادة الخير خيرين بعد مثال أستاذنا أبو عبدالله الحلوانى PrintMasterAndCopy.mdb

أ.figo82eg ارفق مثال به النموذج والتقرير والاستعلام .. إن شاء الله خير

أستاذنا ازهر عبد العزيز عذرا لم تكن إجابتك 😍 فى الإستعلام المستند اليه التقرير وفى ال Criteria لحقل listid نخبره ان يجعل هذا الحق مساويا لـ listid على النموذج المفتوح والذى اسمه flsh بس خلاص خالص تحياتى

If الشرط الأول And الشرط الثانى Then DoCmd.OpenReport "Report1", acViewPreview, "", "", acNormal DoCmd.RunCommand acCmdPrint Else MsgBox "لم تتحقق الشروط" End IF

اخى mostafa_27 هل هذا المرفق هو المطلوب أو ارفق مثال للتعديل kk.accdb

تفضل اخى ازهر عبد العزيز New Microsoft Access قاعدة بيانات.zip

أخى figo82eg إن كان المرفق هو المطلوب يبقى لازم تدفع دعوة حلوة بظهر الغيب PDFMove.mdb

الأخ ayman14 لعله المطلوب Dim PathFile As String PathFile = Application.CurrentProject.Path & "\MyTeme\phoModel\" & [NmMD] & ".*" If Len(Dir$(PathFile)) > 0 Then 'SetAttr PathFile, vbNormal Kill PathFile End If سيتم حذف جميع الملفات التى تحمل نفس الإسم مع إختلاف إمتداداتها خالص تحياتى

إن كنت ستنقل جميع ملفات PDF من فولد مسمى مثلا PDF على محرك ال D الى فولدر بنفس الاسم على محرك ال E فاستخدم هذا الكود والذى يقوم بالنقل والإستبدال اذا كان الملف موجود مسبقا أنشى فولد بإسم PDF على المحرك D وضع به بعض ملفات PDF .. وأنشى فولدر آخر بإسم PDF على المحرك E ودعه فارغا ضع زر أمر على نموذج وأدخل الكود التالى فى حدث عند الضغط .. ووافنى بالنتيجة Dim fso Set fso = VBA.CreateObject("Scripting.FileSystemObject") sSourceFile = "D:\PDF\*.pdf" sDestinationFile = "E:\PDF" fso.CopyFile sSourceFile, sDestinationFile, True fso.DeleteFile sSourceFile واذا رغبت فى عدم مسح ملفات المصدر فإلغى آخر سطر من الكود خالص تحياتى