إنشاء ملف لحفظ الملفات المصدرة

[محمد صلاح1]

تحت زر طباعة نتيجة البحث أريد إضافة كود لإنشاء ملف جديد بعنوان (نتائج البحث) في ملف قاعدة البيانات لحفظ الملفات المصدرة فيه.

Officna 3.accdb

[صالح حمادي]

السلام عليكم

تفضل هذا الكود يقوم بإنشاء المجلد إن لم يجده

Dim curPath As String
curPath = CurrentProject.Path & "\نتيجة البحث"
If Len(Dir(curPath, vbDirectory)) = 0 Then
   MkDir (curPath) ' إنشاء مجلد بالمسار المحدد
End If

 

[محمد صلاح1]

8 ساعات مضت, صالح حمادي said:

تفضل هذا الكود يقوم بإنشاء المجلد إن لم يجده

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

تم تعديل أبريل 24, 2019 بواسطه محمد صلاح1

[صالح حمادي]

تفضل الكود خلف زر الأمر يصبح بهذا الشكل:

Dim reportName As String
    Dim fileName As String
    Dim criteria As String
        
fileName = CurrentProject.Path & "\نتيجة البحث"
If Len(Dir(fileName, vbDirectory)) = 0 Then
   MkDir (fileName) ' إنشاء مجلد بالمسار المحدد
End If
    reportName = "ResultPrint"
    fileName = fileName & "\" & reportName & ".pdf"
    'criteria = "SomeTextField = 'ABC' AND SomeNumberField = 123"
    
    DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
    DoCmd.Close acReport, reportName, acSaveNo

 

[essam rabea]

حبيبى يابو الصلح .. معلش اتأخرت عليك حبتين

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

لـ4 Officna وبعدين القيك مرجعن لـ Officna 3 معن إن 4 غير 3 .. تانى حاجة مش هنعمل لكل حقل نموذج بحث لوحده كده مش هتخلص.

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

الصورة دى اللى اقصده

تفضل أستاذنا صالح حمادي بتعديل الكود كان كل ماعليك كوبى وبست تحت زر البى دى إف.. مش إحنا قولنا نحاول عشان ماننساش.

وعلى فكرة القاعدة مفيهاش حد من المؤلفين يبدأ ب أبى

اليك المرفق وبلغنى بالنتيجة

تحياتى

Officna 3.rar

[محمد صلاح1]

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

[محمد صلاح1]

14 دقائق مضت, essam rabea said:

حبيبى يابو الصلح .. معلش اتأخرت عليك حبتين

انتي اللي حبيبي بقي أنت بدأت بذكرها بس هي في بالي علطول والله

14 دقائق مضت, essam rabea said:

حاول تشتغل على قاعدة واحدة علشان التعديلات والتحديثات متروحش ونرجع نقول راحت ليه

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

14 دقائق مضت, essam rabea said:

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

الصورة دى اللى اقصده

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

14 دقائق مضت, essam rabea said:

تفضل أستاذنا صالح حمادي بتعديل الكود كان كل ماعليك كوبى وبست تحت زر البى دى إف

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

4 ساعات مضت, محمد صلاح1 said:

أيضاً هناك ملاحظات سريعة وصغيرة أعتقد لا تحتاح لفتح مواضيع جديدة بل تحتاج فقط لضبط
- البحث بخيار يبدأ بـ لا يخرج نتائج صحيحة جرب مثلاً البحث في اسماء المؤلفين عن اسم يبدأ بكلمة " أبي " مع خيار بالتشكيل فتعلم المقصود
- رغم أني مازلت لا أعلم لماذا لم يكن كمبوبوكس الفرز يعمل عندي فالجديد عند القيام بالفرز باختيار حقل الفرز ثم الضغط علي زر التصاعدي والتنازلي يتم فتح قائمة الفرز بدون سبب
- عند أختيار خيار نبذة في الفرز لا يعمل ابتداء عند الضغط علي زر الفرز التصاعدي والتنازلي ولا يعمل إلا إذا غيرت للفرز باسم المؤلف ثم العودة للفرز بـ النبذة وهذا سيجعل المستخدم يعتقد لوجود عطل ما

دلوقتي إذا كان وقتك يسمح بنظره رضي للنقاط دي وأنا موجود لأي توضيح وشكرا ليك يا غالي علي كل حاجة حلوه عملتهالي من ساعت من أتعملت معالك ربنا يباركلك

تم تعديل أبريل 24, 2019 بواسطه محمد صلاح1

[essam rabea]

فتح بعد التصدير

Officna 3.zip

بص إشتغل على الآخر مرفق بعتهولك وشوف الفرز شغال ولا لأ أصله شغال عندى تمام .. أى إضافات خارجية ضفها للجداول دى علشان بدور على أبى مش لاقى

تم تعديل أبريل 24, 2019 بواسطه essam rabea

[محمد صلاح1]

الله ينور يا غالي واصل بلا فواصل علي بقية الملاحظات الله يخليك قبل ما يجي أستاذ جعفر ويقولي افتح موضوع جديد

تم تعديل أبريل 24, 2019 بواسطه محمد صلاح1

[essam rabea]

7 دقائق مضت, essam rabea said:

بص إشتغل على آخر مرفق بعتهولك وشوف الفرز شغال ولا لأ أصله شغال عندى تمام .. أى إضافات خارجية ضفها للجداول دى علشان بدور على أبى مش لاقى

 

تم تعديل أبريل 24, 2019 بواسطه essam rabea

[محمد صلاح1]

اتفضل استاذي مرفق " أبي "

Officna 4.accdb

[jjafferr]

12 دقائق مضت, محمد صلاح1 said:

قبل ما يجي أستاذ جعفر ويقولي افتح موضوع جديد

 

وهذا انذار شفوي لك ، لوسمحت احترم قوانين المنتدى !!

شو يضرك اذا فتحت موضوع خاص لكل سؤال؟؟؟؟؟؟

 

واذا ما كنت تدري ، فهذه قوانين المنتدى

 

اقتباس

قواعد المشاركة فى الموقع

 

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي

 

اقتباس

ممنوعات  : تعرض المشاركة للالغاء الفوري

 

1.     .... ، كما يمنع منعا باتا ذكر أكثر من سؤال فى نفس الموضوع ، و هذا لكي يسهل البحث  و الحصول علي المعلومة علي من بعدك. و إذا كان الموضوع استكمالا لموضوع موجود مسبقا فى الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل علي الجميع الوصول الي الموضوع المشابه.

.

4.    ممنوع طرح أكثر من سؤال فى موضوع واحد ليسهل البحث عن المواضيع لاحقا.

جعفر