عبد الفتاح كيرة

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

الخطوة الأولى حذف أى سجل فى الفرعى محدد و مضى عليه 30 يوما فأكثر استعلام حذف حسب الشروط ينفذ عند فتح أو غلق النموذج قاعدة بيانات1.rar

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

حفظه الله و رعاه

حياكم الله نفوس طيبة نحسبها كذلك وفقكم الله وجزاكم عنا خيرا

تفضل أخى رمهان هذا الفيديو لك على نفس الملف المرفوع

نعم eval

نعم الملف يعمل تمام قصدت تمرير من الاستعلام للكود أبلغنا بالنتائج لقد قمت باستحدام val عمليا فى ملف أعمل عليه لعل eval ألغيت فى 2013

موجودة أستاذى فى معيار الاستعلام q_one اجعل نموذج frmedit مفتوحا و اختر قيمة

من ذوقك سعادة المراقب أبا خليل

موضوعكم هذا مبارك هذه طريقة ثالثة لتمرير البارامتر عبر الكود غير الطريقتين الرائعتين السابقتين و الحل بسيط جدا جدا بدلا من أن يكون المعيار فى الاستعلام [forms]![frmEdite]![TelID] سيكون Eval("[forms]![frmEdite]![TelID]") بإضافة eval و يعمل بكفاءة بارك الله فيكم مرفق الملف الأصلى قبل التعديل باستخدام eval فقط باستخدام eval.rar

إليكم النتائج أولا : ملف الفاضل أبى خليل إبداع إبداع أول مرة أستخدم معيار استعلام و يكون فى الكود فى قسم العام هذه إحدى الحالات التى نحتاج فيها لذلك العجيب أن البارامتر يمرر بين الكود و الاستعلام بعيدا عن كود التصدير فليس فيه أى ذكر للبارامتر ميزة أخرى لملفك أبا خليل جعلت البارامتر خاصا بهذا الاستعلام فقط فلا يحدث خطأ عند اختيار استعلام آخر من الكمبوبوكس لأنه ليست كل الاستعلامات فيها معايير تشير إلى حقل فى نموذج فأغلبها معياره داخلى و هذا لا مشكلة فيه جزاك الله خيرا و ممكن تعرفنا متى نحتاج إلى وضع المعيار فى وظيفة عامة ثانيا ملف الفاضل الأستاذ رمهان معلومة أخرى قيمة جدا و طريقة لتمرير المعيار لا نستغنى عنها لكن كما ذكرت تصلح عند اختيار و تشغيل هذا الاستعلام فقط فأنا أختار الاستعلام المراد تصديره من كمبوبوكس وليست كلها تحتاج لتمرير البارامتر جزاك الله خيرا على اختصار الكود و السؤال هل ملفات تصدير الاستعلامات لإكسيل بالمنتدى تتعامل مع هذا النوع من الاستعلامات؟ أم أن كلها تتعامل مع استعلامات معاييرها داخلية؟ أخيرا هذا موضوع قيم جدا جدا استفدت منه كثيرا و حبذا لو أفرده أحدكما بالشرح فى موضوع مستقل للفائدة الأخ alma fandi لا تكلف نفسك عناء الاعتذار جل من لا يسهو و السلام عليكم و رحمة الله

كلام مضبوط حارة التجربة و من ثم الرد شكرا لك جار التجربة أبا خليل المحترم أظن هذا الرد يخص موضوعا آخر

شكرا لتعاونك الاستعلام المطلوب تصديره و يحتوى على بارامتر استعلام q_one فى نموذج expq و البارامتر فى نموذج frmedit Tel-test.rar

للأسف لا يعمل مع أن الاستعلام يفتح

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

