اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

1.jpg.0aa6dd9b0f027ae8e8787e3c6f43955a.jpg

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

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

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

تحياتى

Officna 3.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

1.jpg.0aa6dd9b0f027ae8e8787e3c6f43955a.jpg

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

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

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

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

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

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

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

تم تعديل بواسطه محمد صلاح1
رابط هذا التعليق
شارك

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

Officna 3.zip

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

تم تعديل بواسطه essam rabea
  • Like 1
رابط هذا التعليق
شارك

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

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

 

تم تعديل بواسطه essam rabea
رابط هذا التعليق
شارك

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

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

 

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

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

 

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

 

اقتباس

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

 

اقتباس

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

 

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

.

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

جعفر

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information