عدم استبدال ملف PDF

[UserUser2]

من فضلكم لدى كود لتصدير التقرير PDF فى فولدر محدد على الجهاز عند التصدير يحمل الملف اسم محدد عند التصدير مرة اخرى يقوم باستبدال الملف القديم 
المطلوب عدم الاستبدال ولكن يقوم بترقيم الملفات report - 1 // report - 2 وهكذا 

 

[kanory]

15 دقائق مضت, UserUser2 said:

من فضلكم لدى كود لتصدير التقرير PDF فى فولدر محدد على الجهاز عند التصدير يحمل الملف اسم محدد عند التصدير مرة اخرى يقوم باستبدال الملف القديم 
المطلوب عدم الاستبدال ولكن يقوم بترقيم الملفات report - 1 // report - 2 وهكذا 

 

اجعلها حسب التاريخ والوقت ....

[UserUser2]

12 دقائق مضت, kanory said:

اجعلها حسب التاريخ والوقت ....

محتاج ارقمها 
لان موجود فيه التاريخ فعلا 

[kanory]

منذ ساعه, UserUser2 said:

محتاج ارقمها 
لان موجود فيه التاريخ فعلا 

اذن لديك حل بعمل جدول خاص بالترقيم .... عند حفظ الملف يتم اخذ الترقيم منه وبعد الحفظ يتم تحديث ذلك الرقم في الجدول بزيادة واحد للرقم وهكذا ..................

[Moosak]

الحل الأسهل أن تضيف إلى اسم الملف التاريخ والوقت لتتجنب تكرار الاسم 🙂 

بحيث يكون اسم الملف هكذا مثلا :

FileName = "c:\ReportsFolder\Report-" & Format(Now,"dd-mm-yyyy  hh-nn-ss" & ".pdf"

 

[UserUser2]

2 ساعات مضت, Moosak said:

الحل الأسهل أن تضيف إلى اسم الملف التاريخ والوقت لتتجنب تكرار الاسم 🙂 

بحيث يكون اسم الملف هكذا مثلا :

FileName = "c:\ReportsFolder\Report-" & Format(Now,"dd-mm-yyyy  hh-nn-ss" & ".pdf"

 

التاريخ بالفعل موجود 
محتاجه يرقم 

[Barna]

4 دقائق مضت, UserUser2 said:

التاريخ بالفعل موجود 
محتاجه يرقم 

ادرج مثال مبسط للتعديل عليه

[UserUser2]

الان, rockjone33 said:

dim number as string 

number =  me. g. value

if me. g2.value =number then

 1 +number =number

else

msgbox "تم ادراج ملف او مجلد جديد" 

FileNam = "c:\ReportsFolder\Report-" & Format(Now,"dd-mm-yyyy hh-nn-ss" & number &".pdf"

end if

او تلقائي:-

dim number as string 

number =  me. g. value

FileName = "c:\ReportsFolder\Report-" & Format(Now,"dd-mm-yyyy hh-nn-ss" & number =number +1&".pdf"

 

ضغط.. 

ماذا تقصد ب me. g. value