السلام عليكم عثرت على هذا الكود الرائع لتصدير الاستعلامات من أكسيس إلى إكسيل الكود يعمل بكفاءة مع الاستعلامات بدون معايير أو بمعايير مباشرة داخل الاستعلام كيف يمكن تعديله ليصدر استعلاما يستخدم معيارا فى نموذج علما بأننى فتحت النموذج أثناء تشغيل الكود و اخترت القيمة و مع ذلك لم يفلح و يعطى رسالة خطأ أنه يحتاج لقيمة معلمة وفقنا الله و إياكم لنفع المسلمين هاكم الكود 'Step 1: Declare your variables Dim MyDatabase As DAO.Database Dim MyQueryDef As DAO.QueryDef Dim MyRecordset As DAO.Recordset Dim i As Integer 'Step 2: Identify the database and query Set MyDatabase = CurrentDb Set MyQueryDef = MyDatabase.QueryDefs(Me.allq.Column(1)) 'Query name in the database 'Step 3: Open the query 'DoCmd.OpenQuery Me.allq.Column(1) Set MyRecordset = MyQueryDef.OpenRecordset 'Step 4: Clear previous contents Dim xlApp As Object Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = True .Workbooks.Add .Sheets("ورقة1").Select 'Step 5: Copy the recordset to Excel .ActiveSheet.Range("A1").CopyFromRecordset MyRecordset 'Step 6: Add column heading names to the spreadsheet For i = 1 To MyRecordset.Fields.Count xlApp.ActiveSheet.Cells(1, i).Value = MyRecordset.Fields(i - 1).Name Next i xlApp.Cells.EntireColumn.AutoFit End With MsgBox "تم التصدير بنجاح"

شرح طريقة حماية رأس و تذييل الصفحة فى مستند وورد شاهدوا هذا الفيديو

شاهد الفيديو https://www.youtube.com/watch?v=KQcKCKNXYOg&feature=youtu.be

سنوات طوال جدا أعمل على برنامج وورد و لم أنتبه أن به فرزا و أبجدة سبحان الله شكرا لك

1 Open the Word document that contains the header and the footer that you want to protect from changes. Do not open the header or the footer of the document. 2. Make sure that you are at the top of your Word document. To do this, press CTRL+HOME. 3. On the Page Layout ribbon, click Breaks. 4. In the Breaks menu, click Continuous under Section breaks, and then click OK. 5. A continuous section break is inserted at the top of your document. 6. On the Review ribbon, click Restrict Editing. 7. In the Restrict Editing task pane, click to select the Allow only this type of editing in the document check box, and then change the box to Filling in forms. 8. Click Select sections. 9. In the Selection Protection dialog box, click to clear the Section 2 check box, and then click OK. 10. Under Start enforcement, click Yes, Start Enforcing Protection. 11. Assign a password and OK افتح مستند Word الذي يحتوي على رأس وتذييل الصفحة التي تريد حمايتها من التغييرات. لا تفتح رأس أو تذييل للمستند. 2. تأكد من أن كنت في أعلى مستند Word. للقيام بذلك، اضغط CTRL + HOME. 3. في الشريط تخطيط الصفحة، انقر فوق فواصل. 4. في القائمة فواصل، انقر فوق مستمر تحت فواصل القسم، ثم انقر فوق موافق. يتم إدخال 5. فاصل مقطع مستمر في أعلى المستند. 6. على الشريط مراجعة، انقر فوق تقييد التحرير. 7. في تقييد جزء المهام تحرير، انقر لتحديد هذا النوع السماح فقط للتحرير في خانة الاختيار المستند، ومن ثم تغيير مربع إلى ملء الاستمارات. 8. انقر فوق تحديد المقاطع. 9. في مربع الحوار حماية التحديد، انقر لإلغاء تحديد خانة الاختيار القسم 2، ثم انقر فوق موافق. 10. وبموجب إنفاذ ابدأ ثم انقر فوق نعم، تشغيل حماية فرض. 11. تعيين كلمة المرور و موافق

تعديل بالمرفقات تصحيح العلاقة بين الجداول plane.rar

وفقك الله وشكرا لمشاركتك النافعة و اختصار الكود

رابط تحميل الملف https://drive.google.com/file/d/0Bw4O7dVd4FBfZ1F4OTZGSW9YTWc/view?usp=sharing