عدم امكانية التعديل على النموذج !!

[عبد اللطيف سلوم]

السلام عليكم

المشكلة هي : 

عملنا كود منع تكرار الاسم في النموذج  وبنفس الوقت عملت تقييم للزبائن

طبعا بعد فترة من التعامل نستطيع الحكم على الزبون اذا كان سيئ او ممتز

عندما ارجع لصفح ةالزبون واضع له تقييم يرفض الفورم التخزين بحجة ان الاسم مكرر !!

نريد حلا اذا تكرمتم 

تقييم.accdb

[عبد اللطيف سلوم]

لا اريد الغاء خاصية منع تكرار الاسم

وبنفس الوقت اريد امكانية تعديل المعلومات على النموذج بعد ادخال الاسم بفترة معينة دو ن الاعتراض على تكرار الاسم

[عبد اللطيف سلوم]

للرفـــــــــــــــــــــــــــــــــــع

[ابو ياسين المشولي]

Select Case Me!إطار102
Case 1
1
Case 2
2
Case 3
3
Case 4
4
Case Else
   
  End Select
  Me.Repaint

If DCount("*", "الزبائن", "[customer]='" & Me.txtName & "'") > 0 And Me!إطار102 = False Then

        MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع"
        Me.Undo
        Cancel = True

    End If

منذ ساعه, عبد اللطيف سلوم said:

للرفـــــــــــــــــــــــــــــــــــع

شكلك مستعجل

شوف هل هذا طلبك

تقييم.accdb

تم تعديل فبراير 13, 2019 بواسطه ابو ياسين المشولي

[jjafferr]

تفضل 🙂

اضفت معيار جديد:

Me.NewRecord And

 

Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.NewRecord And DCount("*", "الزبائن", "[customer]='" & Me.txtName & "'") > 0 Then

        MsgBox "هذا الاسم موجود بالفعل", vbCritical, "التكرار ممنوع"
        Me.Undo
        Cancel = True

    End If
End Sub

.

بس اخي عبداللطيف ، الافضل ان تضع الكود قبل تحديث حقل الاسم وليس قبل تحديث النموذج 🙂

 

جعفر

[عبد اللطيف سلوم]

  جزاكم الله خيرا  🌷