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

جزاك الله خيرا

نفس البرنامج هنا

بقى أمامنا تحد فى هذا الموضوع

الأكواد التى تدعى الحصول على أسماء الملفات فى المجلدات الفرعية

كلها لا تعمل

لا أريد فقط أسماء المجلدات الفرعية داخل مجلد

أريد الملفات التى داخل هذا المجلدات الفرعية

هاكم ملفى و به إمكانية البحث

و فتح المسار كارتباط تشعبى

myfileslist.rar

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

حياكم الله 

نفوس طيبة 

نحسبها كذلك

وفقكم الله وجزاكم عنا خيرا

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

على نفس الملف المرفوع

نعم  eval

نعم

الملف يعمل تمام

قصدت تمرير من الاستعلام للكود

أبلغنا بالنتائج

لقد قمت باستحدام val

عمليا فى ملف أعمل عليه

لعل eval  ألغيت فى 2013

موجودة أستاذى فى معيار الاستعلام q_one

اجعل نموذج frmedit مفتوحا و اختر قيمة

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

موضوعكم هذا مبارك

هذه طريقة ثالثة لتمرير البارامتر عبر الكود

غير الطريقتين الرائعتين السابقتين

و الحل بسيط جدا جدا

بدلا من أن يكون المعيار فى الاستعلام

[forms]![frmEdite]![TelID]

سيكون

Eval("[forms]![frmEdite]![TelID]")

بإضافة

eval

و يعمل بكفاءة

بارك الله فيكم

مرفق الملف الأصلى قبل التعديل

باستخدام eval فقط

باستخدام eval.rar

إليكم النتائج

أولا : ملف الفاضل أبى خليل

إبداع إبداع

أول مرة أستخدم معيار استعلام و يكون فى الكود فى قسم العام

هذه إحدى الحالات التى نحتاج فيها لذلك

العجيب أن البارامتر يمرر بين الكود و الاستعلام 

بعيدا عن كود التصدير

فليس فيه أى ذكر للبارامتر

ميزة أخرى لملفك أبا خليل

جعلت البارامتر خاصا بهذا الاستعلام فقط

فلا يحدث خطأ عند اختيار استعلام آخر من الكمبوبوكس

لأنه ليست كل الاستعلامات فيها معايير تشير إلى حقل فى نموذج

فأغلبها معياره داخلى و هذا لا مشكلة فيه

جزاك الله خيرا

و ممكن تعرفنا متى نحتاج إلى وضع المعيار فى وظيفة عامة

ثانيا ملف الفاضل الأستاذ رمهان

معلومة أخرى قيمة جدا و طريقة لتمرير المعيار  لا نستغنى عنها

لكن كما ذكرت تصلح عند اختيار و تشغيل هذا الاستعلام فقط

فأنا أختار الاستعلام المراد تصديره من كمبوبوكس 

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

جزاك الله خيرا على اختصار الكود

و السؤال

هل ملفات تصدير الاستعلامات لإكسيل بالمنتدى تتعامل مع هذا النوع من الاستعلامات؟

أم أن كلها تتعامل مع استعلامات معاييرها داخلية؟

أخيرا

هذا موضوع قيم جدا جدا

استفدت منه كثيرا

و حبذا لو أفرده أحدكما بالشرح فى موضوع مستقل للفائدة

الأخ alma fandi

لا تكلف نفسك عناء الاعتذار

جل من لا يسهو

و السلام عليكم و رحمة الله

كلام مضبوط

حارة التجربة و من ثم الرد

شكرا لك

6 ساعات مضت, ابوخليل said:

اذا ما نفع في المعلمات نعلن على العموم

تفضل  تم التعديل  

مع تعديل طفيف على الدوارة داخل الكود

Tel-test2.rar

جار التجربة أبا خليل المحترم

4 ساعات مضت, alma_fandi said:

last.rar

ممكن  نعمل تصدير  لتقرير من  داخل  فورم  بحث بين تاريخين  (يعرض البيانات  التي  تمم البحث  عنهاخلال  فترةالبحث )

اسم  الاستعلام   qry1

من  فورم searchf

أظن هذا الرد يخص موضوعا آخر

شكرا لتعاونك

الاستعلام المطلوب تصديره و يحتوى على بارامتر استعلام 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

في 9/5/2010 at 20:19, الطلحي said:

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

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

سبحان الله

شكرا لك

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

استخدمت خاصية الدورة و ضبطها على السجل الحالى

لكن ماذا عن مفتاح pageup  - pagedown , 

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

جزاك الله خيرا

قبل فتح أى مرفق

أشكرك على الاهتمام و الرد

جارى التحميل و الاطلاع

الرد فى الصورة

ولم أعرف بعد ما تم بدون أكواد

https://pbs.twimg.com/media/C5srqzeWAAAu014.jpg:large

https://pbs.twimg.com/media/C5srqzeWAAAu014.jpg