eppagh
2015/06/05, 12:04
روی آفیس 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
عملا باید چه کار کنم؟
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
عملا باید چه کار کنم؟