Mohamed rafaat قام بنشر فبراير 1, 2021 مشاركة قام بنشر فبراير 1, 2021 السلام عليكم ارجو من اخواني الاعزاء مساعدتي علي تعديل في كود الحفظ عندى نموذج باسم Users وهذا النموذج خاص باضافة المستخدمين وتعديل صلاحيتهم عند التعديل علي اي مستخدم وعند الحفظ تظهر رساله ان المستخدم موجود مسبقا وانا اريد هذه الرساله تظهر فقط عند اضافة مستخدم جديد وعند الحفظ اذا وجد مستخدم بهذا الاسم تظهر لكن عند التعديل علي اي مستخد موجود يتم الحفظ بدون اظهار الرساله وسيتم ارفاق الملف رابط هذا التعليق شارك More sharing options...
Mohamed rafaat قام بنشر فبراير 1, 2021 الكاتب مشاركة قام بنشر فبراير 1, 2021 هذا هو الملف المرفق Database2.rar رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر فبراير 1, 2021 مشاركة قام بنشر فبراير 1, 2021 وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي If Confirmation = False Then Exit Sub If MsgBox("هل تريد حفظ الإدخال الحالي", vbYesNo, "حفظ السجل") = vbNo Then DoCmd.CancelEvent Me.Undo Me.TxtUser.SetFocus Else If Me.NewRecord Then If Me.TxtUser = DLookup("Username", "Users", "[Username]='" & Me.TxtUser & "'") Then MsgBox "هذا المستخدم موجود مسبقاً", vbInformation, "تنبيه" Me.TxtUser.SetFocus Exit Sub End If Else DoCmd.Save DoCmd.Close End If End If Database2.rar تحياتي رابط هذا التعليق شارك More sharing options...
Mohamed rafaat قام بنشر فبراير 2, 2021 الكاتب مشاركة قام بنشر فبراير 2, 2021 9 ساعات مضت, محمد أبوعبدالله said: وعليكم السلام ورحمة الله وبركاته جرب التعديل التالي If Confirmation = False Then Exit Sub If MsgBox("هل تريد حفظ الإدخال الحالي", vbYesNo, "حفظ السجل") = vbNo Then DoCmd.CancelEvent Me.Undo Me.TxtUser.SetFocus Else If Me.NewRecord Then If Me.TxtUser = DLookup("Username", "Users", "[Username]='" & Me.TxtUser & "'") Then MsgBox "هذا المستخدم موجود مسبقاً", vbInformation, "تنبيه" Me.TxtUser.SetFocus Exit Sub End If Else DoCmd.Save DoCmd.Close End If End If Database2.rar 36.21 kB · 1 download تحياتي شكرا لحضرتك هجربه باذن الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.