مساعدة في دمج كودين معا

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

السلام عليكم 

احتاج ان ادمج الكودين معا في كود واحد والتعديل على الكود ان وجد 

الكود  الاول 

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

 

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

شكرا لكم تم الحل وضعت احد الاكواد في حقل قبل التحديث فلم اعد بحاجة الى دمج الكودين