تعديل اسماء ملفات مخزنة على الكمبيوتر

[الأمير هشام]

السلام عليكم

يرجى مساعدتى فى تحديث قاعدة البيانات المرفقة حيث ارغب فى كود لتعديل اسماء ملفات مخزنة على الكمبيوتر (أسم الملف عبارة عن رقم التسلسلى ) ليصبح إسم الملف (الرقم التسلسلى + إسم الطالب ) طبقا لما هو مخزن فى قاعدة البيانات

مثال : عند الضغط على زر تغيير أسماء ملفات الطلبة  يتغير إسم الملف من 1 إلى 1_زياد .. و هكذا

مع الشكر

Students.accdb 5.pdf 4.pdf 3.pdf 1.pdf 2.pdf

[ابوخليل]

تفضل

Dim i As Integer
Dim rs As Recordset
Set rs = Me.Recordset
Dim OldName, NewName
Dim x As Variant
Dim xx As Variant
With rs
.MoveFirst
For i = 0 To .RecordCount
x = Me.Serial
xx = Me.Name1
OldName = CurrentProject.Path & "\" & x & ".pdf"
NewName = CurrentProject.Path & "\" & x & "_" & xx & ".pdf"
Name OldName As NewName
.MoveNext
Next i
End With

ملحوظة : ضع البرنامج داخل مجلد الملفات 

ايضا تجنب تسمية الحقول بعبارات محجوزة في أكسس ... تم تعديل الحقل   Name الى Name1

Students.rar

[الأمير هشام]

الصديق الغالي أبو خليل السلام عليكم

أشكر لحضرتك إهتمامكم ولكن الكود لا يعمل  و لا تتغير أسماء الملفات و عند حذف on error resume next  حيث يطهر خطا (Bad file name or number )

مع الشكر

[ابوخليل]

يعمل عندي بكل كفاءة .. انظر الصورة

وضعت on error resume next فقد يكون بعض الطلاب ليس لديهم صور فيقفز الخطأ لما بعده

لو وضعت المؤشر على السطر الأصفر  واطلعت على قيم  oldName  و NewName  لتبين لك مكان الخلل

[ابوخليل]

اذا تأكدت من عمل الكود يمكنك تطوير الكود واستبدال on error resume next بسطر ينبه على الطالب الذي ليس له صورة

[ابوبسمله]

في 20‏/1‏/2023 at 11:59, ابوخليل said:

ملحوظة : ضع البرنامج داخل مجلد الملفات 

ايضا تجنب تسمية الحقول بعبارات محجوزة في أكسس ... تم تعديل الحقل   Name الى Name1

يعمل بكفائه جزاك الله خيرا معلمنا وشيخنا الجليل ابوخليل

[kkhalifa1960]

اضافة لعمل استاذي أبو خليل تغيير اسم الملف لطالب واحد أو أكثر أو الكل .

تعديل أسم الملف لطالب معين.rar

[الأمير هشام]

السلام عليكم 

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

 

[الأمير هشام]

السلام عليكم 

اشكر كل من ساعدنى فى هذا الموضوع ، الكود يعمل الان بكفاءة .. مع الشكر