نقل قول نوشته شده توسط moustafa مشاهده تاپیک
جناب بهرامی تا قبل پست 19 مرحله به مرحله تریس کردم بسیار عالی و دلچسب و سریع وبدون خطا ....لذت بردم دستتون درد نکنه
خواهش میکنم
پیشنهاد میکنم با توجه به توضیحاتی که در پست 21 داده ام از نمونه پست 22 استفاده کنی

نقل قول نوشته شده توسط moustafa مشاهده تاپیک
و در جهت تکمیل شدن بحث:
5-فرمت فیلدهای مبالغ در قالب متنی و با کاما هستش در حالیکه به نوع عددی و بدون کاما نیاز دارم که جداکننده اش در خود اکسس تنظیم شده باشه و همینطور فیلدهای تاریخ هم از نوع متنی و شامل ممیز هستش که می خوایم اونم از نوع عددی و بدون ممیز وارد بشه و در خود اکسس با ماسک ممیز گذاشته بشه
در خصوص تغییر فرمت فیلدهای عددی و تاریخ هم با توجه به اینکه جدول tblEtelate_peymankari بر خلاف جدول tblExcel که در خلال انتقال اطلاعات ایجاد میشه ثابته و خصوصیات فیلدهای اون هم ثابته میتوانی ابتدا فرمت فیلدهای جدول فوق رو مطابق خواسته خودت تغییر بدی و برای حذف علامت کاما از فیلدهای عددی و اسلش از فیلدهای تاریخ میتوانی از کدهای روال زیر استفاده کنی:


Public Sub ConvertField()

On Error Resume Next

Dim rs As DAO.Recordset

Dim fld As DAO.Field

Set rs = CurrentDb.OpenRecordset("tblEtelate_peymankari")

Do While Not rs.EOF

   rs.Edit

   For Each fld In rs.Fields

       If Not IsNull(fld) Then

          If fld.Name Like "*mablagh*" Then

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

          ElseIf fld.Name Like "*tarikh*" Then

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

          End If

       End If

   Next

   rs.Update

   rs.MoveNext

Loop

rs.Close

End Sub

میتونی این روال رو بعد از کد Call AppendData("tblMain", "tblExcel") فراخوانی کنی