جميل جدا اخي Elsayed Bn Gemy
ولكن لدي ملاحظه هلا بالامكان تعديل الكود حيث نعهله ياخذ من المجلد ماهو صور فقط اي بصيغه جميع الصور فقط وليس جميع محتويات المجلد
وكذلك هل ممكن هل توجد طريقه لنقل الى مجلد اخر مع الترقيم حسب ترقيم الصور
اظن انك لم تحمل الملف او انك لم تفكر انك تطلع عليه
تم اضافة جدول باسم يوزر
وياخذ كلمه السر منه
اللي هي 12345
وتغيرها بالجدول
ممكن تعمل له حقل باي نموذج كما تحب
اخي حربي العنزي
جرب انت عمل حقل غير منظم
وبعدها اعمل هذا الكود ان شاء الله يفي بالغرض
Me.مكان الرقم.SetFocus
DoCmd.RunCommand acCmdCopy
Me.مكان التثبيت.SetFocus
DoCmd.RunCommand acCmdPaste
اتفضل
Dim aboyaseen As String
Dim varFilter As Variant
varFilter = Null
If Not IsNull(Me.stname) Then
aboyaseen = (varFilter) & "[stname]= [Forms]![انذار طالب]![stname] "
DoCmd.OpenReport "كشف", acPreview, , aboyaseen
End If
مخالفات الطلاب.rar