السبب واضح من رسالة الخطأ توجد بيانات مكررة لدى الفهرس في جدول البيانات الذي تستخدمه
جرب استخدم نفس الملف المرفق مع التعديل
هذه الصورة بعد تعديل ملف الاكسل بما يتوافق مع بنية الجداول لديك
Tp_stoudnt.xlsx
لديك مشكلة في ملف الاكسل
حقول يجب الا تكون فارغة
- RakamKomy
- csles
- school
لقد وضعت تسلسل في dyana مما تسبب في مشكلة في الاستيراد
تفضل التعديل
stu- up2.zip
تفضل هذه جرب هذه المعادلة
ينتهي اليوم في الساعة 8 ص
اليوم التاريخ 27
يكون التاريخ 27 بعد الساعة 8 ص
و قبل الساعة 8 ص يكون التاريخ 26
IIf(Format(Now();"h")<=8;Format(DateAdd("d";-1;Now());"yyyy/mm/dd");Format(Now();"yyyy/mm/dd"))
تفضل
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
If Not IsNull(ctl) Then
MsgBox "توجد بيانات بالنموذج", vbExclamation + vbMsgBoxRight, "تأكيد"
End If
End If
Next ctl
صيح يوجد خطأ هذا هو التعديل بناء على اكبر تاريخ
DLast("[Per_Degree]";"[T1]";"[Per_Name] Like '" & [Per_Name] & "' AND [Ex_DATE] Like '" & DMax("[Ex_DATE]";"[T1]";"[Per_Name] Like '" & [Per_Name] & "'") & "'")
Last_Degree.mdb