مساعدة في منع تكرار الاسم في الحقول

[ازهر عبد العزيز]

السلام عليكم عندي نموذج testuF يحتوي حقل viruseid1 كيف امنع تكرار الاسم في الحقول وايضا عند اختيار الاسم في حقل viruseid1 وكان مربع التحرير   ROOM 

= X اوY1 تكون قيمة الحقل virusM = قيمة الحقل virusT  وبخلافة تكون قيمة الحقل 

virusM =قيمة الحقل virusL

TEST.accdb

تم تعديل مايو 29, 2020 بواسطه ازهر عبد العزيز

[husamwahab]

تفضل استاذي العزيز 

ارجو ان يكون طلبك 

هذا فيما يخص شروط حقل Virusm

لكن لم افهم قصد فيما يخص منع تكرار الاسم في الحقول

TEST1.rar

[ازهر عبد العزيز]

الاستاذ الغالي husamwahab احسنت زادك الله علما  لو تكرمت ممكن دمج هذين الكودين معا في كود واحد 

Private Sub viruseid1_AfterUpdate()
If Forms!testuf!txtRoom = "x" Or Forms!testuf!txtRoom = "y1" Then
  Me.viruseM = Me.virusT
Else
  Me.viruseM = Me.virusL
End If
End Sub

>>>>

On Error Resume Next
    If Me.NewRecord = True Then
    Dim strWhere As String, strMessage As String
    strWhere = "[idViruses] = '" & Me![viruseid] & "'"
    Me.RecordsetClone.MoveFirst
    Me.RecordsetClone.FindFirst strWhere
    If Me.RecordsetClone.NoMatch = False Then
        strMessage = "The name of the virus is duplicate"
        lResponse = MsgBox(strMessage, vbOKOnly + vbCritical)
            If lResponse = vbOK Then
                Cancel = True
                Me.Undo
                Me.Bookmark = Me.RecordsetClone.Bookmark
            End If
    End If
End If

 

تم تعديل مايو 29, 2020 بواسطه ازهر عبد العزيز