[atefkhalf2004]

استخدم هذه الدالة

    Public Function custbal(ByVal custname As String, ByVal custno As Integer, ByVal crname As Object)

.
.
.
ثم
  Dim Cry As New Object
        Cry = New crname()


هناك خطا في متغير اسم التقرير
برجاء التعديل