[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

الكود بشكل أبسط :

كود :

Public Function Decoder(D_RS As Recordset, _
                       D_Source As String, _
                       D_Search_Col As Integer, _
                       D_Result_Col As Integer) As String

   If D_RS.RecordCount > 0 Then D_RS.MoveFirst
   Do Until D_RS.EOF
       If D_Source = Trim(D_RS.Fields(D_Search_Col)) Then
           Decoder = D_RS.Fields(D_Result_Col)
           Exit Do
       End If
       D_RS.MoveNext
   Loop

End Function

حاول قدر المستطاع أن تستغني عن جملة تجاوز الخطأ (On Error Resume Next)اا
خلي برنامج بالأساس ما يوصل للخطأ ولا يقع فيه ..
حتى تضمن نتائج صحيحة على طول ..