ايران ويج

روی آفیس 2007 برنامه ای با کد زیر نوشته م که وقتی روی آفیس 2013 اجرا میشه این خطا رو میده:

نقل قول: Expression too complex (Error 16)

کد:

کد: 
Public Function FindDuplicateID(ByVal TableName As String, ByVal IDFieldName As String) As Double

    Dim k, i As Double

    For k = 1 To Range(TableName).Rows.Count

        For i = k + 1 To Range(TableName).Rows.Count

            If CStr(Range(TableName & "[" & IDFieldName & "]").Cells(k, 1)) = CStr(Range(TableName & "[" & IDFieldName & "]").Cells(i, 1)) _

             And CStr(Range(TableName & "[" & IDFieldName & "]").Cells(k, 1)) <> "" Then

                FindDuplicateID = i

                Exit Function

            End If

        Next

    Next

End Function

عملا باید چه کار کنم؟

eppagh