mrnooo2000

رائع أخ محمد و لكن لو أكملت هديتك بالشرح لكان ذلك كرم منك ملحوظة رابط التحميل لا يعمل

طريقتك صحيحة أخ sahob و لكن يمكننا النقل مباشرة Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFolder "c:\last", "e:\last" [\code]

الفكرة اخى اننا فصلنا النوعين كلا فى استعلام (استعلام تحديد) و هو يبدأ ب select ثم اعدنا جمعهما مره ثانية فى استعلام جديد ( استعلام توحيد ) و هو يربط الاستعلامين السابقين بعبارة union all ثم يتم ترتيب السجلات كما تحب و هنا تم الترتيب عل حسب الرقم t1.no

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

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

مادمت تجيد vb فلاحظ المرفق و لاحظ حدث عند الفتح للتقرير New تطبيق Microsoft Office Access.rar

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

الافضل ارفاق المثال حتى يتسنى التعديل عليه

تفضل أخى New تطبيق Microsoft Office Access.rar

يمكن عمل ذلك بجعل مصدر سجلات التقرير عبارة عن جملة sql

تفضل أخى تم تنفيذ ما تريد فى الاستعلام tt 1.rar

أولا هذا الموضوع له طرق كثيرة ممكن عن طريق الكود و ممكن عن طريق استعلام و لو كان هناك شىء غير واضح يرجى ارفاق مثال للتطبيق عليه ثانيا بالنسبة للاستفسار الثانى DoCmd.Close acForm, Me.Name acform تعنى ان العنصر عبارة عن نموذج me تعنى هذا النموذج او التقرير ( حسب…

و هل واجهتك مشكلة فى ذلك

أخى العزيز اعتذر لاننى لم اشاهد الموضوع الا الان على بركة الله و انتتظر ابداعاتك ان شاء الله

أخى العزيز تفضل ما تريد نفس الكود الاول و لكن كان هناك جزء بسيط و هو اضافة حقل recode الى استعلام الاضافة Data-ddc-Num.rar

بسيطة أخى قم بالغاء السطر الاول من الكود و هو خاص باضافة الحقل الى الجدول CurrentDb.Execute ("ALTER TABLE tCandidateTemp ADD COLUMN ReCode Text;")

لا قول بعد كلام اختنا و استاذتنا زهرة

اليك هذا الكود اخى يتم اولا فحص ما اذا كان الملف موجود فاذا كان موجود يتم حذفه Dim aFile As String aFile = "C:\Orders\mailorder.xls" If Len(Dir$(aFile)) > 0 Then Kill aFile End If

و لماذا لا يكون جدول واحد

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