• 0
hosabb

عدم استبدال الملفات الجديدة

سؤال

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

اعزائي لدي قاعدة بيانات تقوم بنسخ الملف من حقل الرابط (text1) الى المجلد "D:\azaber" حيث يقوم باختبار اسم الملف المنسوخ مع المجلدات في "D:\azaber" اذا طابق اسم الملف اسم المجلد يقوم بالنسخ الى المجلد المطابق واذا لم يطابق يقوم بانشاء مجلد جديد بنفس اسم الملف ويقوم بنسخ الملف اليه ( الى هنا القاعدة تعمل بشكل صحيح )

ولكن المشكلة هي اذا عندي اكثر من ملف بنفس الاسم يقوم باستبدال القديم علما ان صيغة الملف (JPG)

المطلوب هو اضافة تاريخ او اي شيئ الى الملف المنسوخ مؤخرا( الثاني ) او الثالث او .... الخ لتلافي استبدال القديم ( الاول)

azaper.accdb

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

لن اعدل على مثالك ولكن اشرح لك وانت طبق لكي تعم الفائدة

اولا لدينا دالة RND هذه تقوم بانشاء رقم عشوائي لكنه اقل من واحد ، مثلا 0.4524

ونستخدم معها دالة int  التي تقوم بتحويل اي عدد حقيقي الى صحيح وبالشكل التالي int(rnd)

ولكي تختبر ذلك قم بفتح نافذة immediate window  في قائمة الview في محرر الاكواد واكتب 

msgbox int(rnd)  واضرب انتر

ستحصل على ارقام عشوائية   بين 1 و 9

الان اضرب ناتج الدالة في 100 او في 1000

هكذا

msgbox int(Rnd()*1000)

ستحصل على رقم عشوائي بين 1 و1000

الان كل ما مطلوب هو ان تعرف متغير نصي وتسند له قيمة ناتج هذا التركيب بدون كلمة msgbox طبعا وتلحقه ببداية اسم الملف الهدف وليس في النهاية لكي لا يكون بعد امتداد الملف

ولكن كيف نسند قيمة رقمية الى متغير نصي ؟ ستظهر رسالة خطأ حتما !

الحل هو ان تغير القيمة الرقمية الى نص بواسطة دالة cstr ومعناها change to string

والخلاصة هذا الكود الصغير

dim autonum as string

autonum  = cstr(int(Rnd()*1000))

filename = autonum & filename

 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .