اظن انك لم تحمل الملف او انك لم تفكر انك تطلع عليه
تم اضافة جدول باسم يوزر
وياخذ كلمه السر منه
اللي هي 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