تعديل علي كود الحفظ

[Mohamed rafaat]

السلام عليكم

ارجو من اخواني الاعزاء مساعدتي علي تعديل في كود الحفظ

عندى نموذج باسم Users وهذا النموذج خاص باضافة المستخدمين وتعديل صلاحيتهم عند التعديل علي اي مستخدم وعند الحفظ تظهر رساله ان المستخدم موجود مسبقا وانا اريد هذه الرساله تظهر فقط عند اضافة مستخدم جديد وعند الحفظ اذا وجد مستخدم بهذا الاسم تظهر لكن عند التعديل علي اي مستخد موجود يتم الحفظ بدون اظهار الرساله 

وسيتم ارفاق الملف

[Mohamed rafaat]

هذا هو الملف المرفق

Database2.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

جرب التعديل التالي

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

تحياتي

[Mohamed rafaat]

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

تحياتي

شكرا لحضرتك هجربه باذن الله