منع تكرار ادخال الاسم فى نموذج الادخال

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

شكرا لكم على متابعتكم لهذا الشيت

وكن هل يوجد كود يمنع تكرار ادخال الاسم فى نموذج الادخال الموجود بشيت بيانات العملاء

فققكم الله واياى لما يحبه ويرضاه

اخوكم ابراهيم محمد

3-1.rar

[عبدالله المجرب]

السلام عليكم

اخي الفاضل ارجو منك ان تكتب عناوين مناسبة للطلبات مستقبلاً (سيتم تعديل العنوان)

=========

استبدل كود زر الترحيل في اليوزرفورم2 بهذا

Private Sub CommandButton2_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("بيانات العملاء")

'للعثور على أول سطر فارغ في قاعدة البيانات "صفحة بيانات الموردين

iRow = ws.Cells(Rows.Count, 1) _

  .End(xlUp).Offset(1, 0).Row

'للتأكد من إدخال كود

If Trim(Me.TextBox1.Value) = "" Then

  MsgBox ("من فضلك .قم بإدخال كود")

  Exit Sub

End If

If Application.CountIf([D7:D10000], Me.TextBox4.Value) > 0 Then MsgBox ("هذا الاسم موجود مسبقاً"): Exit Sub

'ترحيل البيانت إلى صفحة بيانات الموردين

ws.Cells(iRow, 1).Value = Me.TextBox1.Value

ws.Cells(iRow, 2).Value = Me.TextBox2.Value

ws.Cells(iRow, 3).Value = Me.TextBox3.Value

ws.Cells(iRow, 4).Value = Me.TextBox4.Value

ws.Cells(iRow, 5).Value = Me.TextBox5.Value

ws.Cells(iRow, 6).Value = Me.TextBox6.Value

ws.Cells(iRow, 7).Value = Me.TextBox7.Value

ws.Cells(iRow, 9).Value = Me.TextBox8.Value

ws.Cells(iRow, 10).Value = Me.TextBox9.Value

ws.Cells(iRow, 12).Value = Me.TextBox10.Value

ws.Cells(iRow, 13).Value = Me.TextBox11.Value

ws.Cells(iRow, 15).Value = Me.TextBox12.Value

'مسح البيانات القديمة من على الفورم بعد الترحيل للتجهيز لإدخال بيانات جديدة

Me.TextBox1.Value = ""

Me.TextBox2.Value = ""

Me.TextBox3.Value = ""

Me.TextBox4.Value = ""

Me.TextBox5.Value = ""

Me.TextBox6.Value = ""

Me.TextBox7.Value = ""

Me.TextBox8.Value = ""

Me.TextBox9.Value = ""

Me.TextBox10.Value = ""

Me.TextBox11.Value = ""

Me.TextBox12.Value = ""

Me.TextBox1.SetFocus

End Sub