افزودن اطلاعات از فایل اکسل به اکسس

[Nader700]

سلام به همه دوستان عزیز
من با استفاده از کد زیر اطلاعات رو از فایل اکسل به اکسس انتقال میدم . ولی یک ایراد داره اونم اینه که به تعداد رکورد هایی که در حلقه for هست به همون تعداد رکورد خالی در جدول اکسس من اضافه می کنه (مثلا در کد زیر تعداد 4 رکورد خالی به جدول من یعنی Table1 اضافه میشه )ممنون میشم از دوستان اگه کد زیر رو ببینن و بهم بگن این مشکل رو چطوری رفع کنم .

Dim ExApp As New Excel.Application
Dim ExWB As Excel.Workbook
Dim ExWS As Excel.Worksheet
Call GetFileName
If IsNull(StrFullName) Or StrFullName = "" Then Exit Sub
Set ExWB = GetObject(StrFullName)
Set ExWS = ExWB.Worksheets(1)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Tabel1")
For i = 2 To 4
rs.AddNew
rs!R = ExWS.Cells(i, 2)
rs!name = ExWS.Cells(i, 3)
rs!famili = ExWS.Cells(i, 4)
rs!kodmli = ExWS.Cells(i, 5)

rs.Update
Next
Me.Requery
MsgBox "The Information Was Received Form The Excel File"
rs.Close
Set rs = Nothing
Set ExWS = Nothing
Set ExApp = Nothing

[Nader700]

سلام به همگی
من نگاه کردم دیدم 56 نفر تا الان پست رو مشاهده کردن ولی حتی یک نفر یک راهنمایی کوچیک نکرده
اساتید محترم لطفا یکیشون جواب ما رو بده

[atf1379]

..........................

[atf1379]

سلام به همگی
من نگاه کردم دیدم 56 نفر تا الان پست رو مشاهده کردن ولی حتی یک نفر یک راهنمایی کوچیک نکرده
اساتید محترم لطفا یکیشون جواب ما رو بده
سلام
شاید دلیلش عدم ارائه فایل نمونه باشد

[mazoolagh]

سلام و روز خوش

با توجه به این که از کدهای از پست 23 تاپیک مشکل در استخراج رکوردهای خاص (https://barnamenevis.org/showthread.php?564739) استفاده کردین،
بهتر بود این پرسش رو در همون تاپیک مطرح و همونجا ادامه میدادین.

به هر حال اصل کد درسته،
ولی با توجه به این که me.requery گذاشتین یعنی اینها رو در یک فرم bound به جدول table1 استفاده کردین.
گذشته از این که اصلا نیازی به باز کردن رکوردست جدید نیست و میشه از recordset یا بهتر recordsetclone خود فرم استفاده کرد،
ولی حتی این کد هم رکورد خالی درست نمیکنه.
مابقی کدهای فرم رو چک کنین.