خطا در ایجاد کاربرگ جدید در اکسل توسط اکسس

[moustafa]

در سابروتین حذف کاراکترها کاما و اسلش چون بعضی فیلدها مثل شماره قرارداد ممکنه دارای اسلش باشن اونا روهم با شرط null ترکیب کردم

Public Sub ConvertField2()





'On Error Resume Next

Dim rst As DAO.Recordset

Dim fld As DAO.Field

Set rst = CurrentDb.OpenRecordset("tblEtelate_peymankariTemp  ")

Do While Not rst.EOF

   rst.Edit

   For Each fld In rst.Fields

         

        If Not IsNull(fld) And fld.Name <> "F20" Then

         

           'If fld.TypeIsNumeric Then

             fld = Replace(fld, ",", "")

             fld = Replace(fld, "/", "")

         ' End If

'

       End If

   Next

   rst.Update

   rst.MoveNext

Loop

rst.Close

Set rst = Nothing

End Sub