اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

المشكلة هي : 

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

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

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

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

س1.jpg

تقييم.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

تم تعديل بواسطه ابو ياسين المشولي
  • Like 1
رابط هذا التعليق
شارك

تفضل 🙂

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

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

.

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

 

جعفر

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information