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

[محمد صلاح1]

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

Officna 3.accdbFetching info...

[صالح حمادي]

السلام عليكم

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

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

 

[محمد صلاح1]

  في 23‏/4‏/2019 at 21:48, صالح حمادي said:

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

Expand  

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

تم تعديل أبريل 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.rarFetching info...

[محمد صلاح1]

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

[محمد صلاح1]

  في 24‏/4‏/2019 at 11:17, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 11:17, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 11:17, essam rabea said:

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

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

Expand  

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

  في 24‏/4‏/2019 at 11:17, essam rabea said:

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

Expand  

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

  في 24‏/4‏/2019 at 07:03, محمد صلاح1 said:

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

Expand  

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

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

[essam rabea]

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

Officna 3.zipFetching info...

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

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

[محمد صلاح1]

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

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

[essam rabea]

  في 24‏/4‏/2019 at 11:33, essam rabea said:

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

Expand  

 

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

[محمد صلاح1]

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

Officna 4.accdbFetching info...

[jjafferr]

  في 24‏/4‏/2019 at 11:37, محمد صلاح1 said:

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

Expand  

 

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

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

 

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

 

  اقتباس

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

 

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

Expand  

 

  اقتباس

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

 

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

.

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

Expand  

جعفر